Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

vba - Kopiowanie do jednej komórki kilku textboxów niepustych

wntsik 12 Sty 2017 18:40 468 3
  • #1 12 Sty 2017 18:40
    wntsik
    Poziom 2  

    Witam

    W userformie mam oprócz list kilka textboxów: textbox1, textbox2, textbox3, textbox4

    Prosiłbym o pomoc w napisaniu kodu (coś w stylu pętli?), który działałaby sprawdzając wszystkie cztery textboxy i kopiował tylko te pola, w których jest tekst (pomijając puste) , dopisujący (jeśli to nie problem) vbNewLine w celu nadania małej estetyki.

    Coś w stylu :
    ActiveCell.Offset(0, 1).Value = textbox1.Value & vbNewLine & textbox 3.value - ( textbox 1 i 3 miał wpisane wartośći)

    Dziękuję i pozdrawiam
    wntsik

    0 3
  • #2 12 Sty 2017 19:45
    clubs
    Poziom 29  

    Witam

    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    0
  • #3 12 Sty 2017 21:13
    wntsik
    Poziom 2  

    Dziękuję za odpowiedź

    jednak coś nie do końca mi działa.. wkleiłem ten kod w jeden warunek który mam stworzony i dodałem też zmienną
    Dim Ctrl As Control , jednak wartość wyrzuca mi błąd i podkreśla kod:
    "If TypeName(Ctrl) = "Textbox" And Ctrl.Value <> vbNullString Then"
    Nic nie kopiuje do komórki a (Ctrl) po najechaniu kursorem pokazuje wartość pierwszego labela1..

    Co robię nie tak ?

    0
  • Pomocny post
    #4 12 Sty 2017 22:24
    clubs
    Poziom 29  

    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    0