Onay kutusu

[denksal123]

Arkadaşlar bir bakarmısınız onay kutusunu işaretlediğimde sayfa 2 deki kelimeleri birleştirecek ve sayfa 3 de a1 sutununa yazacak bişey istiyorum

ekli dosyada örnek var bir bakarsanız sevinirim

 

[hamitcan]

Sub Makro1()
    For i = 1 To 4
        ActiveSheet.Shapes("Check Box " & i).Select
        If Selection.Value = 1 Then
            t = t & Sayfa2.Cells(i, "a") & " "
        End If
        Sayfa3.[a1] = t
    Next
End Sub

 

[Orion1]

Dosyanız ekte.

 

[denksal123]

ay çok teşekkür ederim ellerine sağlık

 

[Orion1]

ay çok teşekkür ederim ellerine sağlık

Rica ederim.
İyi çalışmalar.