100 lerce Textboxu nasil döngüye alirim

[Skorpiyon]

Yapmaya çalıştığım küçük programcıkta 152 adet textbox nesnesi var ve sırayla Textbox1.....Textbox152 olarak devam ediyor.

ben bu textbox yazısından sonra gelen 1....152 rakamlarını bir döngüye almak istiyorum.
Yani;

For a = 2 To 152
ActiveCell.Offset(0, a).Value = TextBox & a.Value
Next a

gibi...
ama hata veriyor. Bir döngüye nasıl alabilirim ?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For a = 2 To 152
ActiveCell.Offset(0, a).Value = controls("TextBox" & a).Value
Next a

 

[niceman]

pardon

bu textbox ları döngüye almak, şöyle bir işe yarayabilirmi,
diyelimki 152 adet texbox var, ve textbox ların userformda açılışını
textbox1.value = ""
gibi 152 adet texbox formaçılışını döngüyle birkez tanımlayıp, hepsini aynı
şekilde yapabilirmi, döngü böyle bir işe yararmı.

 

[algil]

Anladığım kadarıyla bu kod işinize yarar.

[LEFT]Private Sub UserForm_Initialize()
For a = 2 To 152
Controls("TextBox" & a).Value = ""
Next a
End Sub[/LEFT]

 

[öğrencimustafa]

excell konusunda yardım

stok adında bir tablom var alan adları çorap, atkı, şemsiye, palto vb. bu tabloya başka bir excel sayfasından girdiğim sayıları toplatarak yazdırmak istiyorum. mesela stok giriş tablosunda çorap adedine 1 girdiğim zaman stok tablosuna da 1 girecek daha sonra stok giriş tablosunda gireceğim 1 rakamını stok tablosunda toplayarak yazacak ve hücredeki girdiğim 1 sayısını yeni giriş için silecek bu konuda acil yardım bekliyorum yardımcı olan arkadaşlara teşekkürler.

 

[alpi]

foruma yeni üye oldum ve nasıl konu açılır bilmiyorum denemek için yazıyorum , ayrıca yardım ederseniz sevinirim

stok adında bir tablom var alan adları çorap, atkı, şemsiye, palto vb. bu tabloya başka bir excel sayfasından girdiğim sayıları toplatarak yazdırmak istiyorum. mesela stok giriş tablosunda çorap adedine 1 girdiğim zaman stok tablosuna da 1 girecek daha sonra stok giriş tablosunda gireceğim 1 rakamını stok tablosunda toplayarak yazacak bu konuda acil yardım bekliyorum yardımcı olan arkadaşlara teşekkürler.

Öncelikle hoşgeldiniz.
Forum kurallarını okursanız nasıl soru sormanız gerektiğini öğrenirsiniz.

 

[Skorpiyon]

Aşağıdaki gibi deneyin.

For a = 2 To 152
ActiveCell.Offset(0, a).Value = controls("TextBox" & a).Value
Next a

Sayın Levent, bunu denedim ve maalesef olmadı.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde ne yapmak istediğinizi açıklarsanız daha hızlı çözüme ulaşabilirsiniz.

 

[Skorpiyon]

Selamlar,

Örnek bir dosya üzerinde ne yapmak istediğinizi açıklarsanız daha hızlı çözüme ulaşabilirsiniz.

aslında örnek bir dosyaya pek gerek yok.

Kısaca tekrar şöyle özetleyeyim,
sırayla devam eden 152 adet textbox nesnesini her defasında yazmak yerine
kullanmış olduğum döngü içerisine dahil etmek istiyorum.

böylece 152 satır yerine, 3 satırda herşeyi bitirmek istiyorum. aksi takdirde 152 satır yazarak zaten problemi çözüyorum.

yani textbox1...textbox152 de textboxtan sonra gelen sayıyı ayırabilir miyim ?
Asıl soru bu...

Levent Bey'in vermiş olduğu örneği, forum içerisinde bu soruyu yazmadan önce aramış, bulmuş ve denemiştim. Sonuç olumsuz olmuştu.

İlgi ve alakanıza ayrıyeten teşekkürler...

 

[Zeki Gürsoy]

Kodlar sorunsuz çalışıyor. Sizin tasarladığınız kod, "Aktif Hücre" den yola çıkıyor. O halde önce aktif hücre başvurusunu belirtmek gerekiyor.
Yani kodların üst kısmına;

Range("A1").activate ' veya Select

 

[öğrencimustafa]

girilen bilgilerin başka bir yerde toplattırılması

arakadaşlar yokmu bana yardımcı olacak birisi

gönderdiğim çalışma kitabındaki stok giriş tablosuna girdiğim sayıyı stok tablosuna otomatik toplayarak yazacak, stok giriş tablosundaki veriye girdiğim her sayıyı stok tablosundaki sayının üzerine toplayacak ve stok giriş tablosunda girdiğim sayıyı yeni giriş için temizleyecek yada satırdaki yazım işlemini bitirdikten sonra bir düğme yardımı ile bu işi gerçekleştirecek

kolay gelsin

 

[Skorpiyon]

Levent kardeşim teşekkür ederim. Verdiğiniz kod doğru, maalsef benim yaptığım bir yanlışlıktan dolayı kod çalışmamış. Özürlerimi kabul edin ...
Çalışmalarınızda başarılar...