Ingen tomme felter i list

Sub fra værdier i kolonne B, ændres til din aktuelle kolonne. modificerer listen i C1 eller der hvor du har listen i forvejen.

Sub liste()
Dim b
For Each a In Range("b1", Range("b60000").End(xlUp))
        If a <> "" Then
        b = b & a.Value & ","
        Range("c1").Validation.Modify xlValidateList, , , b
        End If
Next
End Sub

Jeg er ny begynder i VBA så jeg vil gerne have det skået ud i pap :o)

Jeg har teksten på ark "hjælp / Kolonne a" og vil gerne have listen på ark "List /Kolonne K2"

Kan du hjælpe mig med det.

Sub liste2()    'Ændrer en i forvejen indsat datavalidering
                'til at udelade tomme værdier
Dim b
For Each a In Sheets("hjælp").Range("a1", Sheets("Ark3").Range("a60000").End(xlUp))
        If a <> "" Then
        b = b & a.Value & ","
        Sheets("List").Range("k2").Validation.Modify xlValidateList, , , b
        End If
Next
End Sub

Der var lige en fejl

Sub liste2()    'Ændrer en i forvejen indsat datavalidering
                'til at udelade tomme værdier
Dim b
For Each a In Sheets("hjælp").Range("a1", Sheets("hjælp").Range("a60000").End(xlUp))
        If a <> "" Then
        b = b & a.Value & ","
        Sheets("List").Range("k2").Validation.Modify xlValidateList, , , b
        End If
Next
End Sub

Den kommer med fejl på linie
Sheets("List").Range("k2").Validation.Modify xlValidateList, , , b

Det burde virke. Dit ark hedder da List, ikke ?

Ja det hedder List

Der skal være en datavalideringsliste i forvejen i K2, med liste som element, som jeg også skriver højere oppe. Makrone modificerer en allerede eksisterende liste.

Det virker

Mange tak

Fint :-)

OK

Du accepterer ved at markere navn og accepterer. Hvis du altså er tilfreds med løsningen.