kolommen in andere bestanden opvragen en plakken

[HSV]

De code zet de waarden van kolom K in kolom J, of heb je die aangepast?
Als nu alles in kolom L moet, moeten dan de gegevens van K1:K? beginnen in L9. zodat de gegevens van J5:J8 in L5:L8 gezet worden?

 

[joost66]

Harry,

L was typefout, moet inderdaad J zijn. Komt neer op het volgende:
K1 t/m K4 moet naar J1 t/m J4
J5 t/m J8 moet naar J5 t/m J8
K9 t/m K(eind) moet naar J9 t/m J(eind)

Dus mij leek meest makkelijk:
eerst hele kolom K naar J
J5 t/m J8 overschrijft dan kolom J de cellen 5 t/m 8

 

[HSV]

Hallo Joost,

Vertaald naar je eigen schrijven.

Sub hsv()
Dim objBestand As String, rng As Range
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Citrix...."
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excelbestanden", "*.xls; *.xlsm; *.xlsx", 1
    .InitialFileName = ThisWorkbook.Path
    If .Show = -1 Then
        objBestand = .SelectedItems(1)
        Workbooks.Open objBestand
        With Sheets(1)
          Set rng = ActiveWorkbook.Sheets(1).Range("K9:K" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
             with ThisWorkbook.Sheets(1)
                .Range(rng.Address).Offset(, -1) = rng.Value
                .range("j5:j8") = activeworkbook.sheets(1).range("j5:j8").value
             end with
             ActiveWorkbook.Close
        End With
    End If
End With
End Sub

 

[joost66]

Harry, nogmaals bedankt!!

 

[HSV]

Graag gedaan Joost.

Als er geen vragen meer over zijn mag je de vraag als opgelost markeren in je openingspost.
Bvd.

 

[joost66]

ik ga nog even wat uitzoeken/uittesten en dan zal ik dat doen.