Wegschrijven in een bestaand bestand

[Bertus78]

Ik heb het volgende probleem.

Ik schrijf nu wat weg in het zelfde bestand.
Maar hoe doe ik dat als ik iets wel wil schrijven in een bestaand ander bestand?

Sheets("steekproef").Range("D26").Copy
    Sheets("steekproeflijst").Range("E65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Laten we ervan uit gaan dat de andere bestand "dossier" heet
Hoe krijg ik dan cel D26 in die bestand.
En dan ook weer wegschrijven onder de laatste rij.

 

[Jack Nouws]

Het zou kunnen op deze wijze ...(maar heb geen inzicht in je documenten)
Wel even padnaam en documentnamen goed instellen!

Sub Overdragen()
ls = Workbooks("??NAAM??.xlsm").Sheets("steekproef").Range("D26")
  With Workbooks.Open("C:\Users\Gebruiker\Documents\??BESTEMMING??.xlsx") 'dossier
      .Sheets("steekproeflijst").Cells(Rows.Count, 5).End(xlUp).Offset(1) = ls
      .Save
      .Close False
  End With
End Sub

 

[HSV]

Als beide bestanden in dezelfde map staan.

sub hsv()
workbooks.open(thisworkbook.path & "\dossier.xlsx").sheets("steekproeflijst").cells(rows.count,5).end(xlup).offset(1) = thisworkbook.sheets("steekproef").range("d26").value
end sub

 

[Bertus78]

Bedankt, hiermee kan ik aan de slag.

NOGMAALS BEDANKT, TOPPIE