Macro om aantal bewerkingen in meerdere bladen uit te voeren

[Renee123]

Ik heb 1 excelbestand met daarin meerdere tabbladen en wil graag in elk tabblad een aantal dezelfde bewerkingen uitvoeren. Ik ben zelf al een tijdje aan het prutsen geweest met de macro's , maar kom er toch niet echt uit. Voor elke stap heb ik dus al wel een beetje code, maar helemaal de goede zit er nog niet bij en al helemaal niet gecombineerd tot 1 macro (wat wel mijn voorkeur heeft, maar niet per se noodzakelijk is). Nou, ik hoop dat iemand mij kan helpen of sommige stukken code weet...

De stappen zijn achtereenvolgens:
1) Sorteer alle tabbladen op kolom E en vervolgens op kolom H. Dus zoiets als hieronder staat, maar dan voor alle tabbladen:

Sub KolommenSorteren()

    Range("A1:L108").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range _
        ("H2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
End Sub

2) Daarna moet in elk tabblad een extra kolom toegevoegd worden (altijd kolom N met als titel 'verschil') met daarin het verschil tussen 2 cellen (dus bijvoorbeed in cel N4 komt dan het antwoord op 'H4-H5' en in cel N9 komt het verschil van H9-H10)
3) Vervolgens moet in kolom N gezocht worden naar een bepaalde voorwaarde, namelijk 'celwaarde > dan 99'. Indien dit het geval is wil ik graag dat deze cel gemarkeerd wordt (dus bijvoorbeeld de celkleur veranderen naar rood). Vervolgens moet in hetzelfde tabblad verder gezocht worden naar cellen in kolom N waarbij ook geldt dat de celwaarde > 99 is. Als het tabblad klaar is en er is in dat tabblad NIET aan de voorwaarde voldaan, moet er verder gezocht worden op het volgende tabblad. Als er dus wel aan de voorwaarde voldaan is, hoeft er niet in de volgende tabbladen gezocht te worden.

Nou, ik hoop dat iemand hier een uitdaging inziet om dit probleem voor mij op te lossen! Of misschien schud iemand deze macro wel gewoon zo uit z'n mouw
Alvast heel erg bedankt!!!

 

[Renee123]

Ok, ik heb nu de volgende code:

Sub SorterenExtrakolomVerschil()

    Range("A:L").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range _
        ("H2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Range("N1").Select
    ActiveCell.FormulaR1C1 = "Verschil"
    Range("N14").Select                'de verschillen in cel N1 t/m N13 zijn niet relevant 
    ActiveCell.FormulaR1C1 = "=R[1]C[-6]-RC[-6]"
    Range("N14").Select
    Selection.AutoFill Destination:=Range("N14:N108"), Type:=xlFillDefault
    Range("N:N").Select
    Columns("N:N").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="99"
    Selection.FormatConditions(1).Interior.ColorIndex = 3
End Sub

Alleen zit ik dus nog met het probleem van het doorzoeken in meerdere tabbladen. Iemand een tip hoe ik dit kan oplossen? Dus dat de macro eerst alle verschillen bepaald voor het 1e tabblad en, wanneer er geen verschil groter dan 99 gevonden wordt, verder gaat met het volgende tabblad.

 

[Hoornvan]

Renee123,

Als je alles op de zelfde plaats wil schrijven, hoef je alleen alle bladen te selecteren.
Je vult dan een cel en in de andere bladen word dat dan ook gedaan.

 

[Renee123]

Maar met meer dan 200 werkbladen gaat dat een beetje vervelend worden

Maar het probleem is inmiddels verholpen!