Userform textboxdaki veriyi toplu girme

[byfika]

merhabalar,
Userform üzerindeki textbox rakam girip commandbuttonla, tek tıklama ile aynı sütuna, diğer sayfadan alınan isimlere toplu halde rakamı nasıl girebiliriz?
Örnek dosyada açıklama var.
Bilgi için teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton8_Click()
    
    Dim Sd As Worksheet, sa As Long, se As Long
    
    Set Sd = Sheets("DATA")
    sa = Sd.Cells(Rows.Count, "B").End(xlUp).Row
    se = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sd.Range("B2:B" & sa).Copy Range("A" & se)
    Range("B" & se).Resize(sa - 1, 1) = CDbl(TextBox7)
    
End Sub

 

[byfika]

Sayın Ömer bey, kod çalışıyor. Kodlarınızda sonra özelden gönderide bulundum. İlginize çok teşekkürler. Elinize bilginize sağlık.