Bir hücreye veri girdiğinde yantarafa otomatik doldurma

[Schuba]

Arkadaşlar şöyle bir makroya ihtiyacım var

B25:B30000 aralığındaki hücrelere "reklam" haricinde başka ne yazarsam yazıyım yazdığım hücrenin bulunduğu
satırdaki F. H. I. J. K. L. M sütunlarındaki hücrelere otomatik " yok" yazssın

 

[BAZGİRET]

Bu kodu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B25:B30000]) Is Nothing Then Exit Sub
For i = 6 To 13
If Target.Value <> "Reklam" Then
Cells(Target.Row, i).Value = "Yok"
End If
Next

End Sub

 

[Schuba]

hocam ellerinize sağlık çok güzel olmuş teşekkür ederim
fakat sizden küçük bir ekleme isticem yardımcı olursanız

B25:B30000 arasına "reklam" harici birşey girdiğim zaman tam istediğim gibi yan taraflara "yok" yazıyor
buraya kadar çok güzel
isteğime gelince "reklam" harici birşey girdiğim zaman hani yantaraflara "yok" yazıyor ya
örneğin daha önce "reklam" harici hücrenin içine girdiğim veriyi "reklam" olarak düzelttiğim zaman veya hücrenin içini temizlediğim zaman yan taraflara yazılan "yok" metinleri de silinsin

 

[BAZGİRET]

Bu şekilde deneyin o halde

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B25:B30000]) Is Nothing Then Exit Sub
For i = 6 To 13
If Target.Value <> "Reklam" Then
Cells(Target.Row, i).Value = "Yok"
Else
Cells(Target.Row, i).Value = ""
End If
If Target.Value = "" Then
Cells(Target.Row, i).Value = ""
End If
Next
End Sub

 

[Schuba]

ellerinize sağlık hocam tam istediğim gibi oldu teşekkür ederim

 

[BAZGİRET]

Ben teşekkür ederim. Kolay gelsin...