asdsxx
Altın Üye
- Katılım
- 22 Mayıs 2012
- Mesajlar
- 502
- Excel Vers. ve Dili
- Excel 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-02-2027
Arkadaşlar sizlerden bir yardım bekliyorum
Arkadaşlar yukarıdaki kod şu an açılışıyor ama eksikliği şu:
"C2" hücresi boş ise işlem yapmıyor. Eğer "C2" hücresi dolu ise "C" sütunundaki boş satırları tüm satır olarak siliyor.
Bu kodu şu şekilde düzenleyebilirmiyiz:
"C" sütununu "C2" den başlayarak ("C2" çalışmanın gereği mutlaka boş oluyor) sadece "C" sütunundaki boş hücreleri kaldıracak. Tüm satırı kaldırmayacak.
Ben kodun başına:
ekleyerek "C2" Hücresini önce sildirip sonra işleme devam ediyor ama Tüm boş satırları değilde (bu durumda diğer sütunlardaki verilerde siliniyor) sadece "C" sütunundaki boş satırları silmesini yapamadım.
Kod:
Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim i As Long
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For i = lastRow To 2 Step -1
If Application.WorksheetFunction.CountA(Range("B" & i & ":C" & i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
"C2" hücresi boş ise işlem yapmıyor. Eğer "C2" hücresi dolu ise "C" sütunundaki boş satırları tüm satır olarak siliyor.
Bu kodu şu şekilde düzenleyebilirmiyiz:
"C" sütununu "C2" den başlayarak ("C2" çalışmanın gereği mutlaka boş oluyor) sadece "C" sütunundaki boş hücreleri kaldıracak. Tüm satırı kaldırmayacak.
Ben kodun başına:
Kod:
Range("C2").Select
Selection.Delete Shift:=xlUp
Range("C1").Select