İstenen verileri tabloya aktarma

[ilhaan]

Arkadaşlar arama yaptım ama istediğim dosyayı tam olarak bulamadım. Yardımcı olursanız sevinirim. Ekli
dosyada belirtiğim gibi seçenek kutucuklarında işaretlediğim 10 adet veriyi tabloya aktarma yapmam lazım.
Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    x = 3
    For Each chk In Worksheets(1).Shapes
        If chk.Name = "CommandButton1" Then goto 10
        If chk.OLEFormat.Object.Value = 1 Then
         x = x + 1
         t = t + 1
         If t = 10 Then Exit Sub
         Cells(x, "g") = Range(chk.TopLeftCell.Offset(1, 1).Address).Value
        End If
10
    Next
    [g4:g13].Sort key1:=[g4]
End Sub

 

[PriveT]

Merhaba,
Bu da formüllü alternatif olsun.
1. sayfadaki çözümde A sütunu yardımcı sütun olarak kullanılmıştır.
2. sayfadaki çözüm yardımcı sütunsuzdur.

 

[ilhaan]

Hocam çok teşekkür ederim. İstediğim buydu...

 

[ilhaan]

T

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    x = 3
    For Each chk In Worksheets(1).Shapes
        If chk.Name = "CommandButton1" Then goto 10
        If chk.OLEFormat.Object.Value = 1 Then
         x = x + 1
         t = t + 1
         If t = 10 Then Exit Sub
         Cells(x, "g") = Range(chk.TopLeftCell.Offset(1, 1).Address).Value
        End If
10
    Next
    [g4:g13].Sort key1:=[g4]
End Sub[/c

 

[ilhaan]

üstadım teşekkür ederim.