CheckBox ve rapor

[ccumhur]

arkadşlar sçilen CheckBox un durumuna göre nasıl rapor oluştura bilirim
dosya ekdedir. tşk.

 

[Levent Menteşoğlu]

Raporla butonuna aşağıdaki kodu yazın.

[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]