Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Gegevens kopiŽren naar variabele cellen

  1. #1
    Member
    Geregistreerd
    23 maart 2001
    Locatie
    Hasselt
    Vraag is niet opgelost

    Question Gegevens kopiŽren naar variabele cellen

    Hoi Excel-specialisten,

    Ik heb volgend probleem :
    ik moet maandelijks data verzenden naar een file van een extern bureau.
    Deze file kan niet aangepast worden.
    Mijn gegevens gaan van bijv. 1/1 tot 31/1 (zie voorbeeld file "DATA"
    Voor "Januari" (eveneens in bijlage) werkt mijn macro, maar in "Februari"
    veranderen de bestemmings-cellen.
    Dit alles heb ik in de File "Data" beschreven.
    Is hier een oplossing voor?

    Alvast bedankt.

    Amado
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Als je echt niet kunt veranderen aan de opzet van die bestanden raak je aan zoiets.
    Januari even voorgedaan hieronder. Werkt in onderstaand voorbeeld alleen als je werkboek open staat, maar die kun je zelf wel aanpassen naar workbooks.open etc.

    Code:
    Sub j()
    With Workbooks("Januari").Sheets(1)
     Set a = .Cells.Find("Datum")
      For Each sh In ThisWorkbook.Sheets
        sh.Range("B2:D32").Copy .Cells(a.Row, 2).Offset(1)
        Set a = .Cells.FindNext(a)
      Next
     End With
    End Sub
    Gr,
    JV

  3. #3
    Member
    Geregistreerd
    23 maart 2001
    Locatie
    Hasselt

    Thanks

    Hoi JV,

    Code werkt perfect, waarvoor hartelijk bedankt.

    Prettige avond nog,

    Amado

  4. #4
    Member
    Geregistreerd
    23 maart 2001
    Locatie
    Hasselt
    Hoi JV,

    Kan die range "B232" nog variabel gemaakt worden?
    For Each sh In ThisWorkbook.Sheets
    sh.Range("B232").Copy .Cells(a.Row, 2).Offset(1)
    Set a = .Cells.FindNext(a)
    Zou telkens moeten gaan tot de laatste rij.
    (vb. in februari "B229") enz.
    kan dit bijvoorbeeld met CurrentRegion - Kolom A?

    Amado

  5. #5
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Probeer het eens zo, heb het niet getest. In je voorbeeld zou het niet uit moeten maken om wel/niet variabel te maken.

    Code:
    Sub j()
    With Workbooks("Januari").Sheets(1)
     Set a = .Cells.Find("Datum")
      For Each sh In ThisWorkbook.Sheets
        sh.Range("B2", sh.Cells(Rows.Count, 4).End(xlUp)).Copy .Cells(a.Row, 2).Offset(1)
        Set a = .Cells.FindNext(a)
      Next
     End With
    End Sub
    Gr,
    JV

  6. #6
    Member
    Geregistreerd
    23 maart 2001
    Locatie
    Hasselt
    Hallo JV,

    Code werkt nu perfect.
    In het voorbeeld maakte het idd niet uit, maar in het origineel wel,
    dus alles opgelost.
    Nogmaals heel erg bedankt.

    Gr,

    Amado

  7. #7
    Member
    Geregistreerd
    23 maart 2001
    Locatie
    Hasselt

    Aanpassing aan oplossing t.a.v. JV

    Hallo JV

    In bijlage de 2 files zoals ze er uiteindelijk gaan uitzien.
    De file "Januari2" is de file van het extern bureau.
    De data van de bladen van mijn file "TransfertTest" moeten dus
    op C42 C103 C164 C225 C286 komen (dus tussen datum en de juiste kolom zit er een lege lijn)
    Ik heb in mijn bestand subtotalen gemaakt om in 1 keer te kunnen kopiŽren naar hun file (om hun subtotaal lijn te ontwijken,
    deze mag ook overschreven worden door mijn subtotaal of is er misschien een andere oplossing?)
    De laatste kolom met weeknummer mag niet mee gekopieerd worden.
    Het aantal kolommen is ook niet steeds dezelfde. (zie nieuwe files in bijlage)
    Kan dit alles opgelost worden?

    Gr,

    Amado
    Bijgevoegde bestanden Bijgevoegde bestanden

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren