25. juli 2006 - 11:30Der er
22 kommentarer og 1 løsning
Flyt tekst over i filter
jeg har et ark (Standart) med tekst i kolonne A men der er også tomme felter i kolonne A. Det jeg vil er at flytte de felter i kolonne A med tekst over i et andet ark (List) hvor man skal kunne vælge en af teksterne i et filter.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
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
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
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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.