Det fungerer fint, mit problem er bare, at de oprindelige data indeholder noget betinget formatering, som "FilterCopy" ikke kopierer med. Nogen som kender eller kan udtænke en løsning på dette problem?
Mit bud er en midlertidig FilterinPlace og kopiering af dette område. With Range("Data") .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets( _ "Criteria").Range("A9:B10"), Unique:=False .SpecialCells(xlCellTypeVisible).Copy [b4] ActiveSheet.ShowAllData End With
Test lige det her: I resize-sætningen betyder offset(0,1) at r skal starte ved 2. kolonne. Så hvis "data" går fra A-T begynder vi ved B resize(,11) betyder at vi medtager 11 kolonner, altså B:L
Sub tester1() Dim r As Range Set r = Range("data") Set r = r.Offset(0, 1).Resize(, 11) Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets( _ "Criteria").Range("A9:B10"), Unique:=False
r.SpecialCells(xlCellTypeVisible).Copy [b4] ActiveSheet.ShowAllData End Sub
"Data" dækker kolonnerne B til AL. Men det er kun 11 forskellige kolonner af disse, som skal kopieres/filtreres. Så vidt jeg kan se skal de 11 kolonner ligge ved siden af hinanden, hvis man ønsker at bruge Resize.
Sådan, så bevøver di ikke lige ved siden af hinanden. Du skal bare udfylde r de kolonner der er nævnt i r bliver skjult i kopieringsøjeblikket.
Sub tester1() Dim r As Range Set r = Range("I:I, m:m, q:al") Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets( _ "Criteria").Range("A9:B10"), Unique:=False r.EntireColumn.Hidden = True Range("data").SpecialCells(xlCellTypeVisible).Copy [b4] r.EntireColumn.Hidden = False ActiveSheet.ShowAllData End Sub
Synes godt om
Slettet bruger
13. august 2002 - 15:13#12
Kunne man ikke bare 'huske' den oprindelige betingede formatering, og genskabe den i destinationsområdet ?
Så er "kunden" tilbage :-) Min første tanke var også at genskabe formateringen i destinationsområdet, men det bliver meget besværligt, for nogen af de kolonner, som den betingede formatering afhænger af ligger kun i den oprindelige database. Derudover gør filteret, at der ikke er samme sammenhæng mellem rækkerne, så man vil heller ikke kunne kopiere formateringen.
Jeg prøver at arbejde lidt videre med baks forslag. Forresten så ligger B4:L4 på et andet ark end "Data".
Hov, der var et spørgsmål åbent her - beklager! Jeg har ikke lige haft tid til at teste ovenstående, men svaret ser fornuftigt ud, så jeg afslutter spørgsmålet. Tak for hjælpen.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
