• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Data verplaatsen van werkblad naar werkblad

Status
Niet open voor verdere reacties.

getyours

Gebruiker
Lid geworden
4 sep 2007
Berichten
78
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.



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
 
Beste getyours

Gebruik deze code eens

Code:
Sub get_files()

Worksheets("Overdracht Formulier Smelterij").Select

For Each C In Range("A23:A26")
    If C <> "" Then
        C.Copy Destination:=Worksheets("Werkorders").Range("A500").End(xlUp).Offset(1, 0)
        C.Offset(0, 8).Copy Destination:=Worksheets("Werkorders").Range("A500").End(xlUp).Offset(0, 1)
    End If
Next C

        Range("A23,A26").ClearContents
        Range("I23,I26").ClearContents

End Sub
 
Laatst bewerkt:
Werkt perfect,

maar wat is de reden dat er steeds "waar" in die code van mij kwam te staan?

mvg
 
omdat je bij Werkorder = Range("A23").Select
geen .select maar .value moet gebruiken

.select betekent dat je die cel de actieve cell moet maken
.value betekent dat je de waarde die in die cel staat koppelt aan de variabele "werkorder"

loop maar eens door de code heen in VBA editor door F8 te drukken, je zult zien zodra je over de regel heen bent met dat de waarde van werkorder "waar" is (laat je muis boven werkorder zweven)
en als je .value gebruikt zul je zien dat de waarde van de cel A23 aan werkorder wordt gekoppeld
 
Beste getyours

Nog even de vraag op opgelost plaatsen a.u.b. :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan