Print side | Luk vindue

vba kode listbox to textbox

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3791
Udskrevet den: 19.Apr.2024 kl. 11:09


Emne: vba kode listbox to textbox
Besked fra: Dart
Emne: vba kode listbox to textbox
Posteringsdato: 09.Feb.2019 kl. 02:09
Hej Kære forum vi har brug for hjælp Smile
er der en der kan hjælpe med vba kode til dette
Når jeg dobbelt klikker på text i listbox vik jeg gerne den kopieres ind i de næste 3 tekstboxe (navn,klub,Nieau)
når jeg så vælger en ny i listbox skal den dukke op i linjen med textboxe i anden række af tekstboxe
når de 8 linjer med tekxt felter er fyldt skal, samt tekstboks under pulje label (A) på billed det gemmes i ark Pulje (der kan komme op til 8 puljer med forskellige data) så pulje A gemmes for sig
og pulje B gemmes for sig, osv uploads/1510/Bissen_Dart-Database_Prøve_08_02_.xlsm" rel="nofollow - uploads/1510/Bissen_Dart-Database_Prøve_08_02_.xlsm
Håber det er forståeligt


Svar:
Besked fra: Dart
Posteringsdato: 09.Feb.2019 kl. 02:12
Har forsøht mig med lidt koderi listbox og i comandbottum >
men jeg er ikke skarp nok til at løse det så håber på en venlig sjæl der vil  hjælpe

Besked fra: Dart
Posteringsdato: 10.Feb.2019 kl. 12:50
Med denne kode kan jeg flytte 8 over på en gang, men jeg vil gerne kunne makere i listbox hvad der skal i anden linje af textboxes.

Nogen der kan hjælpe med denne kodestump. Smile da jeg ikke er den skarpeste i vba


Private Sub ListBox2_AfterUpdate()
     Me.TextBox129.Value = Me.ListBox2.Column(1)
    Me.TextBox137.Value = Me.ListBox2.Column(2)
     Me.TextBox145.Value = Me.ListBox2.Column(4)
Altså her vil jeg gerne kunne makere en ny i listbox2 og sætte ind i de næste 3 tekstboxes
     Me.TextBox130.Value = Me.ListBox2.Column(1, 1)
    Me.TextBox138.Value = Me.ListBox2.Column(2, 1)
     Me.TextBox146.Value = Me.ListBox2.Column(4, 1)
det samme her
     Me.TextBox131.Value = Me.ListBox2.Column(1, 2)
    Me.TextBox139.Value = Me.ListBox2.Column(2, 2)
     Me.TextBox147.Value = Me.ListBox2.Column(4, 2)
og her
     Me.TextBox132.Value = Me.ListBox2.Column(1, 3)
    Me.TextBox140.Value = Me.ListBox2.Column(2, 3)
     Me.TextBox148.Value = Me.ListBox2.Column(4, 3)
og her
     Me.TextBox133.Value = Me.ListBox2.Column(1, 4)
    Me.TextBox141.Value = Me.ListBox2.Column(2, 4)
     Me.TextBox149.Value = Me.ListBox2.Column(4, 4)
og her
     Me.TextBox134.Value = Me.ListBox2.Column(1, 5)
    Me.TextBox142.Value = Me.ListBox2.Column(2, 5)
     Me.TextBox150.Value = Me.ListBox2.Column(4, 5)
og her
     Me.TextBox135.Value = Me.ListBox2.Column(1, 6)
    Me.TextBox143.Value = Me.ListBox2.Column(2, 6)
     Me.TextBox151.Value = Me.ListBox2.Column(4, 6)
og her
     Me.TextBox136.Value = Me.ListBox2.Column(1, 7)
    Me.TextBox144.Value = Me.ListBox2.Column(2, 7)
     Me.TextBox152.Value = Me.ListBox2.Column(4, 7)
    
     
 End Sub

MVH 


Print side | Luk vindue