DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Deneyiniz.
Kod:Private Sub TextBox1_Change() Sheets("Sayfa1").Range("A1") = TextBox1.Value End Sub
Deneyiniz.
Kod:Private Sub TextBox1_Change() Sheets("Sayfa1").Range("A1") = TextBox1.Value End Sub
Rica ederim.Dönüş yaptığınız için teşekkür ederim.Evet işe yaradı.Çok teşekkür ediyorum.