Overfør filtreret data fra et ark til et andet

Er der data på ark1?

I Ark1 er indlæst XML Data

I Ark2 er der intet

Kunne du evt udover dette spørgsmål hjælpe med en kode for hvor mange record XML læser ind i Ark 1 inden filtreringen

Ok - prøver i første omgang at finde sammenhængen mellem ark2 og 1

Jeg kan uddybe:
På Ark1 indlæses XML Data som filtreres.
Lad os sige der er 29 Row
Efter filtrering ligger feks Row 14 på Row 2's plads (Kun 1 row)
Data fra denne row 14 skal vises på Ark2 i forskellige celler.
Det gør jeg f.eks ved i hver celle på Ark2 at skrive =Ark1!A14  osv...
Mit spørgsmål er hvordan får jeg fat i tallet 14 i Ark1 overført til Ark2?
Hvordan får jeg i Ark 2 indlæst data fra row 14 altså feks:
=Ark1!A14

Mit tillægsspørgsmål skyldes:
ActiveSheet.Range("$A$1:$AG$29").AutoFilter Field:=1, Criteria1:=Worksheets("Detail").Cells(2, 34).Value

Jeg skal hertil have fundet at der indlæses 29

Svar til det oprindelige spørgsmål.Anbringes under ark1

Sub markerFilterRækkePåArk2()
Dim rng As Range

    With ActiveWorkbook.Sheets(2)
    Set rng = .Range("A2", .Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
        For Each cell In rng
            x = cell.Row
            ActiveSheet.Rows(x).Select
        Next cell
    End With
End Sub

Tak - Jeg prøver

Jeg kan ikke fange dataene fra Ark1  ovre i Ark2.

Mit oprindelige spørgsmål:
Hvordan får jeg i Ark 2 indlæst data fra row 14 altså feks:
=Ark1!A14

Hvad skal jeg skrive efter =

Jeg har arbejdet intens med koderne men det virker ikke.
Jeg får en tom linie på Ark2 !

Jeg har Googlet og set mange andre har haft samme problem.

Jeg har data på række 2 i Ark1
Jeg har en tom række 2 i Ark2

Jeg har:  With ActiveWorkbook.Sheets("Ark2") anbragt under Ark1

Du skriver:

Anbringes under ark1
With ActiveWorkbook.Sheets(2)

Har jeg en fejl her?

Nb Kan jeg få det lagt på linie 1 på Ark2 (Når det virker)

Jeg fik det til at virke med disse koder:

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Detail")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Test")

For i = 2 To ws1.Range("A65536").End(xlUp).Row
    ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 6).End(xlUp).Row + 1)
Next i

Nu mangler jeg kun hjælp til at finde hvor mange Record der læses ind fra XML inden filtreringen (Her sat til 29)


ActiveSheet.Range("$A$1:$AG$29").AutoFilter Field:=1, Criteria1:=Worksheets("Detail").Cells(2, 34).Value

Tak for hjælpen

Vil du lave det så du kan få point

vil du lave det så du kan få point