origami123
Gebruiker
- Lid geworden
- 7 apr 2012
- Berichten
- 54
Goedemiddag,
Ik ben bezig met een verzendlijst, waarin na verzending naar een ander tabblad 'overzicht' in workbook "Update" de lege regels in dat tabblad moeten worden verwijderd.
D.w.z. de opmaak dient verticaal net zo ver te reiken als de laatste ingevulde rij +1
De originele lijst heeft een automaat om een nieuwe regel - inclusief formules en opmaak - toe te voegen, zodra de laatste lege regel wordt aangesproken en als gevolg daarvan heeft de nieuwe lijst - incl. opmaak - vandaag een andere lengte als gisteren of morgen.
Als ik vervolgens de 'values' , maar ook de 'formats' van de originele lijst, doorstuur naar "Update", dan wordt de opmaak niet meegenomen.
Om dit te voorkomen, heb ik de opmaak op het andere tabblad in "Update" alvast aangemaakt, met de bedoeling, deze nadien weer tijdelijk te wissen met een macro.
Indien de cel in kolom C leeg is, dan dient de macro deze regel te verwijderen, echter helaas werkt dit niet, want schijnbaar is door de gebruikte opmaak de regel niet leeg en wordt dus niet gewist.
Hieronder de door mij gebruikte code:
Het kan uiteraard veel beter, maar uiteindelijk moet het tabblad "overzicht" in workbook "Update" zich aanpassen en er eigenlijk hetzelfde uit moeten zien als de originele lijst, maar zonder de formules.
Wellicht kan iemand mij hierin de weg wijzen?
M.vr.gr.
Origami
Ik ben bezig met een verzendlijst, waarin na verzending naar een ander tabblad 'overzicht' in workbook "Update" de lege regels in dat tabblad moeten worden verwijderd.
D.w.z. de opmaak dient verticaal net zo ver te reiken als de laatste ingevulde rij +1
De originele lijst heeft een automaat om een nieuwe regel - inclusief formules en opmaak - toe te voegen, zodra de laatste lege regel wordt aangesproken en als gevolg daarvan heeft de nieuwe lijst - incl. opmaak - vandaag een andere lengte als gisteren of morgen.
Als ik vervolgens de 'values' , maar ook de 'formats' van de originele lijst, doorstuur naar "Update", dan wordt de opmaak niet meegenomen.
Om dit te voorkomen, heb ik de opmaak op het andere tabblad in "Update" alvast aangemaakt, met de bedoeling, deze nadien weer tijdelijk te wissen met een macro.
Indien de cel in kolom C leeg is, dan dient de macro deze regel te verwijderen, echter helaas werkt dit niet, want schijnbaar is door de gebruikte opmaak de regel niet leeg en wordt dus niet gewist.
Hieronder de door mij gebruikte code:
Code:
Sub Opschonen()
Workbooks.Open ("c:\backup\verzendkopie\Update.xlsx")
Call LegeRijen
ActiveWorkbook.Close True
End Sub
Sub LegeRijen()
With Sheets("overzicht")
L_Row = .Range("C65536").End(xlUp).Row
For I = L_Row To 7 Step -1
If WorksheetFunction.CountA(.Rows(I)) = 0 Then .Rows(I).Delete
Next
End With
End SubHet kan uiteraard veel beter, maar uiteindelijk moet het tabblad "overzicht" in workbook "Update" zich aanpassen en er eigenlijk hetzelfde uit moeten zien als de originele lijst, maar zonder de formules.
Wellicht kan iemand mij hierin de weg wijzen?
M.vr.gr.
Origami
Laatst bewerkt:
