e sutunundaki hücre doluysa (d )ye tarih atsın

[jambow]

e sutununda 2 den başlayıp 300-400 aşağıya doğru uzayan isimler var d sutununa o günün tarihini yazdırabilirmiyiz. tabi (e) sutununda ki hücrede isim varsa tarih atacak

şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları Butonla ilişkilendiriniz.

Sub Tarih()
Dim i As Long
Application.ScreenUpdating = False
For i = 4 To [E65536].End(3).Row
    if Cells(i, "E") <> "" Then Cells(i, "D") = Date
Next i
Application.ScreenUpdating = True
End Sub

 

[jambow]

ok teşekkürler

 

[aliakgul]

For i = 4 To [E65536].End(3).Row
[/CODE]

Hocam bu satırdaki paranteziçinde yer alan 3 neyi ifade etmektedir?Bunun yerine başka bir değer girilebilir mi,yoksa sabit mi?

 

[Necdet]

Hocam bu satırdaki paranteziçinde yer alan 3 neyi ifade etmektedir?Bunun yerine başka bir değer girilebilir mi,yoksa sabit mi?

Merhaba,

3 yukarı ok anlamında sanırım uzun yazınca xlUp olabilir.

65536. satırdan yukarı doğru çıkarak en son dolu hücreyi bulmak için kullanılıyor.

Bu konuyu açıklayan Sayın Yurttaş'ın güzel açıklaması vardı, onu inceleyebilirsiniz.

 

[aliakgul]

Teşekkür ederim...