VBA - Method 'Range' of object'_Worksheet' failed
Hej allesammen.Jeg sidder med en makro der driller mig, og nu har jeg stirret mig blind på løsningen som jeg ved er simpel, jeg har bare ikke helt fattet hvordan jeg omskriver de 2 linjer der fejler.
Hvis jeg kører makroen step for step virker den perfekt hvis jeg selv vælger arkene når den når til linjerne:
trailerliste.Range(Cells(t, 1), Cells(t, 13)).Copy
og
reportsheet.Range(Cells(i, 1), Cells(i, 13)).PasteSpecial xlPasteValues
men jeg får fejlen: Runtime error 1004 - Method 'Range' of object'_Worksheet' failed når jeg kører kommer til den første overstående linje...
Hele koden ser således ud:
Sub Sæt_ind_i_eksporten()
Dim reportsheet As Worksheet 'Hvor udsøgt data sættes ind
Dim trailerliste As Worksheet 'Hvor ny data findes
Dim trailernummer As String 'Sætter trailerne i variabel
Dim finalrow As Integer 'Finder sidste række i et reportsheet
Dim i As Integer 'Tæl rækker i loopet
Dim t As Integer 'Tæl rækker for target(Trailere) navnene
Dim targetcount As Integer 'Hvor mange target navne(Trailere) der findes
'Set variabler
Set trailerliste = Worksheets("Data ud (2)")
Set reportsheet = Worksheets("18")
Application.ScreenUpdating = False
targetcount = trailerliste.Cells(30, 1).End(xlDown).Row 'Finder sidste tomme celle i ("Data ud 2") sorterede del.
'Denne fortæller hvor mange gange trailer loopet skal køre
'Tæl hvor mange linjer der skal søges trailere i
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
'Loop igennem target navne (Trailere)
For t = 30 To targetcount 'Det første navn findes i celle 1, 1
trailernummer = trailerliste.Cells(t, 3).Value 'Her hentes første celleværdi i trailerlisten
'Loop gennem rækkerne for at finde match
For i = 4 To finalrow
If Cells(i, 3) = trailernummer Then 'Hvis værdien i cellen er lig trailernummeret, så kopier hele rækken
trailerliste.Range(Cells(t, 1), Cells(t, 13)).Copy 'Kopier kolonne 1 to 13 (A til M)
reportsheet.Range(Cells(i, 1), Cells(i, 13)).PasteSpecial xlPasteValues 'Indsæt linjen på pladsen der matcher trailernummeret
End If
Next i
Next t
'Her vælges den færdige liste for at se endt resultat
reportsheet.Select
'Vis besked om at gennemløbet er fuldført
MsgBox ("Søgning gennemført")
Application.ScreenUpdating = True
End Sub
Er der nogen der kan give mig lidt klarsyn i hvorfor den ikke fanger at den skal hente data i de predefinerede ark?
Mvh. Thomas.