TextBox1 ?

[nadirornek]

form üzerinden textbox1 e girdiğim veriyi aynı anda sayfa 2 de k3 hücresine ve sayfa 3 te 3 hücresine nasıl yazdırabiliriz .Yani form ğzerinden her veri girişimde sabit olarak sayfa 2 ve sayfa 3 teki k3 hücresine yazdırmak istiyorum



http://uploaded.to/?id=j3zdqd

 

[aekturk]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim text1
text1 = TextBox1.Text
Sheets("Sayfa2").Select
Range("K3").Select
ActiveCell.FormulaR1C1 = text1
Sheets("Sayfa3").Select
Range("K3").Select
ActiveCell.FormulaR1C1 = text1
Sheets("Sayfa1").Select
Range("A1").Select
End Sub

şeklinde düzenlersen olur..

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub TextBox1_Change()
Sayfa2.[k3] = Me.TextBox1
Sayfa3.[k3] = Me.TextBox1
End Sub

 

[nadirornek]

Sağolun arkadaşlar