Şarta bağlı olarak dolu hücreleri silmek

[coşkun79]

Merhabalar. Ekteki dosyanın "I" sütununda eğer "x" var ise ilgili satırın silinmesini makro ile nasıl sağlayabilirim. Mesela "I6" hücresinde "x" bulunduğu için "B6:I6" arasındaki değerleri silmek istiyorum. Aynı şekilde diğer satırlar için de bu geçerli. Tablonun silme işleminden sonraki olması gereken halini de sağdaki ikinci tabloda gösterdim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
For s = 6 To [I65536].End(3).Row
If Cells(s, "I") = "X" Then Range("B" & s & ":I" & s) = ""
Next
End Sub

 

[coşkun79]

Teşekkür ederim. Emeğinize sağlık. Ben makroyu butona atadım. Çalıştı. Ama orjinal hali ile nasıl çalıştığını merak ettim. Çift tıklama falan yazıyor ilk satırda. Bilgisizliğim için kusura bakmayın

 

[Seyit Tiken]

Yukarıdaki kodu ilgili sayfanın kod bölümüne yapıştırın > çalışma alanı üzerinde çift tıklayıp deneyiniz.

 

[coşkun79]

"I" sütununda eğer "X" olan tüm satırların kopyalanması ile ilgili bir makro denemesi yaptım ama beceremedim. ikinci makroda nasıl bir değişiklik yaparsam bunu sağlayabilirim acaba.

 

[coşkun79]

Sub iki()
For i = 6 To [H65536].End(3).Row
If Cells(i, "I") = "X" Then Range("B" & i & ":H" & i).Copy
Next
End Sub

Yukarıdaki kod "I" sütununda "X" yazması halinde kopyalıyor. Ama bütün satırları kopyalamıyor. Nasıl bir değişiklik yaparsam düzeltebilirim acaba