Soru userform Checkbox veri aktarımı

[MusaPEKEL]

Merhaba, Userform eklediğim Checkbox kısmına bastığım zaman "e" hücresine veriyi yazdırmaktadır.
Verileri başka sayfadan çekmektedir.

Başka bir hücreye eklemek istediğim zaman şu sorunlar karşılaşıyorum alt alta ekleme yapmıyor. (not : Teker Teker Ekleme yapıyor.)
Kullandığım kod :

Private Sub CheckBox41_Click() 'Sıralama Aralardaki Boşluk
For x = 1 To 1
son = Sheets("LİSTE").Cells(Rows.Count, "B").End(3).Row + 1
If CheckBox41 = True Then
Sheets("LİSTE").Cells(son, "B") = Sheets("veri").Cells(x, 40)
End If
Next
End Sub

örnek resim aşağıdaki gibidir.
Yardımlarızı rica ederim.

 

[tamer42]

Merhaba, Userform eklediğim Checkbox kısmına bastığım zaman "e" hücresine veriyi yazdırmaktadır.
Verileri başka sayfadan çekmektedir.

Başka bir hücreye eklemek istediğim zaman şu sorunlar karşılaşıyorum alt alta ekleme yapmıyor. (not : Teker Teker Ekleme yapıyor.)
Kullandığım kod :

Private Sub CheckBox41_Click() 'Sıralama Aralardaki Boşluk
For x = 1 To 1
son = Sheets("LİSTE").Cells(Rows.Count, "B").End(3).Row + 1
If CheckBox41 = True Then
Sheets("LİSTE").Cells(son, "B") = Sheets("veri").Cells(x, 40)
End If
Next
End Sub

örnek resim aşağıdaki gibidir.
Yardımlarızı rica ederim.

Ekli dosyayı görüntüle 248216

dener misiniz

Private Sub CheckBox41_Click() 'Sıralama Aralardaki Boşluk
If CheckBox41 = True Then
    For x = 46 To 58
        If Sheets("LİSTE").Cells(x, 2) = "" Then
            Sheets("LİSTE").Cells(x, 2) = Sheets("veri").Cells(1, 41)
            Exit For
        End If
        
    Next
End If
End Sub

 

[MusaPEKEL]

Sayfa koruması nedir?

0308 vba şifresi ile aynıdır.

 

[MusaPEKEL]

dener misiniz

Private Sub CheckBox41_Click() 'Sıralama Aralardaki Boşluk
If CheckBox41 = True Then
    For x = 46 To 58
        If Sheets("LİSTE").Cells(x, 2) = "" Then
            Sheets("LİSTE").Cells(x, 2) = Sheets("veri").Cells(1, 41)
            Exit For
        End If
       
    Next
End If
End Sub

oldu Teşekkür Ederim