Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
Yeni Konu Aç
Yeni Konu Aç

textbox[i].value=... excel vba da nasıl yapılır

Konu, 'Ofis Programları ve Uygulamaları' kısmında sertokus tarafından paylaşıldı.


Etiketler:
  1. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206

    Arkadaşlar resimdeki kodu yapmak istiyorum.
    Ama hata veriyor
    Yardımcı olur musunuz. Textbox un içindeki i değerini kabul etmiyor
    Parantez şeklinde kullanımı mı yanlış. Köşeli parantez de denedim i iyi yine hata veriyor.

    sil vba 2.jpg winsnap-1.jpg
     
    Son düzenleme: 23 Ekim 2020
  2. manyakkedi

    manyakkedi Seçkin Üye Seçkin Üye

    Kayıt:
    16 Eylül 2008
    Mesajlar:
    409
    Beğeni:
    155
    Textbox(i).text dener misiniz hocam
     
  3. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206
    Denemiştim hocam olmadı. Köşeli parantez varyasyon da denedim. Ama yine olmadı
     
  4. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206
  5. emrahsahan

    emrahsahan Seçkin Üye Seçkin Üye

    Kayıt:
    25 Eylül 2009
    Mesajlar:
    976
    Beğeni:
    122
    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.
     
    sertokus bunu beğendi.
  6. emrahsahan

    emrahsahan Seçkin Üye Seçkin Üye

    Kayıt:
    25 Eylül 2009
    Mesajlar:
    976
    Beğeni:
    122
    Kaç tane textbox var sayfanda. Sanki yerleri değişecek gibi geldi bana.
     
  7. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206
    hocam 34-40 arasında textbox olacak hocam
     
  8. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206
    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?

    sil vba 2.jpg
     
    Son düzenleme: 23 Ekim 2020
  9. yakuphan

    yakuphan Hiperaktif Üye Hiperaktif

    Kayıt:
    7 Nisan 2007
    Mesajlar:
    4.480
    Beğeni:
    669
    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.
     
    sertokus bunu beğendi.
  10. yakuphan

    yakuphan Hiperaktif Üye Hiperaktif

    Kayıt:
    7 Nisan 2007
    Mesajlar:
    4.480
    Beğeni:
    669
    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.
     
    sertokus bunu beğendi.
  11. Aety

    Aety Aktif Üye

    Kayıt:
    26 Ağustos 2017
    Mesajlar:
    164
    Beğeni:
    64
    Tam olarak ne yapmayı planladığınızı söylerseniz belki daha yardımcı olabiliriz hocam.
     
    Son düzenleme: 23 Ekim 2020
    sertokus bunu beğendi.
  12. sertokus

    sertokus Süper Üye Süper Üye

    Kayıt:
    17 Eylül 2013
    Mesajlar:
    2.187
    Beğeni:
    206
    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.
     

Sayfayı Paylaş /bbnetsosyal