[vb:1:40a006be42]Sub sil()
For a = Cells(1, 256).End(xlToLeft).Column To 1 Step -1
If Cells(1, a) = 0 Then Cells(1, a).Delete Shift:=xlToLeft
Next
End Sub
[/vb:1:40a006be42]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.