silme işlemi

[marimar]

merhaba arkadaşlar ekteki dosyada açılan formda textbox'a girilen verinin tüm çalışma kitabından silinmesini istiyorum nasıl yapabilirim ?
mesela textbox'a fatma yazınca tüm çalışma kitabındaki fatma isimlerinin silinmesini istiyorum.
teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Worksheets.Count
On Error Resume Next
Sheets(i).Cells.Replace What:=TextBox1.Value, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i
MsgBox "Silme işlemi yapıldı..!!"
End Sub

 

[marimar]

çok teşekkür ederim sn. orion2.
hızır gibi yetişiyorsunuz Allah razı olsun.

 

[Orion1]

çok teşekkür ederim sn. orion2.
hızır gibi yetişiyorsunuz Allah razı olsun.

Rica ederim.
İyi çalışmalar.

 

[marimar]

ama bir sorun var:
mesela "mehmet" ismini silince "mehmet ali" ismindeki mehmet'ler de siliniyor.
bunu nasıl düzeltebilirim.

 

[Orion1]

ama bir sorun var:
mesela "mehmet" ismini silince "mehmet ali" ismindeki mehmet'ler de siliniyor.
bunu nasıl düzeltebilirim.

Ekli dosyayı deneyiniz.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Worksheets.Count
On Error Resume Next
Sheets(i).Cells.Replace What:=TextBox1.Value, Replacement:="", LookAt:=[COLOR="Red"]xlWhole[/COLOR], _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i
MsgBox "Silme işlemi yapıldı..!!"
End Sub

 

[mrttrn]

Private Sub CommandButton1_Click()
  For Each i In Range(Cells(1, 1), Cells(100, 100))
     If i.Value = TextBox1.Value Then i.Value = ""
  Next i
End Sub

Örneğin; textbox1 e AHMETyazıp.Sil tıklandığında AHMET olan hücreler silerken ; AHMET CAN gibi isimleri silmiyor.

 

[Orion1]

6 numaralı mesajda cevabı verdim.

 

[marimar]

teşekkür ederim