Macro opnemen en opslaan - personal.xlsb

[hmwul]

Sinds jaar en dag heb ik enkele kleine macros opgeslagen in personal.xlsb
Er staan een paar dingetjes in die ik heel regelmatig gebruik. Allemaal prima.

Dat bestandje blijft jarenlang hetzelfde.
De reden is dat ik gebruik maak van een Excel plug-in en samen met personal.xlsb heb ik vrij weinig nieuwe dingen nodig.

Maar ... belangrijker is dat ik nooit goed heb kunnen achterhalen wat precies de volgorde van handelen is om iets aan personal.xlsb toe te voegen.

Voorbeeld:
Excel is gestart, dus personal.xlsb is ook gestart
(die staat in : C: .... \Roaming\Microsoft\Excel\XLSTART folder)

Ik wil een macro opnemen en dat opslaan in personal.xlsb

In een stuk tekst, de diverse zoek en vervang akties, etc.

Via beeld, zichtbaar maken, kan ik personal.xlsb zien.

Okay, maar dan??

Wat is juiste volgorde van handelen dan?

In het verleden voegde ik iets toe op basis van trial and error, heel incidenteel, na vele keren proberen, lukte het, maar meestal lukte het niet en liet ik het maar zo.



Voorbeeldje, het onderstaande komt regelmatig voor en doe ik nu in de diverse stappen.
Stel dat ik hiervaan een macro maak en op wil slaan in personal.xlsb ...

01. selecteer kolom A
02. zoek en vervang: punt door - (afbreekstreepje: 25.01.2021 > 25-01-2021)
03. selecteer kolom B, C, D
04. zoek en vervang: komma door niets (m.a.w. komma verwijderen) 1,234.56 AA > 1234.56 AA
05. zoek en vervang: punt door komma (1234.56 AA > 1234,56 AA)
06. zoek en vervang: spatie MB door niets (1234,56 AA > 1234,56)
07. selecteer kolom: A, B, C, D
08. kleur instellen: geen opvulling
09. font instellen : automatisch
10. rand instellen : geen rand


Bij voorbaat dank voor de suggesties!

 

[OctaFish]

De grap is: je hóeft dat bestand helemaal niet te openen; als je een nieuwe macro opneemt vraag Excel waar je dat wilt opslaan, met drie opties:
1. Deze werkmap
2. Nieuwe werkmap
3. Persoonlijke Macrowerkmap

Optie 3 is dus het bestand Persnlk.xlsb. Dus als je optie 3 kiest bij <Macro opslaan in>, komt het vanzelf goed .

 

[hmwul]

Ah! Heel hartelijk dank!
Super.

Wat heb ik het verleden zitten knoeien zeg, je wilt het niet weten.

Het is inderdaad gelukt, macro opgenomen en opgeslagen in personal.xlsb

1 laatste vraag
Ik neem de makro op en e.e.a. ziet er uit zoals ik dat wil
Bij het afspelen van de makro moet ik cellen achteraf converteren naar getallen.

Ik heb ook nog geprobeerd als laaste stap in de makro, de cellen te selecteren, dan cel eigenschappen: aangepast > 0,00
en ook een keer met celeigenschappen 'getal'

In beide gevallen was het resultaat hetzelfde.

Bekijk bijlage 354790

Enig idee.

Nogmaals dank!

 

[emields]

Bijlage niet leesbaar

 

[hmwul]

Het is een screenshot

Hoop dat het nu wel lukt, bij mij ziet er 'goed' uit.

-
heb het nog eens geprobeerd, in de preview ziet het er goed uit.
weet ook niet wat ik er verder aan kan doen eerlijk gezegd.

 

[Haije]

Plaats het bestand eens

 

[hmwul]

Bijgaand
1e tab - source
2e tab - backup
3e tab - na uitvoeren van de macro


FWIW Dit zou de makro moeten zijn die in .xlsb opgeslagen is.

Sub CleanUp()
'
' CleanUp Macro
'

'
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("B:D").Select
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:=" MB", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("A:D").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("F2").Select
End Sub

Dank alvast.

 

[OctaFish]

En die voer je uit wanneer? Want ik zie geen macro's in je bestand (kan ook niet, is een xlsx).

 

[hmwul]

de makro is opgeslagen in het xlsb bestand. Die heb ik even zichtbaar gemaakt en de code hier geplaatst.

 

[VenA]

Nog wel even de code opschonen na de macro-opname

Sub VenA()
  With Cells(1).CurrentRegion
    .Columns(1).Replace ".", "-"
    .Replace "MB", ""
    .Replace ",", ""
    .Interior.Color = xlNone
    .Borders.LineStyle = xlNone
    .Font.ColorIndex = xlAutomatic
  End With
End Sub

 

[hmwul]

Dat is 'm helemaal.

Heel hartelijk dank!

Tja, ik ben totaal niet thuis in deze materie, echt niet, dus mijn makro (nou ja, wat ervoor moet doorgaan) is puur gebaseerd op 'handelingen'.

Ik sta niet eens in de schaduw van de experts hier, sterker nog ik kom zelfs nog niet eens in de búúrt daarvan...

Nogmaals dank!

Uiteraard aan allen hier.