Koşullu Silme ve AE gibi Seçili Hücreleri Boyama

[zozotr]

Selamlar arkadaşlar. Forumda bir sürü örnek var ama henuz beceremiyorum. Bu nedenle yardımınıza ihtiyacım var.
Aşağıda açıkladığım macro ları forumda verilen örneklerle baya bir denedim ama malesef beceremedim.

1. işlem Sil Butonuna Tıkladığımızda A,B,C,D,E,F, ... gibi sütunların hepsi dolu ve ben D Sütunundaki hücrede bilgi yok ise o satırın komple silinmesini istiyorum.

2. işlem ise Doldur Butonuna bastığımda ise AE Sütununda Otelin ismini yazan hücrelerin Sarı renge boyanması.

Yardımlarınızı rica ediyorum.
Şimdiden teşekkürler.
Saygılar zozo.

 

[Kemal Demir]

Merhaba,

içinin sildireceğin kod;

Sub CinSil()
For x = 13 To [a65536].End(3).Row
If Cells(x, 4) <> "C/in" And Cells(x, 2) <> "" Then
Rows(x & ":" & x).Select
Selection.Delete
End If
Next
End Sub

Boyama yapacagın kod;
Aşagıdaki kod'u hazırlama mantıgım,şayet a kolonunda merge(birleştirilmiş) hucre var ise calismakta.
Ornekleri incelediğimde hotel isimleri genelde hucreler merge(birleştirilmiş) edilmiş.Bu mantıktan yola cıktım.

Sub Boya()
For x = 12 To [a65536].End(3).Row
If Range("a" & x).MergeCells Then
Range("a" & x).Interior.ColorIndex = 6
End If
Next
End Sub

Umarım işinizi görür.

Dosyayı inceleyiniz.

 

[zozotr]

Çok Teşekkür ederim Sn. Kemal Demir. Kodlar çalışıyor. Ama küçük bir problem var. Sorun Sil dediğimizde hücre içeriklerini temizliyor. Bizim ihtiyacımız olan adıgeçen satırları komple sildirmek. Yani örnek D sütunu 14 numarada bahsedilen hücre var. ve biz D14 ü komple silecegiz.

Yardımcı olursanız çok memnun olurum.

Saygılar
Zozo

 

[Kemal Demir]

Çok Teşekkür ederim Sn. Kemal Demir. Kodlar çalışıyor. Ama küçük bir problem var. Sorun Sil dediğimizde hücre içeriklerini temizliyor. Bizim ihtiyacımız olan adıgeçen satırları komple sildirmek. Yani örnek D sütunu 14 numarada bahsedilen hücre var. ve biz D14 ü komple silecegiz.

Yardımcı olursanız çok memnun olurum.

Saygılar
Zozo

Merhaba,

Aşagıdaki kodu, dosyanıza eklermısınız.

Sub CinSil()
For x = 13 To [a65536].End(3).Row
If Cells(x, 4) <> "C/in" And Cells(x, 2) <> "" Then
Rows(x & ":" & x).Select
Selection.Delete
End If
Next
End Sub

 

[zozotr]

Harikasınız Sn Kemal Demir.
Kodlar mükemmel şekilde çalışıyor. istediğim buydu Teşekkürler.

 

[Kemal Demir]

İşinize yaradığına sevindim.

 

[zozotr]

Sn Kemal Demir ve forumdaki diğer üstadlar, Tekrar rahatsız ediyorum sizi. Ama örnek dosyada işe yapamasına rağmen 1500 satırdan fazla bir dosyada işlemi tam olarak yapamıyor. Dosyayı tekrar size ekliyorum verdiğiniz kodla beraber.

Rica etsem tekrar ilgilenebilirmisiniz? Kodun yapması gereken satırın içini boşaltmak değil o satırı komple silmek!

Saygılar

 

[fedeal]

Sayın Kemal DEMİR müsadenizle;

Sub CinSil()
For x = 13 To [a65536].End(3).Row
If Cells(x, 4) <> "C/in" And Cells(x, 2) <> "" Then
Rows(x & ":" & x).Select
Selection.Delete
x = x - 1
End If
Next
End Sub

siz d sütunu boş ise silmek istiyorsanız ufak bir ilave yaptım.Aslında kodlar doğru fakat satır silinince döngüde silinen satırın sonrası atlanıyor.İyi çalışmalar.

 

[Kemal Demir]

Sayın Kemal DEMİR müsadenizle;

Günaydın,

Hocam nedemek, lutfen.

 

[zozotr]

üstadlar cok tesekkurler. Sorunum bu sefer kökunden cozuldu.
Sn. Fedeal üstad saol. Sn. Kemal Demir sizede cok tesekkurler.

 

[Altay3555]

Selam Fedeal kardeş...
benim formlarla ilgileneceğim demiştiniz ama halit3 bey i sıktık bu arada.çok fazla isteğimiz olunca galibabizden bıktı diye düşünüyorum..olsun tabiki,bende çok şey istedim galiba...
neyse..