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
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