Silinecek satırlar

[tahsinanarat]

Ekli dosyada a sutununda bulunan ve türkçe karşılığı bulunmayan almanca kelimelerin bulunduğu satırıların silinmesini istiyorum, liste çok uzun olduğu için makro yardımı ile silmek istiyorum, yardımcı olacak arkadaşlara şimdiden teşekker ederim.
Ayrıca aynı dosyada türkçe karşılıklar italik olması da mümkünmüdür.

 

[Seyit Tiken]

Sizin mantığınızla bu nasıl yapılacaksa, bilmiyorum. Yalnız manuel tarzında basit bir kod hazırladık.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection = ""
End Sub

 

[tahsinanarat]

Genelde türkçe karşılığı olmayanlar ":", ")", "-" işaretleri ile bitiyor ve sonunda boşluk olmuyor, mantığı güdülebilir mi acaba

 

[Seyit Tiken]

Kendimce bende biraz baktım. Türkçe tanımı olan ve olmayan. Acaba bir ölçüt bulanabilir mi? Belirgin bir kıstas bulunursa, sizin mantığına göre bir şeyler yapılabilir diye düşünüyorum. Şahsen ben öyle belirgin bir farklılık görmedim.

 

[tahsinanarat]

Peki saadece ikinoktaüsüste den sonrası boş ise satır silinsin diyebilirmiyiz, kısmen bir kısmını halletmiş olurum.

 

[Skorpiyon]

Sayın tahsinarat,

Bu dosyanıza birşey diyemeyeceğim ama; bundan sonraki çalışmalarınız için,

Kelimenin Türkçe karşılıklarını aynı hücre yerine bir yan hücreye yazarsanız, karşılığı olmayanları silmek inanın çok basit olur.

Saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre sonunda ":" ve "-" olan hücrelere ait satırları aşağıdaki kod ile silebilirsiniz. ")" işaretini özellikle eklemedim. Çünkü sonunda bu işaret olup silinmemesi gereken satırlar mevcut. Umarım bu haliyle faydası olur.

Sub KONTROLLÜ_SATIR_SİL()
    For X = [A65536].End(3).Row To 1 Step -1
    Kriter = Right(Cells(X, 1), 1)
    If Kriter = ":" Or Kriter = "-" Then Rows(X).Delete
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[tahsinanarat]

Sayın Skorpiyon, datalar word dosyasından mevcut olup, düzenleme amacıyla excele aktarıldı, düzenlendikten sonra yine word dosyasına taşınacaktır,
Sayın Cost_Control hocam, verdiğiniz kodlar mükemmel, işimizin % 80'nini halledeceğinden eminim, eline sağlık, çok teşekker ediyorum, saygılar Tahsin ANARAT

 

[tahsinanarat]

Saın Cost_Control hocam,
If Kriter = ":" Or Kriter = "-" Then Rows(X).Delete
değilde
If Kriter = "-s" Or Kriter = "-e" Then Rows(X).Delete
gibi veya üç - dort harfden oluşan kelime varsa sil denilmiş olsaydı, kodda nasıl bir değişiklik olacaktı, bu şekilde denedim silmedi.

 

[Skorpiyon]

Sayın Cost_Control hocamın kodlarını aşağıdaki şekilde düzeltirseniz, sanırım işinizi görür.

Sub KONTROLLÜ_SATIR_SİL()
For X = [A65536].End(3).Row To 1 Step -1
Kriter = Right(Cells(X, 1), 2)
If Kriter = "-e" Or Kriter = "-s" Then Rows(X).Delete
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

Saygılarımla...​

 

[tahsinanarat]

Sub KONTROLLÜ_SATIR_SİL()
For X = [A65536].End(3).Row To 1 Step -1
Kriter = Right(Cells(X, 1), 1)
If Kriter = ":" Or Kriter = "-" Then Rows(X).Delete
Next
For X = [A65536].End(3).Row To 1 Step -1
Kriter = Right(Cells(X, 1), 2)
If Kriter = "i-" Or Kriter = "s-" Then Rows(X).Delete
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
her iki kriter içinde olurmu diye soracaktım, yukardaki gibi denedim oldu, emeği geçen bütün hocalarımın ellerine sağlık, allah sizi başımızdan eksik etmesin.