VBA code om cellen bij elkaar op te tellen

Status
Niet open voor verdere reacties.
Het is vrij simpel uit te leggen; bij het optellen van de lijsten komt er in de cellen waar het aantal 0 is ook een 0 te staan, heel logisch dus. Alleen wil van die cellen een lege cel maken, niet alleen omdat het dan overzichtelijker leesbaar is maar ook omdat ik alle items waar een aantal >0 achter staat kopieer naar een pakbon. Nu maakt hij een pakbon van 4 pagina's waar ook alle items op staan met als aantal 0. Er zou dus een stukje code bij moeten waarbij hij van alle cellen met de waarde 0 een lege cel maakt.
 
Code: 
Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion.Columns(7).Resize(, 4)
    For i = 2 To UBound(sv)
       sv(i, 4) = sv(i, 1) + sv(i, 2) + sv(i, 3) + sv(i, 4)
       sv(i, 1) = ""
       sv(i, 2) = ""
       sv(i, 3) = ""
[COLOR=#0000ff]       If sv(i, 4) = 0 Then sv(i, 4) = ""[/COLOR]
     Next i
 Cells(1, 7).Resize(UBound(sv), 4) = sv
End Sub
 
Dankjewel snb en Harry, het stukje code van Harry maakt dat het exact doet wat ik wilde, heb alleen de "" vervangen door het woord 'Empty'.
Wederom heel erg bedankt voor de moeite.
 
Doe maar deftig. :d
 
HSV zei:
Doe maar deftig. :d
Klik om te vergroten...
Zeker wel, het is een tool geworden van waaruit ik offreer, factureer, mailings verstuur, een planning maak compleet met pakbonnen, enzovoort. Facturen en offertes verstuurd hij automatisch naar het juiste adres met mijn accountant in de bcc, aanmaningen worden automatisch gegenereerd, enzovoort. Het is even werk geweest, soms tot 04.00 uur in de morgen maar het werkt nu perfect. :cool:
 
Mooi zo, graag gedaan en veel plezier ermee.
 
Ik zit alleen nog met één kleinigheidje; wanneer een macro is uitgevoerd met bijvoorbeeld cellen legen blijft er een kader om deze cellen staan, voor het functioneren niet erg voor het visuele aspect niet mooi.
Is er een manier om dit te voorkomen?
 
Ik krijg nergens een kader, daar er niets geselecteerd wordt door de code.
 
Dit is wat ik bedoel.
 

Bijlagen

  • Voorbeeld pakbon 1.xlsb
    15,7 KB · Weergaven: 43
Over welke code heb je het?
 
Wanneer je de code activeert die de verborgen kolommen zichtbaar maakt blijven die kolommen als geselecteerd zichtbaar.
 
Hier worden geen kolommen geselecteerd na het uitvoeren van de codes.

Code: 
Sub EnkelePakBon()
'Maakt slechts een stukslijst zichtbaar
Columns("H:I").Hidden = True
End Sub
Sub DriePakBonnen()
'Maakt drie stukslijsten zichtbaar
    Columns("H:I").Hidden = False
End Sub

Waarbij ik 'Entirecolumn' verwijderd heb.
 
Probleem blijft, kan het eraan liggen dat ik met een Imac werk?
 
Ook als je bijvoorbeeld cel A1 selecteert, de codes uitvoert dat er dan een kader op de kolommen staat?
Het zou kunnen dat het aan je Mac ligt.

Code: 
Sub EnkelePakBon()
'Maakt slechts een stukslijst zichtbaar
Columns("H:I").Hidden = True
[COLOR=#0000ff]application.goto range("a1")[/COLOR]
End Sub
Sub DriePakBonnen()
'Maakt drie stukslijsten zichtbaar
    Columns("H:I").Hidden = False
 [COLOR=#0000ff]application.goto range("a1")[/COLOR]
End Sub

Zo dan?
 
Nee, werkt ook niet, de lijnen blijven om de cellen staan, ook wanneer ik een andere cel selecteer en ook om de cellen die gelocked zijn.
Heb het idee dat er een soort 'schermverversing' moet gebeuren.
Zie bijgevoegde afbeelding.
Schermafbeelding 2017-12-03 om 15.44.23.png
 
Dat soort dingen willen weleens spontaan gebeuren.
Ook twee of meerdere cellen die geselecteerd worden met een cel selectie.
Sluit Excel af en probeer het eens opnieuw.
 
Ik heb geen ervaring met Mac maar deze zou je ook kunnen proberen om kolommen zichtbaar te maken.
Code: 
Range("H1:I1").EntireColumn.Hidden = False
Code: 
Columns.Hidden = False
 
Laatst bewerkt:
Jack Nouws zei:
Ik heb geen ervaring met Mac maar deze zou je ook kunnen proberen om kolommen zichtbaar te maken.​
Klik om te vergroten...
Helaas, werkt ook niet.
Aangezien de cellen, ondanks het selectiekader, niet meer geselecteerd zijn ga ik er vanuit dat het een Mac probleem is.
Zal het morgen proberen op een Windows laptop en mijn ervaring hier delen.​
 
Vandaag de sheet op een Windows laptop en op een Macbook Pro getest, op de Windows laptop geen problemen, op de Macbook identiek aan mijn Imac, is dus erg waarschijnlijk dat het een Apple probleem is.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan