Har fået hjælp, MEN skal ikke skifte række i sub_macro 2
HejJeg har virkelig fået fantastisk hjælp herinde.
https://www.computerworld.dk/eksperten/spm/743217
https://www.computerworld.dk/eksperten/spm/1023611
https://www.computerworld.dk/eksperten/spm/1023584 (det er denne jeg gerne vil have ændret lidt)
Jeg er lige straks færdig, men mangler en ting.
I nedenstående kode i Sub_macro 1, der sørger den for at den info jeg gerne vil have kopieret fra ark "start" bliver kopiret til næste tomme række i Ark "Rapportering".
Dog er den sådan at jeg vil egentlig gerne have næste gang jeg trykker på knappen (og dermed køre Sub_macro 2), så vil jeg gerne have at det kopier til samme række som Sub_macro 1 gjorde.
Jeg ved det er i denne kode, men ved ikke hvad der skal ændres:
intSidsteraekke = Sheets("Rapportering").Cells(Sheets("Rapportering").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke + 1
Håber i kan hjælpe; udsnit af kode ses herunder:
Private Sub CommandButton1_Click()
Dim shtInput As Worksheet
Dim shtOutput As Worksheet
Dim intSidsteraekke As Integer
Dim intInputraekke As Integer
If Range("B17").Value = 1 Then Makro = 1
If Range("B17").Value > 1 And Range("B17").Value < Range("B16").Value Then Makro = 2
If Range("D14").Value = Range("B16").Value Then Makro = 3
Antal = Makro
Select Case Makro
Case Is = 1
Call Makro_1
Range("B17").Value = Range("B17").Value + 1
Case Is = 2
Call Makro_2
Range("B17").Value = Range("B17").Value + 1
Case Is = 3
Range("B17").Value = 1
Call Makro_3
End Select
End Sub
Sub Makro_1()
'find sidste række med data så der kopieres ind i næste række
intSidsteraekke = Sheets("Rapportering").Cells(Sheets("Rapportering").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke + 1
Sheets("Rapportering").Cells(intInputraekke, 1) = Sheets("Start").Range("B2").Value
Sheets("Rapportering").Cells(intInputraekke, 2) = Sheets("Start").Range("B4").Value
Sheets("Rapportering").Cells(intInputraekke, 3) = Sheets("Start").Range("B6").Value
Sheets("Rapportering").Cells(intInputraekke, 4) = Sheets("Start").Range("B8").Value
Sheets("Rapportering").Cells(intInputraekke, 5) = Sheets("Start").Range("Q15").Value
Sheets("Rapportering").Cells(intInputraekke, 6) = Sheets("Start").Range("B11").Value
Sheets("Rapportering").Cells(intInputraekke, 7) = Sheets("Start").Range("B12").Value
Sheets("Rapportering").Cells(intInputraekke, 8) = Sheets("Start").Range("B20").Value
Sheets("Rapportering").Cells(intInputraekke, 9) = Sheets("Start").Range("B21").Value
Sheets("Rapportering").Cells(intInputraekke, 10) = Sheets("Start").Range("B22").Value
Sheets("Rapportering").Cells(intInputraekke, 11) = Sheets("Start").Range("B23").Value
Sheets("Rapportering").Cells(intInputraekke, 12) = Sheets("Start").Range("B24").Value
Sheets("Rapportering").Cells(intInputraekke, 13) = Sheets("Start").Range("B25").Value
Sheets("Rapportering").Cells(intInputraekke, 14) = Sheets("Start").Range("A28").Value
Range("B20").Select
Selection.ClearContents
Range("B21").Select
Selection.ClearContents
Range("B22").Select
Selection.ClearContents
Range("B23").Select
Selection.ClearContents
Range("B24").Select
Selection.ClearContents
Range("B25").Select
Selection.ClearContents
Range("A28").Select
End Sub
Sub Makro_2()
intSidsteraekke = Sheets("Rapportering").Cells(Sheets("Rapportering").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke + 1
Sheets("Rapportering").Cells(intInputraekke, 15) = Sheets("Start").Range("B20").Value
Sheets("Rapportering").Cells(intInputraekke, 16) = Sheets("Start").Range("B21").Value
Sheets("Rapportering").Cells(intInputraekke, 17) = Sheets("Start").Range("B22").Value
Sheets("Rapportering").Cells(intInputraekke, 18) = Sheets("Start").Range("B23").Value
Sheets("Rapportering").Cells(intInputraekke, 19) = Sheets("Start").Range("B24").Value
Sheets("Rapportering").Cells(intInputraekke, 20) = Sheets("Start").Range("B25").Value
Sheets("Rapportering").Cells(intInputraekke, 21) = Sheets("Start").Range("A28").Value
Range("B20").Select
