MyTetra Share
Делитесь знаниями!
поиск и выделение даты в столбце
Время создания: 16.03.2019 23:43
Текстовые метки: Activate, поиск и выделение даты в столбце
Раздел: !Закладки - VBA - Excel - Листы

Private Sub Worksheet_Activate()

'поиск и выделение даты в столбце

Dim strVal As String, strValCell As String

Dim lngRowDate As Long


strVal = Format(Now, "DD.MM.YYYY")

strVal = UCase(strVal)

i = 2

strValCell = UCase(Trim(Cells(i, 1).Value))

Do While strVal <> strValCell

strValCell = UCase(Trim(Cells(i, 1).Value))

i = i + 1

Loop


lngRowDate = i - 1 'w_Find.FnFindRowINCln(strShFind, strDate, 1)

If lngRowDate > 0 Then

Cells(lngRowDate - 1, 1).Select

ActiveCell.Offset(1, 0).Range("A1").Select

' ActiveWindow.SmallScroll Down:=6

End If

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования