Metin kutularına değer almak.

[s.savas]

Merhaba arkadaşlar,
UserForm kullanmadan, her hangi bir excel sekmesine yerleştirilen ComboBox veya TextBox lardaki değerler başka bir sekmedeki metin kutularına aktarılabiliyormu.

 

[Korhan Ayhan]

Selamlar,

Tabiki aktarabilirsiniz. Aşağıdaki kodu denermisiniz.

Sayfa1'in kod bölümüne uygulayınız.

Option Explicit
 
Private Sub TextBox1_Change()
    Sheets("Sayfa2").TextBox1 = Me.TextBox1
End Sub

 

[s.savas]

Selamlar,

Tabiki aktarabilirsiniz. Aşağıdaki kodu denermisiniz.

Sayfa1'in kod bölümüne uygulayınız.

Option Explicit
 
Private Sub TextBox1_Change()
    Sheets("Sayfa2").TextBox1 = Me.TextBox1
End Sub

Korhan hocam diğer kodlarla çakışma yaptı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Private Sub TextBox1_Change()
    Dim NESNE As Shape
    For Each NESNE In ActiveSheet.Shapes
        If InStr(1, NESNE.Name, "Text Box") > 0 Then
            NESNE.DrawingObject.Caption = Sheets("Sayfa1").TextBox1
            Exit For
        End If
    Next
End Sub

 

[s.savas]

Korhan hocam teşekkür ederim ilginize, belki sorumu tam izah edemedim. Onun için yazdığınız kod talebi karşılamadı.
Örnek,
ekteki dosyada userform1 de bulunan ComboBox1 Sayfa1!S3 hücresine, kayıt yaparken, aynı zamanda Sayfa2 deki metinkutusu1'e kayıt yapabilirmi. (TextBox1'e kayıt yapmasını istemiyorum)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
Dim NESNE As Shape
On Error Resume Next
Sheets("Menü").Select
Cells(3, 19).Value = ComboBox1.Value
For Each NESNE In Sheets("Sayfa2").Shapes
    If InStr(1, NESNE.Name, "Text Box") > 0 Then
        NESNE.DrawingObject.Caption = ComboBox1
        Exit For
    End If
Next
Cells(3, 24).Value = TextBox1.Value
Cells(4, 19).Value = ComboBox2.Value
Cells(4, 24).Value = TextBox2.Value
Cells(5, 19).Value = ComboBox3.Value
Cells(5, 24).Value = TextBox3.Value
Cells(5, 28).Value = ComboBox6.Value
Cells(6, 19).Value = ComboBox4.Value
Cells(6, 24).Value = TextBox4.Value
Cells(6, 28).Value = ComboBox7.Value
Cells(7, 19).Value = ComboBox5.Value
Cells(7, 24).Value = TextBox5.Value
Cells(7, 28).Value = ComboBox8.Value
End Sub