Denne burde løse dit problem.
Sub KopierTilAndreArk()
'Koper fra A-kolonne til Tilbud
For Each c In Sheets("Kladde").Range("A:A").Cells
If IsEmpty(c.Value) Then GoTo hertil:
If IsNumeric(c.Value) Then
rk = c.Row
Range("A" & rk & ":F" & rk).Copy
Sheets("Tilbud").Select
If ActiveSheet.Range("A23").Value = "" Then
Range("a23").Select
ActiveSheet.Paste
Else
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If
Sheets("Kladde").Select
End If
hertil:
Next c
'Koper fra I-kolonne til MateriaLER
For Each ci In Sheets("Kladde").Range("I:I").Cells
If IsEmpty(ci.Value) Then GoTo dertil:
If IsNumeric(ci.Value) Then
rki = ci.Row
Range("I" & rki & ":L" & rki).Copy
Sheets("Materialer").Select
If ActiveSheet.Range("I10").Value = "" Then
Range("I10").Select
ActiveSheet.Paste
Else
Range("I65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If
Sheets("Kladde").Select
End If
dertil:
Next ci
End Sub
Hej
Tak for svaret
Jeg tror den er lige ved at være der men der sker noget fokert.
Den kører ligesom i ring og indsætter rækkerne i tilbud flere gange der ned af og den indsætter rækkerne i kolonne I i arket materialer og ikke i kolonne A på arket Materialer
Hvis du bedre kan se problemet kan jeg sende excel mappen til dig hvis du har en mail.
MVH
Petert
Hej igen
Det virker som det skal men kan du ikke ændre koden så den indsætter i kolonne A række 14 på arket materialer så virker det som det skal.
( jeg havde fået lavet noget ged i makroen.)
Mvh
Petert
Hej igen igen
Der er noget galt. jeg tror du skal se projekt mappen
Mvh
Petert
Send mappen til jan @ kronsell dot net
Jeg har sendt + forklaring
Jeg ser på den senere i dag.
Hej Læg et svar så jeg kan luke dette.
MVH
Petert
Jeg lukker dette. Tak for hjælpen.
Mvh
Petert
Jeg lukker dette. Tak for hjælpen.
Mvh
Petert
