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


Emne lukketKode

 Besvar Besvar
Forfatter
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Emne: Kode
    Sendt: 11.Mar.2019 kl. 13:15
Hej jeg sidder fast her..

Håber der er en klog hoved der vil hjælpe, da jeg ikke er den skarpeste i vba

Jeg har en combobox hvor jeg kan vælge på liste
og vise det i textbox på userforn
nu vil jeg gerne kunne vælge et nyt navn i combobox
og tilføje den i en ny række af tekstbokse
jeg vil gerne kunne kunne vælde 8 gange i komboboks
og satte valgte ind i 8 forskellige tekstbokse 

håber det giver mening :)

her er min kode:

Private Sub ComboBox3_Change()

Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("Data")
LastRow = ws.Range("C" & Rows.Count).End(xlUp).Row

For i = 9 To LastRow
If (Me.ComboBox3.Value) = ws.Cells(i, "C") Then
MsgBox Me.ComboBox3.Value
Me.TextBox129 = ws.Cells(i, "C").Value
Me.TextBox137 = ws.Cells(i, "D").Value
Me.TextBox145 = ws.Cells(i, "E").Value
Me.TextBox153 = ws.Cells(i, "F").Value

End If

Next i

Her til virker det.
men hvordan vælger jeg en ny navn igen
og sætter det ind i tekstbokse neden under?

For i = 9 To LastRow
If (Me.ComboBox3.Value) = ws.Cells(i, "C") Then
MsgBox Me.ComboBox3.Value
Me.TextBox130 = ws.Cells(i, "C").Value
Me.TextBox138 = ws.Cells(i, "D").Value
Me.TextBox146 = ws.Cells(i, "E").Value
Me.TextBox155 = ws.Cells(i, "F").Value
End If

Next i

End Sub


Med Venlig Hilsen Gerda

Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 13.Mar.2019 kl. 01:26
Tilføj tekst til eksisterende tekst i en tekstboks:
Me.TextBox129 = Me.TextBox129 & vbNewLine & ws.Cells(i, "C").Value
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 13.Mar.2019 kl. 11:52
Hej 

Mange tak for dit hurtige svarSmile

Men det kan jeg ikke fatte (måske mig der er dum)Angry Blev bedt om at prøve at løse dette men jeg er ikke den skarpeste kniv i skuffen.
Jeg prøver at uddybe det lidt mere håber det er mere forståeligt nu.

mit 1 valg i combox3 eks Peter

Me.TextBox129 = ws.Cells(i, "C").Value = Peter
Me.TextBox137 = ws.Cells(i, "D").Value = Rødderne
Me.TextBox145 = ws.Cells(i, "E").Value = 1120
Me.TextBox153 = ws.Cells(i, "F").Value = C



Det virker fint her til...Wink
Nu kommer problemet såDisapprove

nu vil jeg gerne lave 2 valg i combox3 som skal vises i de næste 4 textbox (130.138.146.155)
som vist herunder.

(Mit 2 valg i combobox3 må ikke ændre mit 1 valg i de 4 textbox 129,137,145,153)

2 valg i combox3  eks Robin

Me.TextBox130 = ws.Cells(i, "C").Value = Robin
Me.TextBox138 = ws.Cells(i, "D").Value = Blomsterne
Me.TextBox146 = ws.Cells(i, "E").Value = 1230
Me.TextBox155 = ws.Cells(i, "F").Value = A

Mvh Gerda

Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 15.Mar.2019 kl. 09:26
Nit problem blev ikke løst kan du hjælpe mig videre?
på forhånd tak
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 17.Mar.2019 kl. 13:22
Jeg kan ikke gennemskue, hvad du præcist mener - du bli'r nok nødt til, at upload dit regneark, så vi kan se, ved selvsyn, hvad du mener, og, hvad der går galt...
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 18.Mar.2019 kl. 11:09
Hej jeg kan ikke uploade til forumdet er fejl ved upload

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 18.Mar.2019 kl. 12:36
Jeg har ikke problemer med at oploade.
Er du sikker på, du gør det helt rigtigt.

I venstre side er der en menu, hvor du kan finde - Sådan uploader du filer.
Du kan også åbne den, ved at klikke HER.

Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 18.Mar.2019 kl. 16:01
Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 18.Mar.2019 kl. 16:03
Tror jeg gjorde noget galtSmile
Nu er den der Thumbs Up

Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 18.Mar.2019 kl. 23:10
Hej

Combobox er det pt 8 navne jeg vil gerne man kan vælge hvilken navn mm
der skal komme frem i første tekstboks linje- Navn-Hold-Nr- niveau
derefter skal jeg igen kunne vælge en navn i combobox som så komme i anden linje med tekstbokse osv-
Og der efter skal der skrives et pulje navn i tekstboks Pulje som skal være den samme for de 8 i den pulje.
derefter vælges 8 nye navne og disse skal ligeledes kunne vælges manuelt og disse gemmes under en anden pulje navn osv
kan det lade sig gøre?

Håber jeg har gjort mig forståeligt Smile Håber i kan hjælpe lille mig
mvh Gerda
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 19.Mar.2019 kl. 09:19
Excelgaard - Kan du ikke lave den her for Gerda ?

- Når et navn vælges i ComboBoxen, udfyldes række 1.
- Når næste navn vælges, udfyldes række 2.
- Osv. til alle 8 rækker er udfyldte med navne.
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 21.Mar.2019 kl. 20:14
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 22.Mar.2019 kl. 09:39
Tak Excelent Thumbs Up
Det tror jeg Gerda bliver glad for Smile
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 22.Mar.2019 kl. 20:12
Har været lidt fraværende fra min computer i deen uge - men, der var en, der var hurtigere end jeg :-)
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 23.Mar.2019 kl. 01:55
Så mangler vi bare at Gerda også ser det Unhappy
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
Gerda Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 11.Mar.2019
Land: Denmark
Status: Offline
Point: 11
Direkte link til dette indlæg Sendt: 24.Mar.2019 kl. 20:01
Skønt med nogle kloge hoveder der kan hjælpe os minder kloge 
Jeg takker af hele mit hjerte det var lige det jeg søgte..

Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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