Beste,
In de bijlage heb ik een bestandje toegevoegd met twee werkbladen.
Voor het stukje nieuwe werkorders, wil ik dat de omschrijving van de werkorder cel (A23, A24, A25, of A26)
en het ordernummer cel (I23, I24, I25, of I26). Na opslaan de gegevens verplaatst naar het werkblad "Werkorders".
Als ik onderstaande code uitvoer krijg ik in het werkblad werkorders steeds "waar"te zien in de cellen.
waar kan dit aan liggen?
Het werkblad werkorders moet dagelijks een overzicht weergeven van de nieuw aangemaakt werkorders.
Bekijk bijlage Overdracht concept .xlsm
In de bijlage heb ik een bestandje toegevoegd met twee werkbladen.
Voor het stukje nieuwe werkorders, wil ik dat de omschrijving van de werkorder cel (A23, A24, A25, of A26)
en het ordernummer cel (I23, I24, I25, of I26). Na opslaan de gegevens verplaatst naar het werkblad "Werkorders".
Als ik onderstaande code uitvoer krijg ik in het werkblad werkorders steeds "waar"te zien in de cellen.
waar kan dit aan liggen?
Het werkblad werkorders moet dagelijks een overzicht weergeven van de nieuw aangemaakt werkorders.
Code:
Sub get_files()
Dim Werkorder As String
Dim Ordernummer As String
Worksheets("Overdracht Formulier Smelterij").Select
Werkorder = Range("A23").Select
Ordernummer = Range("I23").Select
Worksheets("Werkorders").Select
Worksheets("Werkorders").Range("A1").Select
If Worksheets("Werkorders").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Werkorders").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Werkorder
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Ordernummer
Worksheets("Overdracht Formulier Smelterij").Select
Worksheets("Overdracht Formulier Smelterij").Range("A23,I23").Select.ClearContents
End Sub
Bekijk bijlage Overdracht concept .xlsm