Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Data verplaatsen van werkblad naar werkblad

  1. #1
    Vraag is opgelost

    Data verplaatsen van werkblad naar werkblad

    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
    Overdracht concept .xlsm

  2. #2
    Giga Senior danny147's avatar
    Geregistreerd
    29 april 2007
    Locatie
    Sint-Niklaas
    Afstand tot server
    ±210 km
    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 aangepast door danny147 : 16 april 2018 om 14:55
    Grts Danny147

    Vrienden herken je als je in nood bent.
    Op helpmij.nl vind je je vrienden.

  3. #3
    Werkt perfect,

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

    mvg

  4. #4
    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

  5. #5
    Giga Senior danny147's avatar
    Geregistreerd
    29 april 2007
    Locatie
    Sint-Niklaas
    Afstand tot server
    ±210 km
    Beste getyours

    Nog even de vraag op opgelost plaatsen a.u.b.
    Grts Danny147

    Vrienden herken je als je in nood bent.
    Op helpmij.nl vind je je vrienden.

  6. #6
    Wederom een probleem opgelost
    bedankt

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen