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 :
örnek resim aşağıdaki gibidir.
Yardımlarızı rica ederim.
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 :
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.