emielDS

ik vrees dat het verkeerde bestand bijgevoegd is.

of deze met een fout afhandeling.

Factuur betaling (3).xlsm

ik heb u nog een stapje verder geholpen.

Test Februari 2019 (1).xlsm

De code kan veel korter maar ik hoop dat je ze nu begrijpt.

op blad1 een samenvatting per naam en een totaal

Test Februari 2019 (1).xlsm

en als we nu nog mogen weten waar de uitslag moet staan kunnen we beginnen.

ik heb een heel bijzondere tip. plaats een voorbeeldbestand

met een voorbeeld bestand bedoelen wij zoiets.

vergelijken.xlsx

in e1

=als(a1=d1;c1;"")

of anders een klein voorbeeldbestand

Ik heb gezocht maar kan geen voorbeeldbestand vinden.

Deze doet het ook niet slecht denk ik

CSI Voorraadbeheer PCB + COMPONENTEN (1).xlsm

en werkt het als beide bestanden open zijn?

een bestand met macro's moetje opslaan als xlsm of xlsb, anders verdwijnen de macro's en geelt hij natuurlijk een fout

dit is er een zonder macro maar met een draaitabel

Excelissue (1).xlsx

of zo zonder knop?

bedoel je dit

Wanneer moeten die waarden gekopieerd worden? En waarom niet rechtstreeks in die cellen zetten

in a1 kopieren en plakken in i1 rechtstreeks plaatsen

Automatisch waarden plakken (1).xlsm

tel uw kosten samen deel dat bedrag door het totaal aantal verhuurde dagen en vermenigvuldig dat met de individuele dagen huur.

zo kan je de rekening achteraf maken. Als er ondertussen iemand een overdosis genomen heeft weet ik niet waar je het verschuldigd bedrag moet halen. 

blad is beveiligd. maar sorteren kan enkel als er geen samengevoegde cellen zijn.

of een voorbeeldbestand plaatsen met realistische cijfers, nu is uw auto op een bepaald moment drie keer verhuurd.

zo.

eerste bestand (1) (1).xlsm

De macro staat achter het blad.

Klik met rechts op de bladtab --> progammacode weergeven

Private Sub Worksheet_Change(ByVal Target As Range)            zegt dat de macro moet werken als er iets veranderd op het werkblad

If Not Intersect(Target, Range("b2")) Is Nothing Then                zorgt ervoor dat de macro alleen werkt  als er iets veranderd in cel B2
Set wb2 = Workbooks("tweede bestand (1).xlsm")                      is feitelijk niet nodig dient enkel om de volgende regel te verkort                                                                                              

wb2.Sheets("blad1").Range("a500").End(xlUp).Offset(1).Resize(, 2).Value = Range("a2").Resize(, 2).Value

End If
End Sub

wb2                                                                                           is de verkorte versie van vorige regel

.Sheets("blad1").Range("a500").End(xlUp)                                zoekt de laatste gevulde cel in kolom A

.Offset(1)                                                                                   gaat naar de volgende rij          

.Resize(, 2).Value                                                                       vergroot het bereik naar 2 cellen

= Range("a2").Resize(, 2).Value                                                zegt welke cellen moeten overgenomen worden

De macro in de 2° map mag weg.

het gemakkelijkst is met een macro.

Voorbeeld voor vraag pc forum .xlsm

beide bestanden openen

eerste bestand (1).xlsm

tweede bestand (1).xlsm

en het voorbeeldbestand?