Birden Çok Hücreyi Kopyalama

[kadir78]

Aşağıdaki kodları kullanarak birden çok hücreyi kopyalamak istiyorum fakat en son seçilen onay kutusunu kopyalama yapıyor. Benim istediğim birden fazla onay kutusunu işaretlediğimde hepsini kopyalama yapması gerekiyor. Bu konuda yardımcı olursanız sevinirim. İyi günler.

Private Sub CheckBox1_Click()
Range("A1").Select
End Sub

Private Sub CheckBox2_Click()
Range("A2").Select
End Sub

Private Sub CheckBox3_Click()
Range("A3").Select
End Sub

Private Sub CheckBox4_Click()
Range("A4").Select
End Sub

Private Sub CheckBox5_Click()
Range("A5").Select
End Sub

 

[PLİNT]

Merhaba
Ek dosyadaki gibi işinize yararmı?
http://s4.dosya.tc/server/igiptc/Kitap1.zip.html

[SIZE="2"]Private Sub CheckBox1_Click()
Call cbox
End Sub
Private Sub CheckBox2_Click()
Call cbox
End Sub
Private Sub CheckBox3_Click()
Call cbox
End Sub
Private Sub CheckBox4_Click()
Call cbox
End Sub
Private Sub CheckBox5_Click()
Call cbox
End Sub
Sub cbox()
Dim a As OLEObject
For c = 1 To 5
If ActiveSheet.OLEObjects("CheckBox" & c).Object = True Then
If s <> Empty Then j = ","
s = s & j & "A" & c
End If
If s <> Empty Then
Range(s).Select
Range(s).Copy
[COLOR="Blue"]Else
Application.CutCopyMode = False[/COLOR]
End If
Next
End Sub[/SIZE]

 

[kadir78]

Teşekkür ederim. Sağolun.

 

[PLİNT]

Teşekkür ederim. Sağolun.

Rica ederim.
Kodların kopyalama bölümünü kullanacaksanız; yukarıdaki değişen koddaki
mavi bölümü de ekleyin.