Voorwaardelijk meerdere rijen vanuit urenregistratie kopieren naar factuur

[DeDuizendpoot]

Hallo allemaal,

Ik vraag me af of het ook mogelijk is om in de tabbladen factuursjabloon1 en factuursjabloon2 alle rijen en een deel van de kolommen behorende bij een specifieke klant vanuit het tabblad urenregistratie te importeren.

Op de factuursjablonen in cel A3 kan aangegeven worden voor welke klant de factuur opgemaakt moet worden.

In factuursjabloon1 wil ik graag de kolomgegevens (datum / omschrijving / btw / aantal uren) importeren vanuit het tabblad urenregistratie voor de klant vermeld in cel A3

In factuursjabloon2 wil ik daarnaast ook de kolomgegevens (begintijd en eindtijd) importeren vanuit het tabblad urenregistratie voor de klant vermeld in cel A3

Weet iemand hoe ik de kolomgegevens van alle rijen behorende bij de vermelde klant kan importeren?

Mvg,
Sandra (De Duizendpoot)

Bekijk bijlage De Duizendpoot_Urenregistratie, Kilometerregistratie & Factuuropmaak1.xlsx

 

[NogGeenGuru]

Hoi sandra,

gegevens o.b.v. een bepaalde waarde kun je gemakkelijk zoeken met verticaal en/of horizontaal zoeken.
let wel op dat deze werken van links naar rechts.

om dat mogelijk te maken heb ik (links) zoeknummers toegevoegd. deze nummers tellen het aantal keer dat de naam voor komt.
de facturen gaan vervolgens opzoek naar die nummers en zoeken d.m.v. verticaal zoeken de juiste gegevens erbij.

als je meer in wilt vullen kun je de formules gewoon doortrekken. vergeet dan niet de matrix aan te passen in de formules!

de cellen van de zoeknummers heb ik kleurtjes mee gegeven zodat het makkelijk te zien is wat waarbij hoort.
deze cellen kun je natuurlijk gewoon verbergen, je wilt ze natuurlijk niet afdrukken.

succes!:thumb:

 

[DeDuizendpoot]

Super bedankt

Zo simpel is het dus.
Het verticaal zoeken kende ik maar de functie AANTAL.ALS kende ik nog niet.
Nu nog eens even goed alle functies in de facturen bestuderen zodat ik deze een volgende keer zelf kan toepassen.

Nogmaals super bedankt.

 

[VenA]

Om het een beetje spannender te maken: met een stukje code.

In een module

Function VenA(r As Range, b As Boolean) As Variant
Dim ar, ar1, j, t
ar = Sheets("Urenregistratie").Cells(1).CurrentRegion
ReDim ar1(15, 5)
For j = 1 To UBound(ar)
    If ar(j, 7) = r Then
        ar1(t, 0) = ar(j, 1)
        ar1(t, 1) = ar(j, 2)
        ar1(t, 2) = IIf(b, ar(j, 3), "")
        ar1(t, 3) = IIf(b, ar(j, 4), "")
        ar1(t, 4) = ar(j, 5)
        ar1(t, 5) = Round(ar(j, 6), 2)
        t = t + 1
    End If
Next j
VenA = ar1
End Function

In de bladmodule van 'Factuursjabloon1'

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then [A13].Resize(16, 6) = VenA(Target, False)
End Sub

In de bladmodule van 'Factuursjabloon2'

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then [A13].Resize(16, 6) = VenA(Target, True)
End Sub