satırın silinmesi hk

[zamenya]

Sayın Hocalarım Merhaba
bir excel tablosun h stünun deki hücre değerleri 0 (sıfır) dan büyükse o satırın silinmesini nasıl sağlaya bilirim

 

[Orion1]

Sub sil()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "H").End(xlUp).Row To 1 Step -1
    If Cells(i, "H").Value > 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub

 

[zamenya]

sayın evren gizlen çok teşekkürler yardımınız için bir kouda daha yardıma ihtiyacım eğer sizi sıkamayacaksa var konuyla ilgili olark eğer a stünündaki hücre değeri 100 olanları c hücresindeki karşılık gelen değerlerinin toplanı nasıl aldırabilirim

 

[Orion1]

sayın evren gizlen çok teşekkürler yardımınız için bir kouda daha yardıma ihtiyacım eğer sizi sıkamayacaksa var konuyla ilgili olark eğer a stünündaki hücre değeri 100 olanları c hücresindeki karşılık gelen değerlerinin toplanı nasıl aldırabilirim

MsgBox "C sütunu Toplamı : " & WorksheetFunction.SumIf(Range("A1:A65536"), 100, Range("C1:C65536"))

 

[zamenya]

sayın evren gizlen yardımlarınız için çok teşekkürler

 

[Orion1]

sayın evren gizlen yardımlarınız için çok teşekkürler

Rica ederim.
İyi çalışmalar.

 

[zamenya]

sayın evren hocam yukarıda verdiğiniz kodu bütün h sütünü değilde h8:h65536 şeklinde düzenleyebilirm
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "H").End(xlUp).Row To 1 Step -1
If Cells(i, "H").Value > 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True

 

[Orion1]

sayın evren hocam yukarıda verdiğiniz kodu bütün h sütünü değilde h8:h65536 şeklinde düzenleyebilirm
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "H").End(xlUp).Row To 1 Step -1
If Cells(i, "H").Value > 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True

Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "H").End(xlUp).Row To 8 Step -1
If Cells(i, "H").Value > 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True

 

[zamenya]

satır silinmesi hk

Sayın evren hocam kusura bakmayın sizi yine rahatsız ediyorum h8 sütündan iti baren h ve ı sütününü karşılaştırıp her iki sütündeki değer sıfırdan büyükse nasıl sildirebilirim yani iki sütün birisinde 0 varsa silinmeyecek gibi

 

[Orion1]

Sayın evren hocam kusura bakmayın sizi yine rahatsız ediyorum h8 sütündan iti baren h ve ı sütününü karşılaştırıp her iki sütündeki değer sıfırdan büyükse nasıl sildirebilirim yani iki sütün birisinde 0 varsa silinmeyecek gibi

Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "H").End(xlUp).Row To 8 Step -1
If Cells(i, "H").Value > 0 And Cells(i, "I").Value > 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True

 

[zamenya]

sayın hocam çok teşekkürler

 

[Orion1]

sayın hocam çok teşekkürler

Rica ederim.