- Mesajlar
- 481
Textbox(i).text dener misiniz hocam
- Mesajlar
- 2,350
Denemiştim hocam olmadı. Köşeli parantez varyasyon da denedim. Ama yine olmadı
- Mesajlar
- 1,369
Activex denetimlerini kullanın buton ve textbox eklerken. Daha sonra butona tıklayarak kod yazın. Fonksiyon hatası veriyor tanımlanmamış. Kodlarınızı fonksiyon içine yazın. İkincisi
girinti yapın for döngüsü için.
girinti yapın for döngüsü için.
- Mesajlar
- 1,369
Kaç tane textbox var sayfanda. Sanki yerleri değişecek gibi geldi bana.
- Mesajlar
- 2,350
hocam 34-40 arasında textbox olacak hocam
- Mesajlar
- 2,350
Hocam kodlarım fonksiyon içinde aslında. Sub ve end sub arasında yer alıyor. Çok fazla kod olduğu için böyle resmini çektim. Hiç activex ile kullanmamıştım hocam. Bir deneyeyim.
Edit: Hocam ben userformlar, Command butonlar ile çalışıyorum. Bu durumda activex ekipmanlarını kullanmış oluyor muyum?
Son düzenleme:
- Mesajlar
- 4,580
VBA'da bahsettiğiniz tarzda bir kullanım yok sanırsam. Ancak Controls koleksiyonunu kullanabilirsiniz.
bir düğmenin click olayına
for i = 0 to 10
msgbox Controls(2).Name + " " + i
next if
yazıp, düğmeye tıklayın. size form üzerindeki kontrollerin isimlerini ve index değerlerini verecektir. Eğer Textbox'ları ardı ardına eklediyseniz bu index numaraları ardışık olacaktır. Diyelim ki birinci textbox'ın index değeri 5, sonuncunun index değeri 20 olsun. Bu durumda
for i = 5 to 20
Controls(i).Text = Worksheets(kunye).Cells(satir, i).Value
next i
kodunu kullanarak istediğiniz sonuca ulaşabilirsiniz.
bir düğmenin click olayına
for i = 0 to 10
msgbox Controls(2).Name + " " + i
next if
yazıp, düğmeye tıklayın. size form üzerindeki kontrollerin isimlerini ve index değerlerini verecektir. Eğer Textbox'ları ardı ardına eklediyseniz bu index numaraları ardışık olacaktır. Diyelim ki birinci textbox'ın index değeri 5, sonuncunun index değeri 20 olsun. Bu durumda
for i = 5 to 20
Controls(i).Text = Worksheets(kunye).Cells(satir, i).Value
next i
kodunu kullanarak istediğiniz sonuca ulaşabilirsiniz.
- Mesajlar
- 4,580
VBA 'da girinti çıkıntının bir anlamı yok. Hata mesajında TextBox adında bir fonksiyon yok diyor. Yani ifadeyi bir fonksiyon çağırılıyor olarak algılıyor.
- Mesajlar
- 2,350
Controls("TextBox" & i).Value = Worksheets(kunye).Cells(satir, i).Value
cevabınıza istinaden araştırma yaparak bu şekilde çalıştı. Çok teşekkür ederim.