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

'lngClnEnd = Cells(1, 256).End(xlToLeft).Column

'lngRowEnd = Columns(1).Rows(65536).End(xlUp).Row

'lngClnVal = Rows(1).Find(What:="Дата", LookAt:=xlWhole).Column

'lngRowVal = Columns(1).Find(What:=VINValue, LookAt:=xlWhole).Row


''Загрузка

' aTemp = Range(.Cells(2, lngClnStart), .Cells(lngRowEnd, lngClnEnd)).Value


''Выгрузка

'.Cells(2, 1).Resize(UBound(aTemp)) = aTemp

'.Cells(2, 1).Resize(UBound(aTemp), UBound(aTemp, 2)) = aTemp

 
MyTetra Share v.0.53
Яндекс индекс цитирования