Har et regneark med makroer, hvor der skal laves flere ens ark på.

Prøv at vise makroen her..

Der er 2 makroer, en der sorterer på dato og en der fjerner linien når der sættes et X
Jeg har prøvet at kopierer nye ark ind, men så virker sorteringen på datoer ikke. Altså h klik på ark og flyt eller kopier.

Sub Makro2()
'
' Makro2 Makro
'

'
    Range("H4:H24").Select
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("H4:H24"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="01.01.12", _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("A4:K24")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

      If Not Intersect(Range("K3:K10000"), Target) Is Nothing Then
    For Each c In Range("K3:K10000").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
      End If

        If Not Intersect(Range("I3:I10000"), Target) Is Nothing Then

    For Each c In Range("K3:K10000").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = False
        End If
    Next c

            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("I3:I10000"), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("Ark1").Sort
                .SetRange Range("A3:K10000")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With

    For Each c In Range("K3:K10000").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
        End If
End Sub

Ok - ser på det senere..

Tak for det, det skal laves sådan at de 12 ark kører hver for sig.

Var det muligt at få en kopi af filen eller model?

@-adresse under min profil.

OBS: Du er opmærksom på, at der arknavnet (Ark1) indgår i koden flere steder? Er det korrigeret på det næste ark?

Hvor igangsætter du den første markro?

Makroen starter når man har skrevet datoen og hopper videre til næste felt.
Jeg kan sende dig arket hvis det er nemmere for dig at hjælpe på den måde. Jeg er rimelig blank i Excel og makroer. ;-))

Du er som sagt velkommen til at sende filen.

Min idé går ud på kun at have VBA-koden et sted.

Prøv
I et Modul:
På Arkene

@store morten, hvad mener du med et modul ?
@supertekst, jeg prøver lige store-mortens ide, det er ham der har lavet arket til at begynde med.

Har fundet ud af det med modulet, hvordan skal det lægges ind ?
Skal det hele ind på det første ark eller hvad ?

Ok - har ændret nøjagtig det samme og lagt et sæt af koden i ThisWorkbook.

Makro2
I et Modul, og du kan køre denne Makro fra alle Ark.

Den sidste kode, kopiere du, og lægger den på alle Ark.
Fordi: Worksheet_Change
Gør at den køres ved ændring på selve arket. (Ark1, Ark2, Ark3..osv.)

Som supertekst gjorde opmærsom på, er var der anvendt arknavnet (Ark1) i koden flere steder?
("Ark1") er erstattet med ActiveSheet.Name så du skulle kunne kopiere den ind på alle ark.

Tak for hjælpen begge to, vil i smide et svar så i kan få jeres fortjente point.
Tak igen for hjælpen store-morten.

Velbekomme