Jeg har nogle bestemte kolonner (fra Y til og med AE) som indeholder bestemte formler, som jeg gerne vil have kopieret ned indtil der ikke er mere data i X antal rækker. Antallet af rækker med data vil skifte ugentligt og området for de skiftende data er fra kolonne A til og med X mens antallet af rækker nedad som sagt vil ændres.
Kolonnerne med formler ser således ud (Y, Z, AA, AB, AC, AD og AE og de starter alle fra række 6):
- Y: =WEEKNUM(K6;2)
- Z: =VLOOKUP(S6;Wagendetails!F$2:G$310;2;FALSE)
- AA: =VLOOKUP(I6;Wagendetails!B$2
$420;2;FALSE)
- AB: =VLOOKUP(I6;Wagendetails!B$2
$420;3;FALSE)
- AC: =IF(V6=0;AB6;V6+AB6)
- AD: =VLOOKUP(C6;Relationen!A$2:C$550;2;FALSE)
- AE: =VLOOKUP(D6;Relationen!E$2:F$10;2;FALSE)
Nedenstående tre koder er dem jeg har forsøgt at bruge - indtil videre uden held:
Sub CMRDatenDSc_Button2_Click()
If Not Intersect(Target, Range("A
")) Is Nothing Then 'This makes the code execute only when a value in column C is changed
Application.EnableEvents = False 'This prevents infinate loop
lastrow = Range("A1048576
1048576").End(xlUp).Row
Range("Y6:AE6").AutoFill Destination:=Range("Y6:AE" & lastrow), Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub
Eller
Sub CMRDatenDSc_Button2_Click()
Private Sub Worksheet_Change(ByVal Target As Range)
lastrow = Range("A1048576
1048576").End(xlUp).Row
Application.EnableEvents = False 'This prevents infinate loop
Range("Y6:AE6").AutoFill Destination:=Range("Y6:AE" & lastrow), Type:=xlFillDefault
Application.EnableEvents = True
End Sub
Eller
Sub CMRDatenDSc_Button2_Click()
a = Cells(A
).End(xlUp).Row
b = "Y6:AE6" & a
Selection.AutoFill Destination:=Range(b)
End Sub
Jeg kan simpelthen ikke finde ud af hvor jeg har lavet en fejl så jeg vil sætte pris enhver hjælp.
På forhånd tak.