b sütununda hücre dolu ise a sütununa d yazsın

[sturan]

örnekteki gibi yapabilirmiyiz tesekkürler

 

[dEdE]

Merhaba,
Ekli örneği inceler misiniz?

 

[Ali]

Sub doldur()
t = Cells(65536, 2).End(xlUp).Row
For i = 2 To t
If Cells(i, 2) <> "" Then
Cells(i, 1) = "D"
End If
Next
End Sub

 

[sturan]

çok tesekkürler tam istediğim gibi elinize sağlık

 

[ibouzun]

arkadaşlar veriyi sildiğimizde a1 de yazan D duruyor bununda silinmesi gerekmezmi yada silinmesini istesem ne yapmam gerekir