Macro die voor alle velden bruikbaar is

[Mart9]

Hoi,

Ik zou graag een macro willen maken (en daar een sneltoets aan hangen) voor 2 verschillende dingen:

-een macro dat er bij alle getallen een punt komt voor duizendtallen en dat de cijfers achter de komma weggaan (ik weet dat je dit met layout van een cel kan doen, alleen zou ik er graag een sneltoets voor hebben dat ik niet elke keer naar layout van de cel hoef te gaan).

-een macro dat er bij alle negatieve getallen er haakjes omheen komen te staan, ik weet dat dit bij layout-overige opties kan. Maar ik zou graag een macro met sneltoets willen maken dat ik niet elke keer rechtermuisknop >layout> etc hoef te doen.

Ik heb zelf geprobeerd om wat van die macro's te maken, maar het lukt me steeds niet. Ik zou graag de macro zo maken dat ik hem voor iedere willekeurige cel in iedere worksheet zou kunnen gebruiken.

Zou iemand mij kunnen vertellen hoe ik dit precies doe? (Ik weet dat je een macro kan maken met macro > record > functie uitvoeren > stop recording, maar op de een of andere manier lukt het me niet om het goed werkend te krijgen)

 

[koster1984]

Iets simpels als dit?

Sub kstr()
For Each it In Sheets(1).Range("A:A")
    If Not it Is Nothing And WorksheetFunction.IsNumber(it) Then
            it.Style = "Comma"
            it.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
    End If
Next
End Sub

Ervan uitgegaan dat je bedragen in kolom A van Blad 1 staan.

 

[Cobbe]

Ik dacht meer aan zo iets, deze kanje tenminste Werkbladonafhankelijk gebruiken in elke willekeurige cel:

Sub celopmaak()
 With ActiveCell
    .NumberFormat = "m/d/yyyy"
    .Font.Bold = True
    .Interior.Color = 65535
 End With
End Sub