VBA vlookup samt klip og sæt ind
Hej AlleJeg har lavet et indgangskontrol excel ark.
Når varen er kontroleret de gange som ønsket, vil jeg gerne klippe (ctrl+x) en linje (fra fra arket "Hvad skal tjekkes" over til et andet ark "Arkiv" (Jeg burde have styr på koden til at den sætter den klippede linje ind på næste tomme linje i arket "Arkiv")
For at den ved hvilken linje den skal klippe tænker jeg Vlookup funktion er det rigtige.
Informationen for hvornår der skal klippes får den fra mit første ark "Start".
Celle R2 er hvor mange gange denne vare er kontrolleret
og Celle S2 er hvor mange gange det skal kontrolleres.
Dvs. hvis R2=S2 så skal den udføre klip og kopier.
B4 i arket start har information om varenummeret.
Det er det nummer/den linje den skal finde i arket "Hvad skal tjekkes" og klippe.
Sub Makro_10()
'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
' kopier fra input til output
Sheets("Rapportering").Cells(intInputraekke, 71) = Sheets("Start").Range("B20").Value
Sheets("Rapportering").Cells(intInputraekke, 72) = Sheets("Start").Range("B21").Value
Sheets("Rapportering").Cells(intInputraekke, 73) = Sheets("Start").Range("B22").Value
Sheets("Rapportering").Cells(intInputraekke, 74) = Sheets("Start").Range("B23").Value
Sheets("Rapportering").Cells(intInputraekke, 75) = Sheets("Start").Range("B24").Value
Sheets("Rapportering").Cells(intInputraekke, 76) = Sheets("Start").Range("B25").Value
Sheets("Rapportering").Cells(intInputraekke, 77) = Sheets("Start").Range("A28").Value
Sheets("Rapportering").Cells(intInputraekke, 144) = Sheets("Start").Range("V20").Value
Sheets("Rapportering").Cells(intInputraekke, 145) = Sheets("Start").Range("V21").Value
Sheets("Rapportering").Cells(intInputraekke, 146) = Sheets("Start").Range("V22").Value
Sheets("Rapportering").Cells(intInputraekke, 147) = Sheets("Start").Range("V23").Value
Sheets("Rapportering").Cells(intInputraekke, 148) = Sheets("Start").Range("V24").Value
Sheets("Rapportering").Cells(intInputraekke, 149) = Sheets("Start").Range("V25").Value
Range("B2") = Range("B2") + 1
Range("B4").Select
Selection.ClearContents
Range("B6").Select
Selection.ClearContents
Range("B8").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("B12").Select
Range("B17").Value = 1
Selection.ClearContents
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:D34").Select
Selection.ClearContents
ThisWorkbook.Close savechanges:=True