Zoeken en vervangen in een macro

[halmar76]

Hallo,

Ik ben bezig een en ander te automatiseren met een macro. Er moet onder andere in een bestand de code #N/B weggewerkt worden en vervangen worden door 0.
Ik heb de macro al meerdere keren gemaakt, maar hij weigert deze opdracht uit te voeren.

Kan iemand mij helpen dit probleem op te lossen.

Alvast bedankt en groeten,

Halmar

 

[Wigi]

Probeer dit eens uit:

Cells.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.FormulaR1C1 = "0"

Wigi

 

[halmar76]

Ik weet alleen niet waar ik hem dan tussen moet plaatsen en wat weg kan. Ik bouw hem op via het opnemen.... Ik heb nu dit staan:

Sub Waarden_vervangen_0_laatste_maand_HJ()
'
' Waarden_vervangen_0_laatste_maand_HJ Macro
' De macro is opgenomen op 25-4-06 door Wegener.
'

'
Workbooks.Open FileName:= _
"\\003_C00300\SHARED$\GL WHN Sales\Management Informatie\CRM\Brian\Excel-tabellen\Omzet laatste maand HJ per klant.xls"
Columns("B:B").Select
Selection.Replace What:="#N/B", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("B1").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Tijdens het opnemen doet hij het gewoon en bij het uitvoeren geeft hij wel de indruk het te doen, maar als je dan het bestand opent staan alle foutmeldingen er gewoon nog....

 

[Wigi]

Doe eens:

Sub Waarden_vervangen_0_laatste_maand_HJ()
' Waarden_vervangen_0_laatste_maand_HJ Macro
' De macro is opgenomen op 25-4-06 door Wegener.

Workbooks.Open FileName:= _
"\\003_C00300\SHARED$\GL WHN Sales\Management Informatie\CRM\Brian\Excel-tabellen\Omzet laatste maand HJ per klant.xls"
Columns("B:B").Select
' hier is de code tussen geplaatst, Vervangen werd verwijderd door mij
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.FormulaR1C1 = "0"
' hier is de vervanging met nullen gebeurd
Range("B1").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Lukt het?

Wigi

 

[halmar76]

Nee, hij doet het nog steeds niet. De volgende regel geeft hij als fout aan:

Selection.SpecialCells(xlCellTypeFormulas, 16).Select

Is er ook een rede dat hij het niet op de normale manier niet doet?

Toch bedankt voor het meedenken.

 

[Wigi]

Zie bijlage Halmar

daar lukt het. Uiteraard heb ik sommige commando's in de code weggefilterd. Kijk maar eens na wat je anders doet.

Wigi

 

[halmar76]

Phoe he dat was een hele bevalling.

Ik deed eerst kopieren - plakken speciaal - waarden en daarna pas vervangen. Ik heb nu in het basisbestand twee extra macrootjes gemaakt die ik tijdens het opnemen van de macro uitvoer en dan lukt het wel.

Super bedankt!