Şarta bağlı sütun silme

[YILDIZ YAĞMURU]

aşağıdaki kod E sütununda ("E8:E155") arasında veri yoksa E sütununu siliyor . fakat aynı anda D sütununuda silmesini istiyorum .
yani E sütununda E8:E155 arasında veri yoksa hem E sütununu Hem D sütununu aynı anda silsin . D sütununda veri olsada silsin.

yardım ederseniz çok sevinirim

Sub Bos_Satirlari_Sil()

On Error GoTo Son
Range("E8:E155").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
Son:

End Sub

 

[ZorBey_]

Merhaba iyi çalışmalar
Sayın YILDIZ YAĞMURU
Denermisiniz

Sub Boş_satır_sil()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If IsEmpty(Cells(i, 5)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[YILDIZ YAĞMURU]

ZorBey merhaba

Merhaba iyi çalışmalar
Sayın YILDIZ YAĞMURU
Denermisiniz

Sub Boş_satır_sil()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If IsEmpty(Cells(i, 5)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

Fakat bu kod satırları siliyor .. Benim istediğim Sütun silme işlemi

 

[vardar07]

Benim istediğim Sütun silme işlemi

Merhaba Sadece D ve E sütunlarını komplemi yoksa D8:E155 hücrelerinimi silmek istiyorsunuz.

 

[YILDIZ YAĞMURU]

Merhaba Sadece D ve E sütunlarını komplemi yoksa D8:E155 hücrelerinimi silmek istiyorsunuz.

E8:E155 arasındaki hücreler boşsa
D:E sütunlarını komple silmek istiyorum.

D8:E155 değil E8:E155 hücreleri boşsa

 

[ExcelF1]

Aşağıdaki şekilde deneyiniz.

For a = 8 To 155
If Cells(a, 5) = "" Then b = b + 1
Next a
If b = 148 Then Columns("D:E").Delete Shift:=xlToLeft

 

[YILDIZ YAĞMURU]

Sayın ExcelF1

Aşağıdaki şekilde deneyiniz.

For a = 8 To 155
If Cells(a, 5) = "" Then b = b + 1
Next a
If b = 148 Then Columns("D:E").Delete Shift:=xlToLeft

çok teşekkür ederim fakat şöyle bir sorun çıktı. Boş sandığım E8:E155 arasındaki hücrelerin bir kısmında 0 (sıfır) değeri var bir kısmı ise boş . bu yüzden sıfır değerleri dolu gördüğü için kod çalışmıyor. sıfır değerleri sildiğimde kod çalışıyor.
kodu bu hücrelerde hem sıfır değerler varsa hem boşsa diye revize edebilirmiyiz acaba

 

[ExcelF1]

Bu şekilde deneyiniz.

For a = 8 To 155
If Cells(a, 5) = "" Or Cells(a,5) = 0 Then b = b + 1
Next a
If b = 148 Then Columns("D:E").Delete Shift:=xlToLeft

 

[qwertylion]

If b = 148

Hocam yeni yeni öğreniyorumda bu kodun anlamı ne? Burayıanlayamadım, neden 148 yazdık?

 

[Korhan Ayhan]

E8:E155 aralığında 148 adet hücre var.

b=b+1 ile bu hücreler sayılıyor. Sayım sonucu 148 ise tüm hücreler sizin belirttiğiniz kriterlere uyuyor demektir. Bu durumda da sütunlar siliniyor.

 

[qwertylion]

Teşekkür ederim

 

[YILDIZ YAĞMURU]

çok teşekkürler

Bu şekilde deneyiniz.

For a = 8 To 155
If Cells(a, 5) = "" Or Cells(a,5) = 0 Then b = b + 1
Next a
If b = 148 Then Columns("D:E").Delete Shift:=xlToLeft

çok teşekkürler

 

[ExcelF1]

Rica ederim. Kolay gelsin.