hallo zal mij ff kort voorstellen ben gino 45 jr en vader van 3 kinderen, momenteel ben ik mij aan het verdiepen in vba
ik heb een Excel bestand op een andere drive staan hier in deze drive staat in een map een excel bestand met gegevens die ik uit deze map wil overnemen en dan weer wil copieren naar een geopend excel bestand, de drive waar de gegevens staan is public en deze drive is niet geopend ben nog een leek op dit gebied en hoop dat jullie snappen wat ik wil gaan doen. aub in begrijpelijke taal een uitleg geven.
dit is wat ik nu heb
Private Sub CommandButton3_Click()
Dim map1 As String
'
' Macro1 Macro
' openen van productie volgorde
'\TOMASZ\Volgorde\
'
ChDrive "d:\Beitslijn"
ChDir "d:\beitslijn\map1"
Worksheets("gegevensblad").Select
Range("a15").Select
Selection.Cut
'ActiveWindow.Hide
Sheets("productievolgorde exit").Select
Worksheets("productievolgorde exit").Range("a2").PasteSpecial Paste:=xlPasteValues
'Columns("B:B").EntireColumn.AutoFit
'Columns("C:C").EntireColumn.AutoFit
'Columns("C:C").ColumnWidth = 5.14
'Columns("E:E").ColumnWidth = 9.29
'Sheets("coilomschrijving").Select
End Sub
nu heb ik hier als voorbeeld "d" als drive genomen dit is nu in dit voorbeeld mijn usb stick waar ik ff voorbeeld gegevens heb geplaatst
code wat in het groen staat is niet van toepassing
alvast bedankt
ik heb een Excel bestand op een andere drive staan hier in deze drive staat in een map een excel bestand met gegevens die ik uit deze map wil overnemen en dan weer wil copieren naar een geopend excel bestand, de drive waar de gegevens staan is public en deze drive is niet geopend ben nog een leek op dit gebied en hoop dat jullie snappen wat ik wil gaan doen. aub in begrijpelijke taal een uitleg geven.
dit is wat ik nu heb
Private Sub CommandButton3_Click()
Dim map1 As String
'
' Macro1 Macro
' openen van productie volgorde
'\TOMASZ\Volgorde\
'
ChDrive "d:\Beitslijn"
ChDir "d:\beitslijn\map1"
Worksheets("gegevensblad").Select
Range("a15").Select
Selection.Cut
'ActiveWindow.Hide
Sheets("productievolgorde exit").Select
Worksheets("productievolgorde exit").Range("a2").PasteSpecial Paste:=xlPasteValues
'Columns("B:B").EntireColumn.AutoFit
'Columns("C:C").EntireColumn.AutoFit
'Columns("C:C").ColumnWidth = 5.14
'Columns("E:E").ColumnWidth = 9.29
'Sheets("coilomschrijving").Select
End Sub
nu heb ik hier als voorbeeld "d" als drive genomen dit is nu in dit voorbeeld mijn usb stick waar ik ff voorbeeld gegevens heb geplaatst
code wat in het groen staat is niet van toepassing
alvast bedankt