Kopieren und Einfügen Zeilen und Schleife bis leer

Question

Ich habe ein Angebotsformular, das ich in eine Master-Datei kopieren muss. Aber ich einige Probleme, für die Codierung der unten, Header-Informationen sind in "Sheet1", Cell I5, I6, I7, I8, I9, K5, K11 und K12 und dann muß ich "MySheet" A1 kopieren: H1 (Alle Blätter sind in der gleichen Arbeitsmappe) Ich muss dann kopieren von "Sheet1" Zeile "B16: M16" (ist die erste Zeile, die immer Daten enthalten) und dann zu "MySheet" I1: T1 und dann Vergangenheit Überprüfen Sie, ob "B17: M17" Daten enthält und wenn ja, Kopieren und Einfügen in "Mysheet" I2: T2 usw., bis eine leere Zeile angezeigt wird. Ich möchte auch die Kopfzeile durchlaufen, kopieren und einfügen, wenn Daten in B17 vorhanden sind: M17 zurück zu "Mysheet" A2: H2 und so weiter.

jede Hilfe dankbar Grüße Grumpy Dad

Answer 1

Basierend auf Ihren Kommentar, die Sie auf dem zweiten Teil des Problems stecken geblieben sind, den Weg zu

Kopieren von „Sheet1“ Row „B16: M16 "(Ist die erste Zeile, die Daten immer in haben wird) und dann vorbei an "MySheet" I1: T1

wäre:

Worksheets("Sheet1").Range("B16:M16").Copy Worksheets("MySheet").Range("I1:T1") 

oder möglicherweise in einer Schleife:

Dim r As Long 
r = 16 
Do While Not IsEmpty(Worksheets("Sheet1").Range("B" & r)) 
    Worksheets("Sheet1").Range("B" & r & ":M" & r).Copy Worksheets("MySheet").Range("I" & (r - 15) & ":T" & (r - 15)) 
    r = r + 1 
Loop