andere sheet activeren

DirkB · 28 aug 2015

Met onderstaande code haal ik gegevens op uit een andere sheet.
de naam van deze sheet kan is een variabele en komt van blad1 range T2

het openen en ophalen gaat prima
alleen het opnieuw activeren van de sheet om deze te sluiten lukt niet.

Code:

Sub Macro1()
Dim ho As Range
Set ho = Sheets("Blad1").Range("T2")
 
Application.DisplayAlerts = False
Workbooks.Open Filename:=ho
Range("C3:C1000").Select
   Selection.Copy
      
   Windows("basisbestand.xlsm").Activate
   Sheets("blad3").Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
Windows("ho").Activate
'Windows("ophaalbestand.xlsx").Activate werkt wel
ActiveWindow.Close

OctaFish · 28 aug 2015

Waarom moet er steeds geselecteerd worden?

Code:

Dim ho As Range
Dim wbS As Workbook, wbD As Workbook

    Set wbD = ActiveWorkbook
    Set ho = Sheets("Blad1").Range("T2")
    Application.DisplayAlerts = False
    Set wbS = Workbooks.Open(Filename:=ho)
    wbS.Sheets("Voorbeeld").Range("A1:E39").Copy
    wbD.Sheets("blad3").Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    wbS.Close

andere sheet activeren

DirkB

Gebruiker

OctaFish

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy