shalhevet
Gebruiker
- Lid geworden
- 9 okt 2007
- Berichten
- 245
In mijn debiteuren bewaking bestand heb ik de volgende code":
Deze code zorgt ervoor dat bij het openen van het bestand wordt de tabblad "debiteuren bewaking" leeg gemaakt en vervolgens ingevuld met gegevens.
De gegevens worden opgehaald van de tabblad "verkoopboek" die in hetzelfde bestand staat.
De code zoekt naar facturen met een vervallen betaaldatum die nog niet betaald zijn.
Dat werkt prima maar mijn probleem is dat het updaten van de debiteuren bewaking gebeurd nadat het bestand opgeslagen wordt, afgesloten wordt en dan opnieuw open.
Ik zou de code zodanig willen aanpassen dat hij automatisch de debiteuren bewaking update als ik mee bezig ben.
Dus als ik nu het bestand open doe, staan paar facturen in de debiteuren bewaking - deze hebben dan een verval datum die reeds verstrekken is. Als ik een vinkje bij zet moet de regel uit de debiteuren bewaking verdwijnen zonder dat ik eerst moet opslaan, afsluiten en weer openen.
Want..... ik doe het bestand open, ik kijk naar facturen die inmiddels betaald zijn en zet ik bij deze een vinkje, daarna (als ik dus klaar ben) wil ik een uitdraai van de debiteuren bewaking hebben met recente gegevens. Dus facturen die ik als betaald heb aangevinkt hoeven niet meer voor te komen in het bestand.
Zie bijlage voor een voorbeeld.
Bekijk bijlage Debiteurenbewaking (1).xls
Code:
Function TeBetalen()
Set wsv = Sheets("Verkoopboek")
Set wsb = Sheets("Debiteurenbewaking")
wsv.Select
Set Rng = wsb.Range("A1").CurrentRegion
If Rng.Rows.Count > 3 Then
Set Rng = Rng.Offset(3, 0).Resize(Rng.Rows.Count - 3, Rng.Columns.Count)
Rng.ClearContents
End If
For Each r In wsb.Rows(3).SpecialCells(xlCellTypeConstants)
Select Case r
Case "Volg " & Chr(10) & "Nr.": vlgcol = r.Column
Case "Debiteur" & Chr(10) & "Nr.": debnrcol = r.Column
Case "Naam": debcol = r.Column
Case "Totaal" & Chr(10) & "bedrag": totcol = r.Column
Case "Factuur" & Chr(10) & "nummer": faknrcol = r.Column
Case "Factuur" & Chr(10) & "datum": fakddcol = r.Column
Case "Vervaldatum": vddcol = r.Column
Case "Dagen": dagcol = r.Column
Case "Opmerkingen": opmcol = r.Column
End Select
Next
For Each r In wsv.Rows(3).SpecialCells(xlCellTypeConstants)
Select Case r
Case "Volg " & Chr(10) & "Nr.": v_vlgcol = r.Column
Case "Debiteur" & Chr(10) & "Nr.": v_debnrcol = r.Column
Case "Naam": v_debcol = r.Column
Case "Totaal" & Chr(10) & "bedrag": v_totcol = r.Column
Case "Factuur" & Chr(10) & "nummer": v_faknrcol = r.Column
Case "Factuur" & Chr(10) & "datum": v_fakddcol = r.Column
Case "Vervaldatum": v_vddcol = r.Column
Case "Betaald": v_betcol = r.Column
Case "Dagen": v_dagcol = r.Column
Case "Opmerkingen": v_opmcol = r.Column
End Select
Next
rw = 3
Set Rng = wsv.Range("A1").CurrentRegion
If Rng.Rows.Count > 3 Then
Set Rng = Rng.Offset(3, 0).Resize(Rng.Rows.Count - 3, Rng.Columns.Count)
For Each r In Rng.Columns(1).Cells
vdd = wsv.Cells(r.Row, v_vddcol)
bet = wsv.Cells(r.Row, v_betcol) & ""
If vdd < Date And _
bet = "" Then
rw = rw + 1
wsb.Cells(rw, vlgcol) = wsv.Cells(r.Row, v_vlgcol)
wsb.Cells(rw, debnrcol) = wsv.Cells(r.Row, v_debnrcol)
wsb.Cells(rw, debcol) = wsv.Cells(r.Row, v_debcol)
wsb.Cells(rw, totcol) = wsv.Cells(r.Row, v_totcol)
wsb.Cells(rw, faknrcol) = wsv.Cells(r.Row, v_faknrcol)
wsb.Cells(rw, fakddcol) = wsv.Cells(r.Row, v_fakddcol)
wsb.Cells(rw, vddcol) = wsv.Cells(r.Row, v_vddcol)
wsb.Cells(rw, dagcol) = wsv.Cells(r.Row, v_dagcol)
wsb.Cells(rw, opmcol) = wsv.Cells(r.Row, v_opmcol)
End If
Next
End If
wsb.Select
End FunctionDeze code zorgt ervoor dat bij het openen van het bestand wordt de tabblad "debiteuren bewaking" leeg gemaakt en vervolgens ingevuld met gegevens.
De gegevens worden opgehaald van de tabblad "verkoopboek" die in hetzelfde bestand staat.
De code zoekt naar facturen met een vervallen betaaldatum die nog niet betaald zijn.
Dat werkt prima maar mijn probleem is dat het updaten van de debiteuren bewaking gebeurd nadat het bestand opgeslagen wordt, afgesloten wordt en dan opnieuw open.
Ik zou de code zodanig willen aanpassen dat hij automatisch de debiteuren bewaking update als ik mee bezig ben.
Dus als ik nu het bestand open doe, staan paar facturen in de debiteuren bewaking - deze hebben dan een verval datum die reeds verstrekken is. Als ik een vinkje bij zet moet de regel uit de debiteuren bewaking verdwijnen zonder dat ik eerst moet opslaan, afsluiten en weer openen.
Want..... ik doe het bestand open, ik kijk naar facturen die inmiddels betaald zijn en zet ik bij deze een vinkje, daarna (als ik dus klaar ben) wil ik een uitdraai van de debiteuren bewaking hebben met recente gegevens. Dus facturen die ik als betaald heb aangevinkt hoeven niet meer voor te komen in het bestand.
Zie bijlage voor een voorbeeld.
Bekijk bijlage Debiteurenbewaking (1).xls
