makro zum kopieren einer Zeile von Daten aus einer Arbeitsmappe in eine andere

Hallo, ich bin neu in VBA kopieren wollen, die eine Reihe von code, der startet auf C:14 K:14, und fügen Sie Sie zu einer anderen Arbeitsmappe in Zeile C5-K5. Ich habe geschrieben, dieser code aber immer noch Fehler auftreten, bin ich auf der richtigen Spur?

Sub Shankill()
Dim sBook_t As String
Dim sBook_s As String

Dim sSheet_t As String
Dim sSheet_s As String

Dim lMaxRows_t As Long
Dim lMaxRows_s As Long

Dim sMaxCol_s As String

Dim sRange_t As String
Dim sRange_s As String

    sBook_t = "Shankill DR.xls"
    sBook_s = "DR complete.xls"

    sSheet_t = "Shankill DR"
    sSheet_s = "DR complete"

    lMaxRows_t = Workbooks(sBook_t).Sheets(sSheet_t).Cells(Rows.Count, "C:14").End(xlUp).Row
    lMaxRows_s = Workbooks(sBook_s).Sheets(sSheet_s).Cells(Rows.Count, "C5").End(xlUp).Row

    sMaxCol_s = Workbooks(sBook_s).Sheets(sSheet_s).Cells(1, Columns.Count).End(xlToLeft).Address
    sMaxCol_s = Mid(sMaxCol_s, 2, InStr(2, sMaxCol_s, "$") - 2)

    If (lMaxRows_t = 1) Then
        sRange_t = "C14:" & sMaxCol_s & lMaxRows_s
        sRange_s = "C:5" & sMaxCol_s & lMaxRows_s

        Workbooks(sBook_t).Sheets(sSheet_t).Range(sRange_t) = Workbooks(sBook_s).Sheets(sSheet_s).Range(sRange_s).Value

    Else
        sRange_t = "C:14" & (lMaxRows_t + 1) & ":" & sMaxCol_s & (lMaxRows_t + lMaxRows_s - 1)
        sRange_s = "C:5" & sMaxCol_s & lMaxRows_s

        Workbooks(sBook_t).Sheets(sSheet_t).Range(sRange_t) = Workbooks(sBook_s).Sheets(sSheet_s).Range(sRange_s).Value


    End If

End Sub

"C:5"??? Ähnlich wie für andere. Ihre Palette Adressen sind falsch
Gleichen, während Sie versuchen, zu finden, die Letzte Zeile... "C:14"?
Danke für Eure Hilfe, ich bin noch immer Laufzeitfehler 9?
Haben Sie versucht, den code, den ich unten gab? Wenn ja, dann überprüfen Sie den Namen des Arbeitsblatt/Arbeitsmappe. Sie erhalten Run-time Error '9': Subscript out of Range wenn excel nicht in der Lage zu finden, die den spezifischen Gegenstand.
Ja ich Kopier den code, und überprüfen Sie die Namen, aber immer noch den Fehler. Hat die Arbeitsmappen gespeichert werden irgendwo bestimmtes oder ist die Tatsache, dass Sie beide offen genug?
Sorry miss Art habe ich es Dank sehr viel. Der code, den ich am kopieren ist ein Ergebnis einer Berechnung. So ist es eine Möglichkeit zu kopieren, diese Ergebnisse ohne #BEZUG!?
Willst du einfach nur kopieren, Werte zu vermitteln?
Ja ich kopieren wollen, über die Werte, die als Ergebnis einer Berechnung?
Siehe meine aktualisierte Antwort.

InformationsquelleAutor Leanne Gilmore | 2014-01-08

wollen, kopieren Sie eine Zeile code, startet auf C:14 K:14, und fügen Sie Sie zu einer anderen Arbeitsmappe in Zeile C5-K5.

Alles, was Sie brauchen, ist

Sub Shankill()
    Dim sBook_t As String
    Dim sBook_s As String

    Dim sSheet_t As String
    Dim sSheet_s As String

    sBook_t = "Shankill DR.xls"
    sBook_s = "DR complete.xls"

    sSheet_t = "Shankill DR"
    sSheet_s = "DR complete"

    Workbooks(sBook_t).Sheets(sSheet_t).Range("C14:K14").Copy _
    Workbooks(sBook_s).Sheets(sSheet_s).Range("C5")
End Sub

- Follow aus den Kommentaren

Ja ich kopieren wollen, über die Werte, die als Ergebnis einer Berechnung?

Ändern Sie Ihren code so aus (Ungetestet)

Sub Shankill()
    Dim sBook_t As String
    Dim sBook_s As String

    Dim sSheet_t As String
    Dim sSheet_s As String

    sBook_t = "Shankill DR.xls"
    sBook_s = "DR complete.xls"

    sSheet_t = "Shankill DR"
    sSheet_s = "DR complete"

    Workbooks(sBook_t).Sheets(sSheet_t).Range("C14:K14").Copy
    Workbooks(sBook_s).Sheets(sSheet_s).Range("C5").PasteSpecial Paste:=xlPasteValues
End Sub

Funktionierte perfekt, danke so viel

InformationsquelleAutor Siddharth Rout

Versuchen, diese

Sub macro1()
Range("A3:M6").Copy Destination:=Cells(ActiveCell.Row + 1, 1)
End Sub

InformationsquelleAutor Sagar Chavan

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.