Hjælp til VBA - excel

Prøv denne...

Public Sub combobox46_change()

Sheets("Ark1").Range("B44").Value = UserForm1.combobox46.Text

sog = Userform1.combobox46.Text
r = Sheets("Ark1").Range("B60").End(xlDown).Row
For Each cell In Range("B60:B" & r)
    ant = 0
    If sog = cell.Value Then ant = ant + 1
    Next
If ant = 0 Then Sheets("Ark1").Range("B60").End(xlDown).Offset(1, 0) = UserForm1.combobox46.Text

   
End Sub

Hejsa lidt forsinket, men jeg har fået kigget på det og det virker ikke helt efter min hensigt. (jeg er nok bare en perle) men den mangler at tage de indskrevne ord ind i comboboxen.


Hvis du forstår hvad jeg mener ellers skriv, så må jeg forklare mig bedre ud fra din opfattelse.

De vil have hele listen ind í comboboxen, ved opstart af userform? og hvis det ønskede ikke findes kan man selv taste det. Er det korrekt forstået... ?

Jeg kigger på det når lille pigen er lagt i seng.

Oprindeligt ville jeg have at alle comboboxene i alt ti, skulle inde holde listen som er sorteret, således at hvis man tidligere har skrevet odret ville den selv foreslå det.

Men der skal helst heller ikke være uendeligt, men gerne 50-75 unikke ord tilknyttet. Og til sidst så skal den selvfølgelig tilføje listen som valg mulighed i comboboxene.

Ved ikke om jeg har forstået det rigtig. men prøv denne?

Private Sub ComboBox46_afterupdate()


Sheets("Ark1").Range("B44").Value = UserForm1.ComboBox46.Text

sog = UserForm1.ComboBox46.Text
r = Sheets("Ark1").Range("B60").End(xlDown).Row
For Each cell In Range("b60:b" & r)
    ant = 0
    If sog = cell.Value Then ant = ant + 1
    Next
If ant = 0 Then Sheets("Ark1").Range("B60").End(xlDown).Offset(1, 0) = UserForm1.ComboBox46.Text

  Range("b60").End(xlDown).Select
    Selection.Sort Key1:=Range("B60"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
End Sub

Private Sub UserForm_activate()

r = Range("B65000").End(xlUp).Row
    ActiveWorkbook.Names.Add Name:="combo", RefersToR1C1:=Range("b60:b" & r)
   
    With ComboBox46
        .RowSource = "combo"
        .ListIndex = "0"
    End With

End Sub

Det ser fint ud og viker, men jeg har jo 13 comboboxe som gerne skulle virke med denne kode???

Hvordan gør jeg det?

Hvis de alle ligger i samme userform, kopier du bare

With ComboBox46 'og ændre disse til den rigitge nummer
        .RowSource = "combo"
        .ListIndex = "0"
    End With

--------------
Denne linie skal også ligge pr. combobox. men ændre den til dette.
Private Sub ComboBoxXX_afterupdate()

call update

end sub

-----

Denne indsættes sammen med alt den anden kode.

Private function update()


Sheets("Ark1").Range("B44").Value = UserForm1.ComboBox46.Text

sog = UserForm1.ComboBox46.Text
r = Sheets("Ark1").Range("B60").End(xlDown).Row
For Each cell In Range("b60:b" & r)
    ant = 0
    If sog = cell.Value Then ant = ant + 1
    Next
If ant = 0 Then Sheets("Ark1").Range("B60").End(xlDown).Offset(1, 0) = UserForm1.ComboBox46.Text

  Range("b60").End(xlDown).Select
    Selection.Sort Key1:=Range("B60"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
End function

Håber dette giver mening

Det virker men jeg kan se det ikke kun er unikke poster, er der en måde hvorpå jeg kan få det? Evt. en indbygget funktion i excel.

Avanceret filter klarede den opgave, så læg et svar og du får dine meget velfortjente point, det er ikke altid man får hjælp som bare virker første gang.

Ved et problem man ikke kender så meget til.

består den liste du har ikke unikke værdier? Den tillader jo ikke at du indsætte noget 2 gange!!

Ellers må jeg lige kigge på den i morgen.

super, et svar.. Altid rart at kunne hjælpe.

Ja, desværre var jeg vist lidt for hurtig. Men den updated med de samme informationer så jeg ikke kunne gemme dem på regnearket.

Fordi jeg har en beregning knap som aktiveres og så læste den værdierne ind igen. Noget med screenupdating = True.

Det ser ellers rigtigt ud mangler bare lige at få det til at spille.

Forstår ikke helt hvad du mener...