userform hata

[cdroy1]

herkeze selamlar

user formda misal alttaki kodda olduğu gibi bir işlem in ikincisini yapınca hata veriyor combobox içinde geçerli sürekli bu Private Sub UserForm_initialize() hatayı veriyo
bu işlem neden hata veriyo

Private Sub UserForm_initialize()
TextBox1 = Cells(1, 1)
TextBox1.Text = Format(Range("A1").Value, "dd.mm.yyyy")
End Sub

Private Sub UserForm_initialize()
TextBox2 = Cells(1, 1)
TextBox2.Text = Format(Range("b1").Value, "dd.mm.yyyy")
End Sub

 

[hamitcan]

İkisi de aynı isimde olduğu için. Kodları birleştirmeyi deneyin.

 

[cdroy1]

sayın üstadım şu verdiğin bilgi size çok kolay gibi gelebilir fakat inanın sabahtan beri uğraşıyorum olmuyo kafayı yiyodum ama sizin açıklamanızla olayın üstesinden geldim çok sağolun kolay gelsin