TextBox ile Farklı Sayfalarda Veri Değiştirme

[kanakan52]

Merhaba arkadaşlar,

TextBoxlar aracılığı ile farklı sayfalarda veri değiştirmem gerekiyor... İlk sayfada hallettim ama diğer sayfalarda başaramadım.
Aşağıdaki kodu "RAPOR" ve "GÖREV" sayfalarında da uygulamak istiyorum. Nasıl yaparım. Yardımlarınızı rica ediyorum.
Şimdiden teşekkür ederim.


Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sheets("PERSONEL").Range("B2:B" & Range("B65536").End(3).Row)
If bul.Value = TextBox2.Text Then
bul.Offset(0, -1).Value = (TextBox1.Text)
bul.Offset(0, 0).Value = (TextBox2.Text)
bul.Offset(0, 1).Value = (TextBox7.Text)
bul.Offset(0, 2).Value = (TextBox3.Text)
bul.Offset(0, 3).Value = (TextBox4.Text)
bul.Offset(0, 4).Value = (TextBox5.Text)
bul.Offset(0, 6).Value = (TextBox6.Text)
bul.Offset(0, 7).Value = Format(CCur(TextBox9.Text), "#,##0.00")
bul.Offset(0, 9).Value = (ComboBox2.Value)
bul.Offset(0, 11).Value = (ComboBox1.Value)

Unload Me
End If
Next bul
End Sub

 

[kanakan52]

Akradaşlar yardım lütfen...