Hej!
Håller på med en mall till excel där jag har en hel rad med kryssrutor. När jag kryssar i en ruta genereras dagens datum och tid i en cell. Så långt funka det bra.
Problemet är att jag behöver ha ca 2000 rader med samma funktion. Blir lite jobbigt att manuellt lägga makro/kod till varje kryssruta.
Skulle vilja få till ett makro som triggas av en knapp som lägger till en rad under. Det går ju fint men jag får inte till att kryssrutor mer tillhörande makro följer med.
Kryssrutorna flyttas ned istället för att kopieras, samt datumet som genereras följer inte med. Det hamnar i ursprunglig cell i raden ovanför.
Är detta möjligt att få till?
Koden ser ut så här just nu:
#Genererar dagens datum och tid
Private Sub CheckBox64_Click()
If CheckBox64.Value = True Then Range("F2").Value = FormatDateTime(Now, vbGeneralDate)
If CheckBox64.Value = False Then Range("F2").Value = ClearContents
End Sub
#Kopierar aktiv rad till rad under
Private Sub CommandButton2_Click()
Dim Msg, Style, Title, Response
Msg = "Lägga till ny rad?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Lägga till ny rad"
Response = MsgBox(Msg, Style, Title)
On Error GoTo noconstants
If Response = vbYes Then
With ActiveCell.EntireRow
.Copy
.Insert Shift:=xlDown
.SpecialCells(xlCellTypeConstants).ClearContents
End With
Else
Exit Sub
End If
noconstants:
Application.CutCopyMode = False
Exit Sub
End Sub