- Katılım
- 22 Mayıs 2009
- Mesajlar
- 1,017
- Excel Vers. ve Dili
- Office 2003
Private Sub CheckBox2_Click()
Range("AW10:AW90").Select
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
CheckBox işaretli iken AW10:AW90 aralığındaki veriyi A9 dan itibaren kopyaladıktan sonra CheckBox işaretini kaldırınca a9 dan itibaren tüm yapıştırdıklarını silmesi için koda ne eklemeliyim ?
Saygılarımla
Range("AW10:AW90").Select
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
CheckBox işaretli iken AW10:AW90 aralığındaki veriyi A9 dan itibaren kopyaladıktan sonra CheckBox işaretini kaldırınca a9 dan itibaren tüm yapıştırdıklarını silmesi için koda ne eklemeliyim ?
Saygılarımla