Flytte rækker fra rådata til et andet ark
Hej,Jeg er totalt ny i VBA, men vil gerne lære :) Jeg har et ark1 med "rådata". Rådataen skal klippes og indsættes i ark2 ("salg"), hvis et kriterie er opfyldt:
Der er en rækker værdier i A1:A10 i ark2, f.eks. tallet 2000. Hvis værdien 2000 er at finde i ark1, så skal denne række klippes ud fra ark1 og indsættes i ark2 i række 10. Jeg har fået min makro til at virke ved at referere til absolutte tal, men jeg kan ikke få makroen til at slå op i range A1:A10 i et ark. Desuden har jeg kun fået min makro til at virke ved at "kopiere" fra ark1 til ark2 frem for cut&paste. Min kode er nedenfor (I må ikke grine!).
Jeg er meget taknemmelig, hvis der er noget, der vil hjælpe :)
Public Sub Fordele data()
Dim Tabel(1 To 1000, 1 To 7) As Variant
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
k = 1
For i = 1 To 1000
ThisWorkbook.Sheets("Rådata").Activate
' Nedenfor vil jeg have at, at man ikke kun kigger på "2053, 2312 og 2081", men kigger på de værdier der ligger i ark2 i range A1:A10.
If ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2053" Or _
ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2312" Or _
ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2081" Then
For j = 1 To 7
Tabel(k, j) = Cells(i, j).Value
Next j
k = k + 1
End If
Next i
For k = 1 To 1000
For j = 1 To 7
' Nedenfor bliver data kopieret ind i ark2 ("salg"), men jeg vil have, at det klippes ud og indsættes, så kildedataen i ark1 er væk
ThisWorkbook.Sheets("Salg").Range("A10").Cells(k, j).Value = Tabel(k, j)
Next j
Next k
ThisWorkbook.Sheets("JP Salg").Activate
Application.ScreenUpdating = True
End Sub