Soru Eğer

[Szg15]

Üstadlar hayırlı iftarlar.

Aşağıdaki gibi bir makroya ihtiyacım var, yardımcı olursanız memnun olurum.

Eğer y3 hücresi dolu ise ab3 hücresine X yazsın, y3 hücresi boş ise ab3 hücresini boş bıraksın.

Bu işlemi y3’ten y500’e kadar (ab3’ten ab500’e kadar) yapsın. Aradaki hücrelere günün birinde satır eklenir ise eklenen satıra da bu işlemi gerçekleştirsin.

Yapılabilir mi?

 

[relaxim]

Sub Aktar()
Dim i As Integer
For i = 3 To 500

If Sayfa1.Range("y" & i) <> "" Then
Range("ab" & i).Value = "x"
Else
Range("ab" & i).Value = ""
End If
Next i
MsgBox "İşlem tamam."
End Sub

 

[Szg15]

Sub Aktar()
Dim i As Integer
For i = 3 To 500

If Sayfa1.Range("y" & i) <> "" Then
Range("ab" & i).Value = "x"
Else
Range("ab" & i).Value = ""
End If
Next i
MsgBox "İşlem tamam."
End Sub

Sayfa1.Range yerinde hata veriyor üstad.

yukarıdaki işlemleri GENEL isimli sayfanın Y ve AB sütunlarında yapmasını istiyorum. Sayfa1 yerine GENEL yazdım olmadı

 

[ÖmerFaruk]

Sayfa1 yerine Sheets("GENEL") yazın.

 

[Szg15]

Sayfa1 yerine Sheets("GENEL") yazın.

Teşekkür ederim