Satır içinden veri silmek

[igultekin2000]

Merhaba;
Her ay mutat hale gelmiş şekilde banka ekstresi içinde bazı kelimeleri silmek istiyorum. Silmek istediğim kelimeleri "veri" sayfasına listeliyorum. Aktif çalışma sayfasının B sütunundaki satır içinde "veri" sayfasında bulunan kelimeyle eşleşen olduğunda, aktif sayfadaki o kelime silinecek. Benzer örnekler üzerinden ve yapay zeka ile çözmeye çalıştım, başarılı olamadım. Bu şekildeki makroyu nasıl yapabilirim. Cümle içindeki kelime olduğu için çözemedim. Teşekkürler.

 

[DoğanD]

Merhaba,

Aşağıdaki kodu boş bir modüle ekleyip dener misiniz?

Sub Sadele()
Dim i, y As Integer
For i = 2 To Sayfa1.Range("b" & Rows.Count).End(xlUp).Row
    For y = 2 To Sayfa2.Range("A" & Rows.Count).End(xlUp).Row
Sayfa1.Cells(i, 2) = Replace(Sayfa1.Cells(i, 2), Sayfa2.Cells(y, 1), "")
    Next y
Next i
End Sub

 

[igultekin2000]

Teşekkür ederim, pratik şekilde eşleşen verileri siliyor. Bu haliyle de sorunsuz kullanabilir. Sadece şu şekilde bir şey sormak istiyorum. Başta belirtmemişim ama büyük, küçük harfe duyarlı olabilir mi? Yani "Alıcı:" ve "alıcı:" olduğunda da iki kelimeyi de silmesi şeklinde. Eğer zaman alacak bir şeyse uğraşmanızı istemem. Zaten veri sayfasın sürekli güncelleneceği için iki şıkkı da ilave edebiliri. Tekrar teşekkür ederim.

 

[DoğanD]

Kodu aşağıdaki gibi güncelleyebilirsiniz.

Sub Sadele()
Dim i, y As Integer
For i = 2 To Sayfa1.Range("b" & Rows.Count).End(xlUp).Row
    For y = 2 To Sayfa2.Range("A" & Rows.Count).End(xlUp).Row
Sayfa1.Cells(i, 2) = Replace(Sayfa1.Cells(i, 2), Sayfa2.Cells(y, 1), "", , , vbTextCompare)
    Next y
Next i
End Sub

 

[igultekin2000]

Teşekkür ederim. Güncellenmiş kod sorunsuz çalışıyor. Elinize sağlık, abartılı gibi gelmesin ama iki saate yakın onlarca kod denemesini ChatGPT 3.5 ile yapmaya çalışmama rağmen olmadığına sevindim.
iyi çalışmalar.