Kopier fra ark hvor betingelse er opfyldt
Hej alleJeg har en større fil med ca 100 faner, jeg har lavet en kode der viser et tal når en række betingelser er opfyldt
Så min udfordring er:
Når "L1" >=1 skal "F1:J1" kopieres og indsættes i et ark Der hedder "OB_LISTE2"
Jeg har prøvet med
Sub eks()
'
For Each xWorksheet In ActiveWorkbook.Worksheets
Range("L1").Select
If ActiveCell.Value >= 1 Then
Range("F1:J1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OB_LISTE2").Select
Cells(1, 1).End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next xWorksheet
Else
End If
Next xWorksheet
Application.Run "'Lagerstyring - Viborg org. 1.1.xls'!eks"
End Sub
Men det er ihvertfald ikke vejen at gå
Måske I har en ide?
MVH
UPS50