есть такой макрос.
нужно оповещать за 8 и за 6 недель. по колонке которую задали на втором листе екселя. сделал так

Sub Auto_open()
   LR = Sheets("Лист1").UsedRange.Rows.Count 'посл. строка
   ParamDate = Sheets("Параметры").Range("B1").Value
   Date1 = Sheets("Параметры").Range("B2").Value
   Date2 = Sheets("Параметры").Range("B3").Value
 For i = 1 To LR 'перебираем строки
    xDD = DateDiff("d", DateValue(Now), Sheets("Лист1").Cells(i, ParamDate))
    xDD = xDD Mod 365
    xMM = xDD \ 30
    'If - > 30 Then
      MsgBox xMM
    'End If
  Next
End Sub

Но могут быть колонке где не дата. как правильно задать проверку ? и как лучше выводить оповещение.

а хотя. наверное лучше формировать новый лист и там выводить гипер ссылку на строку где сработало условие. остается вопрос только как :) может есть примерчики ? :)

вот нашел.http://excelvba.ru/books. качаю. читаю. но может все таки по оповещению подскажите. как лучше реализовать.

подскажите. как вывести всю строку в MsgBox

пробую так
но не хочет.
 s = ""
 For i = strDate To LR 'перебираем строки
    xDD = DateDiff("ww", DateValue(Now), Sheets("Лист1").Cells(i, ParamDate))
     If Date1 = xDD Or Date2 = xDD Then
      s = s + Sheets("Лист1").Rows(i).Copy
    End If
  Next
  UserForm.TextBox1 = s
  UserForm.Show

пишет ошибка типов s. а как тогда добавить в TextBox1

(0) Интересная ветка :)

(5) ага.
а можно ли в своей форме. вывести таблицу ? http://www.ximage.ru/index.php?id=1367222970

(0) Есть yoksel и excel.
такого понятия как "ёксель" нет

Как узнать что это новая строка и табуляцию не надо добавлять

 For i = strDate To LR '?????????? ??????
    xDD = DateDiff("ww", DateValue(Now), Sheets("????1").Cells(i, ParamDate))
     If Date1 = xDD Or Date2 = xDD Then
      For j = 1 To LastColumns
       
      If s = "" Then
       s = Sheets("????1").Cells(i, j).Value
      Else
       s = s & vbTab & Sheets("????1").Cells(i, j).Value
      End If
     
      Next
      s = s & vbCrLf
    End If
  Next
  If s <> "" Then
  UserForm.TextBox1.Value = s
   UserForm.Show
  End If

как в UserForm.TextBox1 вывести гиперссылки на строку ?