gentage kopiering via makro

Hvordan ser din kode ud?

Det er nedenstående makro jeg skal have til at blive gentaget under den indsættelse der sker.

Sub Button6_Click()
'
' Button6_Click Macro
' Macro recorded 13-05-2003 by Tim
'

'
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A7").Select
    Application.CutCopyMode = False
End Sub

Prøv

Sub Button6_Click()
'
' Button6_Click Macro
' Macro recorded 13-05-2003 by Tim
'
   
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveCell.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Den finder den første ledige celle på ark 2 og indsætter området der.

Det er næsten perfekt.

Hvad jeg gerne vil have lavet om er følgende:

Kan man få makroen til at finde første ledige celle efter række 10 på ark 2

Ja så skal du bare ændre linien
Range("A1").Select til
Range("A10").Select

Hvis jeg blot laver denne ene ændring får jeg en fejlmelding frem - skal der laves andre ændringer ??

Næ, det virker fint her.
Knappen skal dog ligge på ark 1.

Prøv evt. at lave en alm. makro altså:

Sub CopyBlock()
'
' Button6_Click Macro
' Macro recorded 13-05-2003 by Tim
'
   
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A10").Select
    ActiveCell.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

som du så kobler på en knap.

Beklager man jeg modtager stadig en fjelmelding - det kan godt være pga min kompetance indenfor makro. Men jeg modtager følgende fejlmelding: "Run-time error 1004"

Jeg har været ved at lege lidt, og fundet frem til følgende. Hvis rækkerne 1 til 11 på ark 2 er blanke, Så virker makroen ikke. Dog står der noget i disse felter er der ingen problemer. Kan det ikke laves således at række 1 til 11 kan være blanke, således det kopierede bliver indsat fra række 10 ??

Jo sagtens, prøv:

Sub CopyBlock()
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    If Range("a11").Value = "" Then
        Range("A10").Select
        ActiveSheet.Paste
    Else
        Range("A10").Select
        ActiveCell.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
    End If
    Application.CutCopyMode = False
End Sub

Hov, der var en fejl, hvis kun A10 er udfyldt.
Prøv i stedet:

Sub CopyBlock()
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    If Range("a10").Value <> "" And Range("a11").Value = "" Then
        Range("A11").Select
        ActiveSheet.Paste
    Else
        If Range("a11").Value = "" Then
            Range("A10").Select
            ActiveSheet.Paste
        Else
            Range("A10").Select
            ActiveCell.End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    End If
    Application.CutCopyMode = False
End Sub

Det virker bare perfekt - du har fotjent dine 30 point.

Jeg ligger lige et tillægsspørgsmål ud.

Kan man have et felt hvori der kan påføres et tal. Det tal skal så styrre hvor mange kopier den skal lave.

Hvis du taster antallet af kopier ind i Sheet1 celle K1

Sub StyrKopier
Dim i as long
for i = 1 to Sheets("Sheet1").Range("K1").Value
    Call CopyBlock
next
End Sub

Nu kan det godt være at jeg spørger lidt dumt, men hvordan får jeg BAK's makro ind, så den virker i janvogt's makro

bare lig den ind samme sted som jan's makro

Hvis jeg kopiere den ind som nedenstående og sætter tallet 6 ind i celle k1 - får jeg desværre ikke 6 kopier som ønsket.

Sub CopyBlock()
    Range("A1:G6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    If Range("a10").Value <> "" And Range("a11").Value = "" Then
        Range("A11").Select
        ActiveSheet.Paste
    Else
        If Range("a11").Value = "" Then
            Range("A10").Select
            ActiveSheet.Paste
        Else
            Range("A10").Select
            ActiveCell.End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    End If
    Application.CutCopyMode = False
End Sub
Sub StyrKopier()
Dim i As Long
For i = 1 To Sheets("Sheet1").Range("K1").Value
    Call CopyBlock
Next
End Sub

Hvad gør jeg galt

Jeg har lige modificeret den første lidt. Jeg får 6 kopier nu, når jeg starter makroen StyrKopier

Sub CopyBlock()
    Sheets("sheet1").Range("A1:G6").Copy
    Sheets("Sheet2").Select
    If Range("a10").Value <> "" And Range("a11").Value = "" Then
        Range("A11").Select
        ActiveSheet.Paste
    Else
        If Range("a11").Value = "" Then
            Range("A10").Select
            ActiveSheet.Paste
        Else
            Range("A10").Select
            ActiveCell.End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    End If
    Application.CutCopyMode = False
End Sub

Sub StyrKopier()
Dim i As Long
For i = 1 To Sheets("Sheet1").Range("K1").Value
    Call CopyBlock
Next
End Sub

Hej bak - Det virker, mange tak for hjælpen.

Nu er jeg rimmelig ny på denne side. Kan jeg give dig point efter, at jeg har givet de point der oprindelig var på spørgsmålet. Skal jeg oprette et nyt spørgsmål - for at kunne belønne dig.

Det er, som bak skriver, makroen StyrKopier, som skal kobles på din knap.

Nej, det er ikke nødvendig med points her :-)

Jeg takker for hjælpen :-)

Jeg vender sikkert snart tilbage med nye spørgsmål.

Vi skal nok være der :-))