satırda yer alan bilgilerin silinmesi

[karakayalı]

iyi bayramlar...dosya ektedir...bu bayram gününde yardımlarınız için şimdider teşekkürler...

 

[omerceri]

Sayfa1'in modülüne aşağıdaki kodları yazarsan,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b1] = "Ankara" Then
Range("B2:B65536").Delete Shift:=xlUp
Range("F2:F65536").Delete Shift:=xlUp
End If
End Sub

 

[karakayalı]

syn omerceri makro hata verdi...

 

[omerceri]

Denedim, hata vermemesi gerekiyor.
Açıklar mısınız?

 

[omerceri]

Örnek Ekte.

 

[cebir]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b1").Value = "ANKARA" Then
Rows(1 + 1).Delete
Rows(1 + 1).Delete
Range("b1").Value = ""
Exit Sub
End If
End Sub

 

[karakayalı]

makro Can't -perform reguested operation-hatası veriyor...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value = "ANKARA" Then
    Range("F1:F65536").Delete (xlUp)
    Range("B1:B65536").Delete (xlUp)
End If
Application.EnableEvents = True
End Sub

 

[karakayalı]

SAYIN Orion2 B1 sutununa ankara yazıp enter yaptğımda tüm satırları sildi...benim istediğim B1 sutununa her hangi bir cümle yazdığımda, yazılan cümle hangi satırda bulunuyorsa onu makro yardımı ile silmek istiyorum...kolay gelsin

 

[Orion1]

Ekli dosyayı inceleyiniz.
İstediğiniz böyle bir şeymi?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value = "" Then Exit Sub
Set k = Range("B2:B65536").Find(Target.Value, , xlValues, xlWhole)
Set c = Range("F1:F65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Rows(k.Row).Delete
End If
If Not c Is Nothing Then
    Rows(c.Row).Delete
End If
hata:
Application.EnableEvents = True
End Sub

 

[karakayalı]

evet siliyor ancak ankara kelimesini aşağıya doğru çektiğimde hepsini silmiyor B1 hücresine her defasında ANKARA kelimesini girmem gerekiyor...B1 SUTUNUNA kelimeyi yazdığımda sil komutu ile hepsini silmek istiyorum..kolay gelsin ...

 

[cebir]

merhaba..

ekte ki gibimi ?

 

[karakayalı]

Sayin Cebİr TeŞekkÜrler...