VBA: kopier linier ud fra kriterie og indsæt i samme linie i anden fil

Et skud fra hoften....

Dim wkb1 as workbook
Dim wkb2 as workbook

set wkb1 = workbooks.Open("skriv fil1 sti + navn")
set wkb2 = workbooks.open("skriv fil2 sti + navn")

'1)
range(wkb1.worksheets(1).range("A1"), wkb1.worksheets(1).range("A1").end(xldown)).copy destination:= wkb2.worksheets(1).range("A1")

'2) og 3)
Dim c as range
for each c in range(wkb2.worksheets(1).range("A1"), wkb2.worksheets(1).range("A1").end(xldown)).cells
  if lcase(c.offset(0,1).value) = "x" then
    range(c.offset(0,11), c.offset(0,22)).copy
    wkb1.worksheets(1).range("L1").offset(c.row -1,0).pastespecial xlvalues
  end if
next

Kunne du bruge det?

Jeg er lige ved at se om jeg kan finde ud af at få det testet.....
Men kan man indarbejde følgende:

A) wkb1 skal være den aktive fil, dvs. den fil jeg kører koden fra. Jeg ønsker dermed ikke at skulle angive filnavn og sti.

B) wkb2 skal vælges via en dialogboks ("Application.FileDialog(msoFileDialogOpen)") istedet for at angive filnavn og sti i selve koden.

Ja, det kan man godt

set wkb1 = activeworkbook
set wkb2 = Application.FileDialog(msoFileDialogOpen)

Kan du ikke lige forklarer hvad det er der sker i hver af de her linier. Jeg har nemlig brug for at kunne rette dem lidt til efter at mine ark har ændret sig lidt.

if lcase(c.offset(0,1).value) = "x" then
    range(c.offset(0,11), c.offset(0,22)).copy
    wkb1.worksheets(1).range("L1").offset(c.row -1,0).pastespecial xlvalues
  end if

.Copy linjen kopierer

.pastespecial sætter ind

.offset fanger der område du vil have kopieret

Jeg får en "Run-time error '13' Type mismatch" ¨på følgende linie:

set wkb2 = Application.FileDialog(msoFileDialogOpen)

Så må du dele i to

Application.FileDialog(msoFileDialogOpen)
set wkb2 = activeworkbook

Application.FileDialog(msoFileDialogOpen) fejler generelt!

"Compile error: Invalid user of property"


Hvis jeg søger i Excel hjælpen på "Application.FileDialog" så står der:

- msoFileDialogOpen. Allows user to open a file.
- msoFileDialogFilePicker. Allows user to select a file.

Eksemplet er som følger

Sub UseFileDialogOpen()

    Dim lngCount As Long

    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show

        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount

    End With

End Sub

Bliver jeg nød til at skrive det på en anden måde for at det virker i Excel 2010 ???

vedr. #6: jeg mente det med "offset". Hvad betyder det, og hvad betyder tallene i parentesen?

Jeg ville nok gøre sådan her

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to import", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")
''
If FileToOpen = False Then
MsgBox "No file specified.", vbExclamation, "Duh!!!"
Exit Sub
Else
set wkb2 = Workbooks.Open Filename:=FileToOpen
End If

det første tal er række offset det andet er kolonne offset

Jeg prøver at køre den i breakmode og med det samme jeg prøver at sætte den igang med F8, så går den ned og fejler:"Compile error: Syntax error" på linien:
"Set wkb2 = Workbooks.Open Filename:=FileToOpen"

Set wkb2 = Workbooks.Open(Filename:=FileToOpen)

Ok, super så virkede det.

Næste spørgsmål/problem:

'1)
range(wkb1.worksheets(1).range("A1"), wkb1.worksheets(1).range("A1").end(xldown)).copy destination:= wkb2.worksheets(1).range("A1")

Hvad skal mine sheets hedde? 1? jeg syntes ikke der sker noget når jeg kører dette trin i breakmode....

worksheets(1) tager den første arkfane

Og hvis jeg istedet skal angive at sheet'et fx hedder "FOREXTMONDKK", hvordan skriver jeg det så?

worksheets("FOREXTMONDKK")

Hej igen Thor

Jeg har lige brug for en sidste hjælp:

Hvad betyder denne linie:
wkb1.worksheets(1).range("L1").offset(c.row -1,0).pastespecial xlvalues


Jeg syntes nemlig ikke at jeg får indsat mine copierede celler i de korrekte linier.....
Området med tal som jeg kopierer i wkb2 starter i celle L1, så derfor skal området som dataene indsættes is i wkb1 vel også starte med L1. Men hvad betyder .offset(c.row -1,0) så?

Det ser ud som om at det jeg har kopieret i wkb2 fra række 6 bliver indsat i wkb1 i række 11 osv.

Koden looper over linjerne i wkb2 og hvis der er x bliver L... kopieret og sat ind i samme række i wkb1.
offset sørger for at komme ned i samme række som informationerne kommer fra.

hmmm, jeg forstår ikke hvad det er der går galt......
Kan du gennemskue hvad det er der sker ifht det jeg skriver i #20?
Jeg har ændret noget på de celler der henvises til og det offset der laves, så koden nu ser således ud:


Sub test()

Dim wkb1 As Workbook
Dim wkb2 As Workbook

Set wkb1 = ActiveWorkbook  ' RDPortfolio filen

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose an excel file to import data from", _
FileFilter:="Excel Files *.xls* (*.xls*),")
''
If FileToOpen = False Then
MsgBox "No file specified.", vbExclamation, "Duh!!!"
Exit Sub
Else
Set wkb2 = Workbooks.Open(Filename:=FileToOpen) ' Consolidation filen
End If

'1)
Range(wkb1.Worksheets("Portfolio file").Range("B6"), wkb1.Worksheets("Portfolio file").Range("B6").End(xlDown)).Copy Destination:=wkb2.Worksheets("Consolidation").Range("B6")

'2) og 3)
Dim c As Range
For Each c In Range(wkb2.Worksheets("Consolidation").Range("B6"), wkb2.Worksheets("Consolidation").Range("B6").End(xlDown)).Cells
  If LCase(c.Offset(0, -1).Value) = "x" Then
    Range(c.Offset(0, 1), c.Offset(0, 12)).Copy
    wkb1.Worksheets("Portfolio file").Range("C6").Offset(c.Row - 1, 0).PasteSpecial xlValues
  End If
Next

End Sub


Så spørgsmålet er om jeg har ændret noget forkert i den sidste linie i koden???

ja

wkb1.Worksheets("Portfolio file").Range("C6").Offset(c.Row - 1, 0).PasteSpecial xlValues

skal være

wkb1.Worksheets("Portfolio file").Range("C1").Offset(c.Row - 1, 0).PasteSpecial xlValues

Skal vi lukke?

Hej Thor

Undskyld ventetiden, jeg er lige blevet hængt op af et budget!
Jeg har ikke nået at teste din rettelse i #23, så vil gerne lige holde den åben.
.....jeg forstår dog ikke hvorfor det skal være C1 istedet for C6.....?

Hej Thor

Så fik jeg endelig testet færdig.
Det med offset har jeg ikke arbejdet med før, så det gav mig nogle udfordringer ifht at få rettet koden til så den passede i min originale fil som var noget anderledes end det eksempel jeg havde opstillet i dette spørgsmål.
Men det lykkedes :-)

Mange tak for hjælpen.