En makro skal starte, når et felt har en vis værdi.

Denne kode skalæ lægges i arkets kodemodul (højreklik på arkfane, og vælg Vis programkode):

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        Range("a39:aa39").Select
        Selection.Copy
        For i = 0 To Target.Value
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
        Next i
  End If

End Sub

Hej, umiddelbart ser det rimelig okay ud, men:
Når den kopierer 1 mere end man vælger og den fjerner ikke rækkerne igen, hvis man vælger et mindre tal.
Ellers okay. - Måske endnu bedre hvis man ikke ser kopieringen.

Hej, umiddelbart ser det rimelig okay ud, men:
Den kopierer 1 linie mere end man vælger og den fjerner ikke rækkerne igen, hvis man vælger et mindre tal.
Ellers okay. - Måske endnu bedre hvis man ikke ser kopieringen.

Prøv denne i stedet

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        Range("a39:aa39").Select
        Selection.Copy
        For i = 0 To (Target.Value - 1)
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
        Next i
    End If
      Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Det ser godt ud.

Når du lægger et svar, kan du så rette makroen, så den sletter formler igen, hvis man ændrer tallet i A1 fra et tal til et mindre tal?

En ting mere:
Makroen går ret langsomt (i et stort ark) og kopierer formlen x gange. Kan den ikke kopiere det hele i et trin?

1) Det er ikke så nemt at slette, da man ikke ved præcis, hvor meget, der allerede er. Men kan du evt. leve med, at alt slettes og så kopieres igen.

2) Du kan ikke indsætte mere end et sted ad gangen, men der kan måske tænkes en anden løsning end copy/paste. Jeg ser lige på det.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        If Range("b65536").End(xlUp).Row > 39 Then
            Rows("40:" & Range("b65536").End(xlUp).Row).Delete
        End If
        Range("A39:AA39").Copy Range("A40:A" & 39 + [a1])
    End If
End Sub

jkrons 1):Den må gerne slette alt, men kun i de udvalgte søjler - ikke derefter

Kabbaks løsning holder ikke, da den ser ud til at slette rækker. Det må man ikke, da der er data i kolonner efter AA.

Nu sletter den kun indholdet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then
    If Target > 0 Then
        If Range("A65536").End(xlUp).Row > 39 Then
          Range("A40:AA" & Range("A65536").End(xlUp).Row).ClearContents
        End If
        Range("A39:AA39").Copy Range("A40:A" & 39 + [a1])
    End If
    End If
End Sub

Lige et sidste spg:
Hvorfor fungerer det, når man skriver en værdi direkte i A1, men ikke hvis man i A1 skriver =B1 og i B1 har et tal ?

Fordi koden fanger når cellen aktiveres, og det gør den ikke når det er en formel der skriver i den.

Selvom jkrons prøvede, så synes jeg kabbak har fortjent pointene, så læg et svar.

Kan man gøre noget, så koden bliver kørt, når formlen giver værdien 1? Jeg giver 60 ekstra point

> (Kan man gøre noget, så koden bliver kørt, når formlen giver værdien 1?)
så skal vi finde den celle der tastes ind i, for at A1 skifter vædi via dens formel.

eller hvis der er flere celler der har indflydelse på A1, så tjekke dem.

Sagen er den, at indtastningen skal ske via et felt, hvor man (med data->validation) skal vælge ud fra en liste. Listen indeholder enten ord eller værdier. Når man vælger, aktiverer man sjovt nok ikke cellen.

Datavaliderings cellen kan godt aktivere koden

prøv at udskifte A1 i denne linie med cellen hvor datavalideringen er i

If Not Intersect(Target, Range("a1")) Is Nothing Then

hvis der kommer tekst i A1, via formlen, skal der skrives lidt mere kode

Det er tekst der kommer. Men selv når der kommer tal, aktiveres cellen ikke. Den aktiveres kun, hvis man ikke vælger, men indtaster

Alternativt kan du bruge worksheet_Calculate.
Dette forudsætter at du tager en tilfældig celle og i den skriver
=A1
Når A1 så ændres vil dette bevirke en genberegning af denne celle og makroen vil starte.
Ulempen er så at enhver ændring i arket der fremprovokerer en genberegning vil også få makroen til at køre

Private Sub Worksheet_Calculate()

    If [A1] > 0 Then
        If Range("A65536").End(xlUp).Row > 39 Then
          Range("A40:AA" & Range("A65536").End(xlUp).Row).ClearContents
        End If
        Range("A39:AA39").Copy Range("A40:A" & 39 + [A1])
    End If
 
End Sub

Calculate holder nok ikke i mit tilfælde, idet hele pointen med makroen er, at formindske størrelsen på filen for at optimere arket.

Arket bliver selvfølgelig mindre, men hvis makroen køres hver gang et felt ændres, bliver det for sløvt.

sådan her burde den holde.
Makroen kører kun når værdien i A1 ændres.

Option Explicit
Dim oldvalue As Variant

Private Sub Worksheet_Activate()
  oldvalue = [A1]
End Sub

Private Sub Worksheet_Calculate()

  If [A1] = oldvalue Then Exit Sub
 
  Application.EnableEvents = False
  oldvalue = [A1]
  If Range("A65536").End(xlUp).Row > 39 Then
      Range("A40:AA" & Range("A65536").End(xlUp).Row).ClearContents
  End If
  Range("A39:AA39").Copy Range("A40:A" & 39 + [A1])
  Application.EnableEvents = True
 
End Sub

Bak, det ser umiddelbart meget godt ud. Jeg tester det lige og vender tilbage senere

Bak, læg et svar.

For øvrigt, hvis man har to problemer som skal løses, f.eks. både en kopiering og en hide, som startes af to forskellige begivenheder, skal de så lægges i to forskellige worksheet_calculate eller kan de kun lægges i den samme?

Man kan kun bruge worksheet_calculate een gang pr. ark
Resten skal styres af et par if sætninger, men prøv at vise/fortælle hvad det er, du ønsker at gøre.

og så lige et svar :-)

denne burde altså virke, den skal i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Din_celle_med_datavalidering")) Is Nothing Then
    If IsNumeric([A1]) And [A1] > 0 Then
        If Range("A65536").End(xlUp).Row > 39 Then
          Range("A40:AA" & Range("A65536").End(xlUp).Row).ClearContents
        End If
        Range("A39:AA39").Copy Range("A40:A" & 39 + [A1])
    End If
    End If
End Sub

Bak, læg svaret og glem evt. sidste spørgsmål. Jeg løste det ved at lægge begge aktioner i samme sub. Jeg går ud fra, der kun kan være 1 worksheet_calculate.

Tak for hjælpen til alle!

Private Sub Worksheet_Activate()
  oldvalue = [A1]
  oldvalue2 = [A2]
End Sub

Private Sub Worksheet_Calculate()

    Application.EnableEvents = False
    oldvalue2 = [A2]
    If [A2] = "Combo" Then
    Rows("10:11").Hidden = False
    Else
    Rows("10:11").Hidden = True
    End If
    Application.EnableEvents = True

    If [A1] = oldvalue Then Exit Sub
 
    Application.EnableEvents = False
    oldvalue = [A1]
    If Range("A65536").End(xlUp).Row > 39 Then
    Range("A40:AA" & Range("A65536").End(xlUp).Row).ClearContents
    End If
    Range("A39:AA39").Copy Range("A40:A" & 39 + [A1])
    Application.EnableEvents = True
 
End Sub

Kabbak, ellers tak for hjælpen. Jeg har ikke set/afprøvet dit sidste svar før jeg så Baks. Først til mølle princippet går jeg ud fra er ok.

det er ok, men jeg fatter ikke, hvorfor du ikke kan fange den på datavaliderings cellen

kan du det???

det virker fint i mit regneark