PrivateSub Worksheet_Activate() Dim data As Long, rg As Range
data = Date Set rg = Rows(1)
Application.Goto Cells(1, WorksheetFunction.Match(data, rg, 0)), True ' lub 'Cells(1, WorksheetFunction.Match(data, rg, 0)).Select EndSub
napisał: awiczuk postów: 1
umieszczony: 28 stycznia 2008 10:24
witam,
prosze o pomoc , a moj problem wyglada nastepujaco:
mam plik excell'a w ktorym w pierwszym wierszu w kolumnach są daty , jest ich sporo i chcialbym zeby po otwarciu skoroszytu ustawial mi sie na aktualnej dacie jak to zrobic , probowalem juz wszystkiego ale nie dziala.
With Worksheets(arkusz)
w = Application.Match(CDbl(Date), _
.Range("A1:DD1"), 1)
MsgBox "pozycja:" & w
End With
wyszukuje w ten sposob ale ale dostaje tylko nr bez kolumny.