Registreren en factureren

[Johnsalon]

nou ja, dat klopt enigszins.... dat krijg je, je begint ergens en er komt (groeit) steeds een stukje bij!

Maar als ik nu eerst eens een goed verzamel maak op 1 pagina.... (ik weet dat het veel werk is natuurlijk) is het dan mogelijk om van die ene pagina een factuur naar boven te toveren zonder overige regels!?

 

[VenA]

Zoals verwacht een compleet ander bestand dan eerder geplaatst.

Probeer deze eens.

Sub VenA()
Sheets("Factuur").Copy , Sheets(Sheets.Count)
With ActiveSheet
    lr = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row / 54
    For j = 0 To lr - 1
        t = 0
        ar = .Cells((j * 54) + 12, 1).Resize(31, 7)
        ReDim ar1(32, 1 To 7)
        For jj = 1 To 31
         If ar(jj, 3) > 0 Then
            For jjj = 1 To 7
                ar1(t, jjj) = ar(jj, jjj)
            Next jjj
            t = t + 1
        End If
        Next jj
        .Cells((j * 54) + 12, 1).Resize(31, 7) = ar1
    Next j
End With
End Sub

 

[Johnsalon]

VenA super bedankt, en ja ik was waarschijnlijk niet duidelijk genoeg.... ik ben ook nogmaar een junior-junior piep klein, ik ben heel blij met deze oplossing!

Super bedank allemaal