Onay kutusu ile seçilenlerin aktarılması

[harakikiri]

Arkadaşlar forumda konu ile ilintili bir çok örnek olmasına rağmen tam olarak istediğimi bir türlü uyarlayamadım. Örnek dosya üzerinden anlatayım..
"tam" sayfasındaki işaretlenmiş satırların buton yardımı ile "liste" sayfasına A1 hücresinden başlayarak kopyalanmasını istiyorum.

Daha sonra saten var olan bir makro yardımı ile bunları tek tek yazdıracağım. Şimdilik çözmem gereken kısmı işaretli olanların aktarılması..

Teşekkür ederim ..

 

[Orion1]

onay kutularının hücre bağlantılarını oldukları satırdaki e sütununa bağlayın.
Dosyayı tekrar yolayın.

 

[harakikiri]

özür dilerim dosyayı geciktirdim. umarım doğru anlamışımdır. Dosya ekte.

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub Resim114_Tıklat()
Dim sat As Long, myarr(), say As Long, liste(), i As Long, a As Long
Sheets("tam").Select
sat = Cells(65536, "E").End(xlUp).Row
say = WorksheetFunction.CountIf(Range("E1:E" & sat), True)
If say < 1 Then MsgBox "İşaretlenmiş onay yok." & vbLf & "işlem iptal edildi", _
vbCritical, "UYARI": Exit Sub
liste = Range("B1:E" & sat).Value
ReDim myarr(1 To 3, 1 To say)
For i = 1 To UBound(liste)
    If liste(i, 4) = True Then
        a = a + 1
        myarr(1, a) = liste(i, 1)
        myarr(2, a) = liste(i, 2)
        myarr(3, a) = liste(i, 3)
    End If
Next
Erase liste
Application.ScreenUpdating = False
Sheets("liste").Select
Range("A1:C65536").ClearContents
Range("A1").Resize(a, 3) = Application.Transpose(myarr)
Erase myarr
Application.ScreenUpdating = True
MsgBox "İşlem Tammalandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[harakikiri]

Sevgili "evren gizlen" hızlı yanıtınız için teşekkürler.

Sadece bir sorun var gibi. Birinci onay kutusu işaretlendiğinde hata oluşuyor nedenini bulamadım. Aynı gönderdiğiniz örnekten hatayı inceleyebilirmisiniz rica etsem.

Tekrar teşekkür ederim.

 

[Orion1]

Problem yok.
Hallederiz.

Sevgili "evren gizlen" hızlı yanıtınız için teşekkürler.

Sadece bir sorun var gibi. Birinci onay kutusu işaretlendiğinde hata oluşuyor nedenini bulamadım. Aynı gönderdiğiniz örnekten hatayı inceleyebilirmisiniz rica etsem.

Tekrar teşekkür ederim.

 

[Orion1]

No problem.
Hallederiz.
Dosyanız 4 mesajdadır.Güncelendi.

Sevgili "evren gizlen" hızlı yanıtınız için teşekkürler.

Sadece bir sorun var gibi. Birinci onay kutusu işaretlendiğinde hata oluşuyor nedenini bulamadım. Aynı gönderdiğiniz örnekten hatayı inceleyebilirmisiniz rica etsem.

Tekrar teşekkür ederim.

 

[ntfsfat32]

seçilen dersleri listele

Evren bey teşekkürler

 

[ntfsfat32]

işlemi ayrı makrolarla yapmayı denedim ama yinde başarılı olamadım. Acaba nerde yanlış yapıyorum. Bu konua bilgisi olan arkadaşlardan yardım rica ediyorum.

 

[ntfsfat32]

evren beye teşekkürler