Kode
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=3837
Udskrevet den: 28.Apr.2024 kl. 20:52
Emne: Kode
Besked fra: Gerda
Emne: Kode
Posteringsdato: 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 |
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 13.Mar.2019 kl. 01:26
Tilføj tekst til eksisterende tekst i en tekstboks:
------------- 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. |
Besked fra: Gerda
Posteringsdato: 13.Mar.2019 kl. 11:52
|
Hej Mange tak for dit hurtige svar  Men det kan jeg ikke fatte (måske mig der er dum)  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...  Nu kommer problemet så  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 |
Besked fra: Gerda
Posteringsdato: 15.Mar.2019 kl. 09:26
|
Nit problem blev ikke løst kan du hjælpe mig videre? på forhånd tak
|
Besked fra: EXCELGAARD
Posteringsdato: 17.Mar.2019 kl. 13:22
|
Jeg kan ikke gennemskue, hvad du præcist mener - du bli'r nok nødt til, at /topic662.html - 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. |
Besked fra: Gerda
Posteringsdato: 18.Mar.2019 kl. 11:09
|
Hej jeg kan ikke /topic662.html - uploade til forumdet er fejl ved upload |
Besked fra: Ib Hansen
Posteringsdato: 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 /hvordan-uploader-man-filer-til-forummet_topic662.html" rel="nofollow - uploader /topic662.html" rel="nofollow - du filer. Du kan også åbne den, ved at klikke /hvordan-uploader-man-filer-til-forummet_topic662.html" rel="nofollow - HER . ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: Gerda
Posteringsdato: 18.Mar.2019 kl. 16:01
| uploads/2417/Combobox_Upload_2019-03-18_16-00-43.xlsm" rel="nofollow - uploads/2417/Combobox_Upload_2019-03-18_16-00-43.xlsm |
Besked fra: Gerda
Posteringsdato: 18.Mar.2019 kl. 16:03
|
Tror jeg gjorde noget galt Nu er den der  |
Besked fra: Gerda
Posteringsdato: 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 Håber i kan hjælpe lille migmvh Gerda
|
Besked fra: Ib Hansen
Posteringsdato: 19.Mar.2019 kl. 09:19
|
Excelgaard - Kan du ikke lave uploads/1125/Gerda_-_Combobox_Upload_2019-03-18_16-00-43.xlsm" rel="nofollow - 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) |
Besked fra: excelent
Posteringsdato: 21.Mar.2019 kl. 20:14
|
uploads/248/Combobox_2.xlsm" rel="nofollow - Combobox_2.xlsm ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Ib Hansen
Posteringsdato: 22.Mar.2019 kl. 09:39
|
Tak Excelent Det tror jeg Gerda bliver glad for ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: EXCELGAARD
Posteringsdato: 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. |
Besked fra: Ib Hansen
Posteringsdato: 23.Mar.2019 kl. 01:55
Så mangler vi bare at Gerda også ser det  ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: Gerda
Posteringsdato: 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.. |