Excel sayfasını Açıldığında A1 hücresindeki yazılı

[imdatsaral]

selam Arkadaşlar

Benim yapmak istediğim A1 hücresindeki yazılı tarihi e sütünunda buluması
Bu makroyu Autpen Olarak kullanmak istiyorum

imdat saral
izmir

 

[imdatsaral]

Arkadaşlar

dosyayı incelermisiniz

 

[Levent Menteşoğlu]

Aşağıdaki kodu ekte sunduğunuz dosyanın bir module sayfasına kopyalayın.

Sub Autpen()
a = [a1].Value
For b = 1 To WorksheetFunction.CountA(Sheets("sayfa1").Range("E1:E65000"))
If Cells(b, 5) = [a1] Then
Cells(b, 5).Select
GoTo 10
End If
Next b
10 End Sub

selamlar

 

[imdatsaral]

Teşekkür Ederim Eline Sağlık

 

[mlakdag]

Sayın leventm'in yazdıklarının alternatifi olabilir mi bilmiyorum ama ben deekli dosyadaki şekilde çözmeye çalışmıştım