TextBox Userform açılınca güncelleme

[Ahmet ÖZGÜR]

Merhaba,

Userform da excel sayfasının P1 hücresini TextBox la ilişkilendirdim fakar userformu açıp TextBox içerinine bir sayı yazmadan hücredeki sayıyı getirmiyor.

Userform açılınca TextBox birebir aktif olabiliyor mu?

Private Sub TextBox17_Change()
TextBox17.Text = Range("P1").Value
End Sub

 

[askm]

Kodunuzu UserForm_Initialize olayına yazın. Form açılır açılmaz gelir.

 

[Necdet]

Merhaba,

Userform açılır açılmaz gelmesini istiyorsanız UserForm_Initialize olayını kullanınız

Private Sub UserForm_Initialize()

    TextBox17.Text = Range("P1").Value
    
End Sub

 

[Ahmet ÖZGÜR]

Başka bir UserForm_Initialize() olduğu için hata alıyorum?

Olağan UserForm_Initialize() içerinisine eklediğimde ise çalışmor

Bunun içerisine mi eklemem gerekiyor?

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

 

[Ahmet ÖZGÜR]

CommandButton' un altına ekledim sayı ekledikçe TextBox da refreş etekte

askm ve Necdet Beyler

Teşekkür Ederim

 

[Necdet]

Selam,

Mevcut Initializenin içine ekleyebilirsiniz.

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i

TextBox17.Text = Range("P1").Value

End Sub