İyi akşamlar Arkadaşlar. A:AM Sütunları arasında sütun boyunca herhangi bir veri içermeyen yani boş veya sıfır olabilir. bu sütunları silen makro için yardımcı olursanız çok sevinirim.
Aşağıdaki makro sadece boş olan sütunları siliyor. Ömer Baran Bey gönderdi sağ olsun. Ama dediğim gibi bir de hücre değer sıfır da olabildiğinden hem boş hem sıfır olan hücreler için sütun silme makrosu gerekli.
Sub BOŞ_SÜTUNLARI_SİL()
For sütun = 39 To 1 Step -1
If WorksheetFunction.CountBlank(Range(Cells(1, sütun), Cells(43, sütun))) = 43 Then
Columns(sütun).Delete Shift:=xlToLeft
End If
Next
End Sub
Aşağıdaki makro sadece boş olan sütunları siliyor. Ömer Baran Bey gönderdi sağ olsun. Ama dediğim gibi bir de hücre değer sıfır da olabildiğinden hem boş hem sıfır olan hücreler için sütun silme makrosu gerekli.
Sub BOŞ_SÜTUNLARI_SİL()
For sütun = 39 To 1 Step -1
If WorksheetFunction.CountBlank(Range(Cells(1, sütun), Cells(43, sütun))) = 43 Then
Columns(sütun).Delete Shift:=xlToLeft
End If
Next
End Sub