Sayfadan Textboxlara veri aktarmak.

[s.savas]

Merhaba arkadaşlar.
Ekli belgede Sayfa2 ve Sayfa3 de birbirinin aynısı olan 9 adet textbox var.
Menü sekmesindeki bir veriyi aynı zamanda Sayfa2 ve Sayfa3 te bulunan textboxlara yazdırmak istiyorum.
Başaramadım.

Menü sekmesindeki B2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox1'e
Menü sekmesindeki C2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox2'e
Menü sekmesindeki D2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox3'e
Aşağıda koda renkli ve altı çizili kodu yazınca hata veriyor.

Option Explicit
Sub aktar()
Sheets("Sayfa2", [COLOR="Blue"][U]"Sayfa3"[/U][/COLOR]).TextBox1 = Worksheets("menü").Range("b2")
Sheets("Sayfa2",[U][COLOR="blue"] "Sayfa3"[/COLOR][/U]).TextBox2 = Worksheets("menü").Range("c2")
Sheets("Sayfa2", [COLOR="blue"][U]"Sayfa3"[/U][/COLOR]).TextBox3 = Worksheets("menü").Range("d2")
End Sub

 

[İhsan Tank]

Merhaba arkadaşlar.
Ekli belgede Sayfa2 ve Sayfa3 de birbirinin aynısı olan 9 adet textbox var.
Menü sekmesindeki bir veriyi aynı zamanda Sayfa2 ve Sayfa3 te bulunan textboxlara yazdırmak istiyorum.
Başaramadım.

Menü sekmesindeki B2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox1'e
Menü sekmesindeki C2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox2'e
Menü sekmesindeki D2, hücresindeki veriyi sayfa2 ve sayfa3 teki TextBox3'e
Aşağıda koda renkli ve altı çizili kodu yazınca hata veriyor.

Option Explicit
Sub aktar()
Sheets("Sayfa2", [COLOR="Blue"][U]"Sayfa3"[/U][/COLOR]).TextBox1 = Worksheets("menü").Range("b2")
Sheets("Sayfa2",[U][COLOR="blue"] "Sayfa3"[/COLOR][/U]).TextBox2 = Worksheets("menü").Range("c2")
Sheets("Sayfa2", [COLOR="blue"][U]"Sayfa3"[/U][/COLOR]).TextBox3 = Worksheets("menü").Range("d2")
End Sub

merhaba
kodu

Sub aktar()
Sheets("Sayfa2").TextBox1 = Worksheets("menü").Range("b2")
Sheets("Sayfa2").TextBox2 = Worksheets("menü").Range("c2")
Sheets("Sayfa2").TextBox3 = Worksheets("menü").Range("d2")
Sheets("Sayfa3").TextBox1 = Worksheets("menü").Range("b2")
Sheets("Sayfa3").TextBox2 = Worksheets("menü").Range("c2")
Sheets("Sayfa3").TextBox3 = Worksheets("menü").Range("d2")
End Sub

bununla değişiniz.