Kopieren/Einfügen Spezielle Schleife in VBA

Sehr neu in VBA und versuchen, eine einfache Schleife kopieren/einfügen. Wie würdest du den Code schreiben, so dass er jedes Mal, wenn er eine Schleife ausführt, eine Zelle auf der Registerkarte Filter Out Pitcher kopiert und eine bestimmte Zelle in die Registerkarte Batter Comparison einfügt?Kopieren/Einfügen Spezielle Schleife in VBA

Sub Hitters() 

    For i = 1 To 500 
     Worksheets("Filter Out Pitchers").Range("B2").Copy 
     Worksheets("Batter Analysis").Paste _ 
     Destination:=Worksheets("Batter Analysis").Range("B1") 
     Worksheets("Batter Analysis").Range("A88:AA88").Copy 
     Worksheets("Batter Comparison").Range("A2:AA2").PasteSpecial xlPasteValues 
    Next i 
End Sub

Quelle

2017-01-11 D. Day

'Batter Comparison' oder' Batter Analysis'? Sie möchten Zeilen kopieren oder nur aus Spalte B? noch nicht klar. –

Ich möchte, dass es auf der Registerkarte "Teiganalyse" jedes Mal dasselbe vornimmt und eine bestimmte Reihe auf der Registerkarte "Teigvergleich" einfügt. –

Es würde Zelle B2 auf der Registerkarte Filter Out Pitcher kopieren, in Zelle B1 der Registerkarte Batter Analysis einfügen und Kopieren/Einfügen als Werte den Bereich in der Registerkarte Batg Vergleich angegeben. Die Dinge, die sich in der zweiten Schleife ändern würden, wäre, dass ich Zelle B3 von der Registerkarte Filter Out Pitcher kopieren und eine Zeile auf der Registerkarte Batter Comparation einfügen würde. –

Nicht sicher verstand ich völlig, aber das kann sein, was Sie nach:

For i = 1 To 500 
    Worksheets("Filter Out Pitchers").Range("B" & (1+i)).Copy _ 
     Destination:=Worksheets("Batter Analysis").Range("B2") 
    Worksheets("Batter Comparison").Range("A" & (1+i) & ":AA" & (1+i)).Value = _ 
     Worksheets("Batter Analysis").Range("A88:AA88").Value 
Next i

Quelle

2017-01-11 00:49:55

Das war was ich gesucht habe - danke! –

Kopieren/Einfügen Spezielle Schleife in VBA

Antwort

Verwandte Themen