satır silmede bir den fazla sütun ile karşılaştırma

[conari]

Sub SİL()
For X = 1 To [A65536].End(1).Row
If Cells(X, "A") = "" Then
Cells(X).Delete
End If
Next
End Sub

arkadaşlar A Sütunundan Z sütununa kadar bakacak hepsi boş ise silecek ??
çıkamadım içinden

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub SİL()
For X = Cells.SpecialCells(xlCellTypeLastCell).Row to 1 step -1
If worksheetfunction.counta(range("a" & x & ":z" & x)) =0 Then
rows(X).Delete
End If
Next
End Sub

 

[conari]

Levent teşekkürler
burarada 0 koşulu boş anlamını taşıyor sanırım doğrumudur?

konu ile biraz alakalı ama

target ile yapamadım sayfada herhangi bir hücrenin yeri v.s. değiştiğinde bir makro çalıştıracağım.

burda nasıl bir if komutu verip benim makromu çalıştırabilirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Levent Menteşoğlu]

burarada 0 koşulu boş anlamını taşıyor sanırım doğrumudur?

Evet

target ile yapamadım sayfada herhangi bir hücrenin yeri v.s. değiştiğinde bir makro çalıştıracağım.

burda nasıl bir if komutu verip benim makromu çalıştırabilirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Bu sorunuzu anlayamadım. Yeri değişmekten kastınız nedir.

 

[conari]

Sayfadaki herhangi bir hücrenin değeri değiştiğinde
yani a1 5 iken 10 oldu veya
h810 50 iken 100
yani range önemli değil herhandi bir hücrede değişiklik olduğunda.

makro çalıştıracağım
work.change de
target ile beceremedim:yardim: :roll:

 

[Levent Menteşoğlu]

worksheet_change olayını kullanabilirsiniz.

 

[conari]

Levent tamam Select. kullandığım için olmuyormuş
çalıştı.