Kayıtlı kelimeleri eleme ?

[Gorarr]

Selamlar, Korhan hocanın kod içine kelime girerek hazırladığı program çok iyi ancak yeni kelimeleri girmek zor oluyor.

Yapmak istediğim şey "A" sütunundaki kelimeler içinden elenicek kelimeler "M" sütununa yazdıklarım.

Yardımcı olabilirseniz çok sevinirim. Şimdiden çok teşekkür ederim.

 

[İhsan Tank]

Selamlar, Korhan hocanın kod içine kelime girerek hazırladığı program çok iyi ancak yeni kelimeleri girmek zor oluyor.

Yapmak istediğim şey "A" sütunundaki kelimeler içinden elenicek kelimeler "M" sütununa yazdıklarım.

Yardımcı olabilirseniz çok sevinirim. Şimdiden çok teşekkür ederim.

Merhaba
Kodu boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tanımlı_sil_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Eşit Olanları Siliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For kaplan = 1 To Cells(Rows.Count, "M").End(xlUp).Row
For ts = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(ts, "A") = Cells(kaplan, "M") Then
Cells(ts, "A") = ""
End If
Next
Next
Range("A:A").Sort key1:=Range("A1"), order1:=xlAscending
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub

 

[Gorarr]

Hocam çok teşekkür ederim. Ellerinize sağlık. İyigünler.

 

[İhsan Tank]

Hocam çok teşekkür ederim. Ellerinize sağlık. İyigünler.

Rica ederim
:keyif: