Userform - hjæp til valg i lister

Ja begge dele kan lade sig gøre

godt at høre. Har du så også et bud på, hvordan det skal gøres?

Måske du kan hente inspiration fra dette eksempel:

http://gupl.dk/720238/

Lettere forbedret version:

http://gupl.dk/720239/

#2 vender tilbage hvis det er ønskeligt

Supertekst du må meget gerne byde ind med løsningsforslag.

Hej Natkatten
Første del virker fint, men anden del er ikke som jeg har brug for. Jeg søger en løsning, hvor jeg f.eks. ved at vælge appelsiner i første tekstboks, skal kunne vælge mellem sure og søde i anden (bare et eks.). valget skal være i en dropdown boks, hvor første mulighed f.eks. sød er vist. Kan du indbygge det?

Afventer..

Har konstrueret en lille model, som indeholder 2 Combobokse og hvor produkt og tilhørende produktgrupper er anbragt i samme række.

Hvis du sender em mail returnere jeg filen. @-adresse under min profil.

Dim ræk As Integer, kol As Integer
Dim antalRæk As Integer, antalKol As Integer
Private Sub ComboBox1_Change()
Dim ix As Integer
    Me.ComboBox2.Clear
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    ix = Me.ComboBox1.ListIndex
   
    For kol = 2 To antalKol
        If Cells(ix + 1, kol) <> "" Then
            Me.ComboBox2.AddItem Cells(ix + 1, kol)
        End If
    Next kol
End Sub
Private Sub UserForm_activate()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 1 To antalRæk
        Me.ComboBox1.AddItem Range("A" & ræk)
    Next ræk
End Sub

mail er afsendt

Fil returneret..

Opdateret version:

http://gupl.dk/720257/

Hej natkatten
Funktionaliten er helt perfekt, jeg får dog en runtime error 32809, når data skal skrives tilbage til arket. Det sker I linjen:
inrk = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '  Offset(1, 0).Row

jeg kan ikke se nogen fejl I linjen. Virker den hos dig?

Ja, den virker uden problemer hos mig. Har lavet det i Excel 2013. Kan prøve at test det på en pc med Excel 2007 i morgen.

Hermed ikke sagt, at koden ikke kan forbedres (bl.a. med fejlkontrol), for det kan den naturligvis. Eksemplet er til inspiration og ikke en "færdiglavet" og gennemtestet løsning.

Sidste version:
Option Explicit
Dim ræk As Integer, kol As Integer
Dim antalRæk As Integer, antalKol As Integer
Private Sub ComboBox1_Change()
Dim ix As Integer
    Me.ComboBox2.Clear
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    ix = Me.ComboBox1.ListIndex
   
    If ix = -1 Then
        Exit Sub
    End If
   
    For kol = 2 To antalKol
        If Cells(ix + 2, kol) <> "" Then
            Me.ComboBox2.AddItem Cells(ix + 2, kol)
        End If
       
        If Me.ComboBox2.ListCount > 0 Then
            Me.ComboBox2.ListIndex = 0
        End If
    Next kol
End Sub
Private Sub CommandButton1_Click()
Dim antalRæk2 As Integer, ræk2 As Integer
    ActiveWorkbook.Sheets(2).Activate
    antalRæk2 = ActiveCell.SpecialCells(xlLastCell).Row
    If antalRæk2 = 1 Then
        antalRæk2 = 2
    End If
   
    For ræk2 = 2 To antalRæk2 + 1
        If Range("A" & ræk2) = "" Then
            Range("A" & ræk2) = Me.ComboBox1
            Range("B" & ræk2) = Me.ComboBox2
            ActiveSheet.Columns.AutoFit
           
            ActiveWorkbook.Save
            ActiveWorkbook.Sheets(1).Activate
            Me.ComboBox1 = ""
            Me.ComboBox1.SetFocus
            Exit Sub
        End If
    Next ræk2
End Sub
Private Sub UserForm_activate()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 2 To antalRæk
        Me.ComboBox1.AddItem Range("A" & ræk)
    Next ræk
End Sub

Får samme fejl som du på min arbejds-pc. Dette gælder både Excel 2007 og 2013. Jeg tror, at fejlen skyldes dette:

http://excelmatters.com/2014/12/10/office-update-breaks-activex-controls/

Jeg vender tilbage. Skal alligevel have fundet en løsning ifm. andre opgaver.

Har kørt denne "FixIT" fra Microsoft på min arbejds-pc:

http://support2.microsoft.com/kb/3025036/en-us

Nu fungerer makroen i Excel 2013, men ikke i Excel 2007! Jeg foretager mig ikke yderligere, idet jeg kun har beholdt Excel 2007 for at lave forskellige tests mv. Jeg benytter den ikke i mit daglige arbejde.

Giv pointene til Supertekst og luk dermed spørgsmålet - jeg går ikke op i dette.

Det er ok, men tak for hjælpen alligevel.