Textboxlara Toptan Veri Alma

[memduh]

30 adet textboxa sayfa1 a2:a30 kadar commandbuttunla veriyi tek seferde aldırmak istiyorum. Saygılar

 

[nziya]

Siz kalan textleri eklersiniz.
Private Sub CommandButton1_Click()
TextBox1.Value = Range("A2").Value
TextBox2.Value = Range("A3").Value
TextBox3.Value = Range("A4").Value
TextBox4.Value = Range("A5").Value
TextBox5.Value = Range("A6").Value
TextBox6.Value = Range("A7").Value
End Sub

 

[memduh]

Sayın nziya Cevabın için teşekkürler. Yalnız kısa yoldan makro varmı diye sormuştum. Biliyorum sizin cevabta her textbox.value olayını tek tek yazmamız gerek daha kısası varmı diye sormuştum. Saygılar.