Macro aanpassen

[Belinda S]

Een tijdje gelden heb ik een werkblad ontvangen met een macro die titel gegevens in alle kolommen gelijktijdig alfabetiseert.
Dit werkt perfect maar zoals zo vaak wil ik er graag iets bij hebben maar ik weet niet hoe dit te realiseren.
In A30 wil ik een teller bij houden hoeveel cellen er gevuld zijn.
Hiervoor heb ik in A30 gezet: =AANTALARG(A1:Z20)
En inderdaad het aantal gevulde cellen in cel A30 te staan.
Maar als ik nu de macro run dan verdwijnt deze formule en komt er in A1 het cijfer 1 te staan met in de formulebalk AANTALARG(#VERW)
Op zich begrijpelijk omdat de sorteer macro alle kolommen sorteert.
Kan de bestaande macro iets aangepast worden zodanig dat ik gebruik kan maken van de formule zonder dat deze na macro run verdwijnt?
Aangezien dit specialisten werk is waag ik mij hier niet aan maar heb alle vertrouwen in de Excel expert.
Als bijlage mijn werkblad.
BVD
Belinda

 

[roeljongman]

zet achter dit stuk van de macro

LastRow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

zet hier -1 achterm, dus zo:

LastRow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row -1

en daarna werkt het prima

 

[Belinda S]

Hallo Roel
Dacht precies gedaan te hebben wat voorgesteld maar het vreemde is dat u schrijft Row -1 maar als ik dit erin zet dan krijg ik automatisch een spatie tussen de min en 1
Daarna de macro gerund maar het resultaat is hetzelfde als ik eerder heb omschreven.
Nog eens gekeken naar de toevoeging in de macro en ja hoor er staat Row - 1 (dus een spatie tussen min en 1)
Beetje vreemd nietwaar, de oplossing leek zo eenvoudig en zelfs door mij uit te voeren maar helaas.
Heeft u na de wijziging de macro ook gerund?
Zal ongetwijfeld maar wat gaat er bij mij dan niet goed?
Vast bedankt voor de moeite in deze.
Belinda

 

[roeljongman]

ja die spatie klopt wel, die is het probleem niet maar kijk nog eens goed naar je eigen screenshot.. jij hebt lastcolumn aangepast dus nu word Z niet meer gesorteerd)

zet bij lastrow - 1 en het zal wel werken

 

[Belinda S]

Bingo !!
Het werkt perfect en ik ben er mee geholpen, hartelijk dank voor de hulp.
Nog een prettige avond verder.
groetjes,
Belinda

 

[Warme bakkertje]

Belinda, markeer je de vraag dan nog even als opgelost.

 

[snb]

Of vervang alle code door deze:

Sub srt()
   Cells(22, 1).ClearContents

   For Each cl In UsedRange.Columns
      cl.Sort cl.Cells(1)
   Next

   Cells(22, 1) = UsedRange.SpecialCells(2).Count
 End Sub