Listboks Hjælp
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=3477
Udskrevet den: 04.Maj.2024 kl. 04:02
Emne: Listboks Hjælp
Besked fra: Dart
Emne: Listboks Hjælp
Posteringsdato: 10.Maj.2018 kl. 15:52
|
Hej nogen der kan hjælpe med denne kode jeg har brug for at listboks1 har to columns og de skal kan flyttes til listboks2 Men jeg kan ikke få listbox1 til at vise Columns A og B og flytte de valgte til Liistbox2 min kode er: Private Sub UserForm_Initialize() ' * ' Initialize On Error Resume Next ' * ' Define variables Dim WS As Worksheet Set WS = Ark7 Dim LastRow As Long LastRow = WorksheetFunction.Max(2, WS.Range("A" & WS.Rows.Count).End(xlUp).Row) Dim Counter As Long ' * ' Fill listboxes For Counter = 2 To LastRow ListBox1.AddItem WS.Range("A" & Counter).Value Next ListBox1.MultiSelect = fmMultiSelectMulti ListBox2.MultiSelect = fmMultiSelectMulti ES: ' End of Sub Set WS = Nothing End Sub |
Svar:
Besked fra: Dart
Posteringsdato: 10.Maj.2018 kl. 15:54
|
Koden til at flytte mellem listbox1 og listbox1 ser sådan ud: Option Explicit 'Move Listbox Items in UserForm 'code from Dave Peterson 'posted on http://www.contextures.com" rel="nofollow - www.contextures.com Private Sub BTN_moveAllLeft_Click() Dim iCtr As Long For iCtr = 0 To Me.ListBox2.ListCount - 1 Me.ListBox1.AddItem Me.ListBox2.List(iCtr) Next iCtr Me.ListBox2.Clear End Sub Private Sub BTN_moveAllRight_Click() Dim iCtr As Long For iCtr = 0 To Me.ListBox1.ListCount - 1 Me.ListBox2.AddItem Me.ListBox1.List(iCtr) Next iCtr Me.ListBox1.Clear End Sub Private Sub BTN_MoveSelectedLeft_Click() Dim iCtr As Long For iCtr = 0 To Me.ListBox2.ListCount - 1 If Me.ListBox2.Selected(iCtr) = True Then Me.ListBox1.AddItem Me.ListBox2.List(iCtr) End If Next iCtr For iCtr = Me.ListBox2.ListCount - 1 To 0 Step -1 If Me.ListBox2.Selected(iCtr) = True Then Me.ListBox2.RemoveItem iCtr End If Next iCtr End Sub Private Sub BTN_MoveSelectedRight_Click() Dim iCtr As Long For iCtr = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(iCtr) = True Then Me.ListBox2.AddItem Me.ListBox1.List(iCtr) End If Next iCtr For iCtr = Me.ListBox1.ListCount - 1 To 0 Step -1 If Me.ListBox1.Selected(iCtr) = True Then Me.ListBox1.RemoveItem iCtr End If Next iCtr End Sub |
Besked fra: Dart
Posteringsdato: 10.Maj.2018 kl. 16:07
 Min liste er i kolonne A og B på ark7 |
Besked fra: Dart
Posteringsdato: 10.Maj.2018 kl. 16:15
??? Er det muligt at den kan putte få kostpris på de valgte i Listbox2 i helholdsvis tekstboks 1-2-3 osv Tekstbokse = dem under pris på foto i forrige besked
|
Besked fra: EXCELGAARD
Posteringsdato: 12.Maj.2018 kl. 18:00
|
Prøv, at /topic662.html - upload dit regneark, så vi har noget, at arbejde med... ------------- 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: Dart
Posteringsdato: 12.Maj.2018 kl. 19:11
| uploads/1510/Ekstraarbejder_projekter_11-5_ny.xlsm" rel="nofollow - uploads/1510/Ekstraarbejder_projekter_11-5_ny.xlsm |
Besked fra: excelent
Posteringsdato: 14.Maj.2018 kl. 20:47
|
uploads/248/Ekstraarbejder_projekter_11-5_TEST.xlsm" rel="nofollow - Ekstraarbejder_projekter_11-5_TEST.xlsm ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Dart
Posteringsdato: 14.Maj.2018 kl. 21:28
|
Fedt lige hvad jeg havde brug for Takker |