[vb:1:7c6172e55a]Private Sub CommandButton1_Click()
Columns("a:d").Copy
Sheets("sayfa2").Select
Columns("a").PasteSpecial
Application.CutCopyMode = False
Sheets("sayfa1").Select
For a = 4 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("sayfa2").Columns(a).Delete
Next
End Sub
[/vb:1:7c6172e55a]
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.