Lege cellen = niet printen

[willyv28]

Bekijk bijlage Rekening Medeeigenaars test.xlsIk ben bij ons in het gebouw zowat tot boekhouder gebombardeerd. Daarom maakte ik iets in Excel (zie blad 1 in bijlage). Graag had ik op der einde van het jaar aan elke eigenaar een blad overhandigd met de bewerkingen op zijn naam zoals : 40/0 = blad 3, 40/1 = blad 4, enz.
VB. 40/1
Is cel L of M leeg dan print hij niks en slaat hij die lijn over.
Is cel L of M niet leeg dan print hij cel A, B, L & M
Hopelijk ben ik duidelijk.
Kan iemand mij helpen, alvast bedankt.
Willy.

 

[willyv28]

Kan niemand mij helpen, of is dat niet mogelijk?

 

[Warme bakkertje]

Zie bijlage.

 

[willyv28]

Bedankt voor je reactie, werkt perfect. Hoe voeg ik bovenaan het blad de volgende tekst toe " De volgende verrichtingen gebeurden voor jou rekening ". En dan 2 blanco lijnen invoegen.

 

[trucker10]

en stukje code bijvoegen

Next
For i = 4 To 33
If Blad1.Cells(i, fcolumn + 1) <> "" Then
Blad1.Cells(i, 1).Resize(, 2).Copy
.Cells(iRow, 1).Resize(, 2).PasteSpecial xlPasteValues
Blad1.Cells(i, fcolumn + 1).Copy
.Cells(iRow, 8).PasteSpecial xlPasteValues
iRow = iRow + 1

End If
Next

.PageSetup.LeftHeader = "deze tekst wil ik "
.PrintPreview 'Printout
End With
Next

 

[willyv28]

Ik zal eens een poging wagen. Daar blad 1 nog een verlenging had heb ik die aangevuld met For i= 42 To 69, maar de eerste 18 lijnen op het af te drukken blad print hij bij elke eigenaar de datum perfect en van de 19é rij print hij een getal zoals bv. 40315, wat is hier aan te verhelpen?

 

[Warme bakkertje]

Pas gewoon de celeigenschappen verder naar beneden aan naar Datum.

 

[willyv28]

bedankt voor je prachtige hulp.

 

[willyv28]

Mag ik er toch nog eens op terug komen? Hoe kan ik het saldo maken onderaan elke rij en dan beide getallen van mekaar aftrekken met de tekst "Uw rekening stand einde boekjaar".

 

[Warme bakkertje]

Voeg deze regels in juist boven PrintPreview

    .Cells(iRow + 1, 6) = "Totaal"
    .Cells(iRow + 1, 7) = WorksheetFunction.Sum(.Range("G3:G" & iRow - 1))
    .Cells(iRow + 1, 8) = WorksheetFunction.Sum(.Range("H3:H" & iRow - 1))
    .Cells(iRow + 2, 2) = "Uw rekeningstand einde boekjaar " & Year(Date)
    .Cells(iRow + 2, 6) = .Cells(iRow + 1, 7).Value - .Cells(iRow + 1, 8).Value
    .Cells(iRow + 2, 6).NumberFormat = "0.00"

 

[willyv28]

Bedankt werkt goed en terug wat bijgeleerd.