Flyt tekst over i filter

hvad med at lukke dine andre spørgsmål

Det må du undskylde nu tror jeg at jeg har fundet ud af at give point og har fået lukket mine spørgsmål

denne sub flytter værdier i kolonne A til List-arket's kolonne A

Sub flyt()
Dim r As Single
Dim t1 As Single, t As Single
Sheets("Standart").Activate
r = Range(("A1"), Range("A65500").End(xlUp)).Count
t1 = 1
For t = 1 To r
If Cells(t, 1) <> "" Then
Sheets("List").Cells(t1, 1) = Cells(t, 1): t1 = t1 + 1
End If
Next
End Sub

hvis værdierne i List-arket skal starte i 2 række ændres t1 = 1 til t1 = 2
jeg går ud fra at du selv kan indsætte filteret

Det virker find men det jeg vil er at i helle kolonne K i ark (list) skal man kunne vælge mellem de tekster som er flytte over i ark (list)

så værdierne skal flyttes til kolonne K i stedet for A ?

Flyt værdierne til kolonne k kan jeg godt men i k1 og k2 til k40 skal der kunne vælges mellem værdierne med et filter (tror jeg det hedder)

så er det nok datavaliderings-list du mener
et øjeblik

Marker celle K1
Vælg Datavalidering i menuen Data
Vælg Liste i boxen Tillad
Klik på rød pil i boxen Kilde
Marker dine data i kolonne A + ENTER
ok

Ja det virker også men jeg har det problem at hvis der kommer flere værdier kommer de ikke med på filteret kun hvis jeg merkere flere felter end jeg skal bruge det er også OK men så kommer alle de tomme felter også med på filteret selvom at jeg merkere "Ignorer tomme" på Datavalideringen og de tomme felter ville gerne være fri for

jamen så må vi jo ha lavet et dynamisk område
et øjeblik

Vælg Navn/Definer i menuen Indsæt
Skriv fx. Liste som navn
Klik i boxen 'Refererer til'
indsæt følgende linie

=FORSKYDNING(List!$A$1;1;0;TÆLV(List!$A:$A)-1)

Marker K1
Vælg Datavalider i menuen Data
I boxen kildedata skriver du:

=Liste

K1 kan jo kopieres så langt ned du ønsker

Jeg forstå ikke rigtigt hvad jeg skal bruge det til
Jeg svare nok ikke mere i men i morgen er jeg tilbage igen men tak entil videre

Her er en alternativ makro
indsætter værdier i kolonne A og en datavalideringsliste i B1 i arket "List"


Sub nyliste()
Dim arr()
arr = Worksheet("Standart").Range("a1", Range("a65536").End(xlUp))
ReDim arr1(UBound(arr), 0)
Worksheet("List").Activate
For i = 1 To UBound(arr)
    If arr(i, 1) <> "" Then
        arr1(j, 0) = arr(i, 1)
        j = j + 1
        liste = liste & arr(i, 1) & ","
    End If
Next i
Range("b1").Validation.Delete
On Error Resume Next
Range("b1").Validation.Add xlValidateList, , , liste
Range("a1:a" & UBound(arr)) = arr1
End Sub

Jeg fik det til at virke det Liste op i datavalidering men den første værdi fra de overførte værdier kommer ikke med over i datavalideringen.

Den sidste makro du har send mig kan jeg ikke få til at virke der kommer fejlmeldeleser nå jeg køre den.

Indsæt denne linie istedet i Navn/Definer/kilde

=FORSKYDNING(List!$A$1;0;0;TÆLV(List!$A:$A))

den sidste makro har mrjh sendt ikke mig

det var Indsæt/Navn/Definer i boxen Refererer til

hjalp det?

Det virker perfekt nu jeg har været meget tilfreds med din hjælp

Sender du et svar

ok velbekom :-)