Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketvba kode listbox to textbox
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Dart Se dropdown
Bronze bruger
Bronze bruger


Medlem: 16.Sep.2015
Land: Denmark
Status: Offline
Point: 39 		Direkte link til dette indlæg Emne: vba kode listbox to textbox
    Sendt: 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
Håber det er forståeligt
Til top



Til top
Dart Se dropdown
Bronze bruger
Bronze bruger


Medlem: 16.Sep.2015
Land: Denmark
Status: Offline
Point: 39 		Direkte link til dette indlæg Sendt: 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
Til top
Dart Se dropdown
Bronze bruger
Bronze bruger


Medlem: 16.Sep.2015
Land: Denmark
Status: Offline
Point: 39 		Direkte link til dette indlæg Sendt: 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 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk