DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba, yedek alıp deneyebilir misiniz;
Kod:Sub BSutunundaOlanKelimeleriSil() Dim aCell As Range, bRange As Range Dim sonSatir As Long, i As Long sonSatir = Cells(Rows.Count, 1).End(xlUp).Row Set bRange = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row) For i = sonSatir To 1 Step -1 If WorksheetFunction.CountIf(bRange, Cells(i, 1).Value) > 0 Then Cells(i, 1).Delete Shift:=xlUp End If Next i End Sub
Maalesef ben excelde acemiyim, bu yazdığınızı ne yapacağım veya nereye yapıştıracağım bilmiyorum. Formülü falan yok mudur acaba textsplit gibiMerhaba, yedek alıp deneyebilir misiniz;
Kod:Sub BSutunundaOlanKelimeleriSil() Dim aCell As Range, bRange As Range Dim sonSatir As Long, i As Long sonSatir = Cells(Rows.Count, 1).End(xlUp).Row Set bRange = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row) For i = sonSatir To 1 Step -1 If WorksheetFunction.CountIf(bRange, Cells(i, 1).Value) > 0 Then Cells(i, 1).Delete Shift:=xlUp End If Next i End Sub
Maalesef olmadı. Bunun bir formülü muhakkak vardır da bilen biri yardımcı olur umarım. Çok teşekkür ederimAlt + F11 tuşuna basıp, açılan pencerede Insert > Module seçip, açılan alana size verdiğim makro kodunu yazabilirsiniz. Sonrasında F5 tuşuna basarak çalıştırabilirsiniz ya da Alt + F8 ile makroyu listeden seçip çalıştırabilirsiniz.
Formül konusunda, diğer arkadaşlar sizlere daha iyi yardımcı olur düşüncesindeyim. İyi çalışmalar.
Ahmet | Selim |
Mehmet | Ahmet |
Merhaba Ahmet | Hoşçakal Selim |
Nasılsın Mehmet | Selam Ahmet |
Merhaba.
A ve B sütunlarında sadece birer kelime mi var yoksa birden fazla kelime mi var buna göre çözüm yolu değişir.
Örnek1:
Ahmet
Selim
Mehmet
Ahmet
Örnek 2:
Merhaba Ahmet
Hoşçakal Selim
Nasılsın Mehmet
Selam Ahmet
Sizin verileriniz hangi örnekteki gibi. Yada farklıysa nasıl?
Görsel açılmıyor maalesefMerhaba,
Yardımcı sütun kullanabilirsiniz.
Resmi inceleyiniz.
C sütuna göre değeri Sıfır haricindekileri filtreleyip A sütununu silebilirsiniz.
Ekli dosyayı görüntüle 257531
=KIRP(YERİNEKOY(D2;H2;""))
Bu hatayı veriyor görsele tıklayıncasorunuzun cevabı alttaki görselde
Ekli dosyayı görüntüle 257532