Einfügen aus einer bestimmten Zelle

464
abhay

Ich möchte einen Bereich von Zelle B bis Zelle N in Spalten kopieren, aber in Zeilen kann es sogar 1000 sein. Ich möchte ein Makro, das Daten von B: 10 und nirgendwo anders einfügt. PS Die Daten sind dynamisch und können angezeigt werden Benutzer basierend auf ihrem Id-Passwort.

Sub Portfolio() ' ' Portfolio Macro '  ' Sheets("Master").Select Selection.End(xlToLeft).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.AutoFilter Range("Table1[[#Headers],[CRN]]").Select Selection.End(xlToRight).Select ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13, Criteria1:= _ "TRUE" Selection.End(xlToLeft).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveSheet.Previous.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$10:$N$1000"),, xlYes).Name = _ "Table2" Range("Table2[#All]").Select ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleLight9" Range("Table2[[#Headers],[CRN]]").Select End Sub

Ich habe dieses Makro erstellt, aber wenn ich meinen Zeiger auf eine andere Zelle und nicht auf B: 10 gab, beginnt das Kopieren von dort.

-1
Also, was haben Sie schon versucht, um das zu erreichen, was Sie wollen? Bitte beachten Sie, dass Superuser kein Code-Schreibservice ist. Sie sollen zeigen, welche Anstrengungen Sie unternommen haben, um das Problem zu lösen, das Sie haben. Weitere Informationen zum Fragen finden Sie in [Fragen] (https://superuser.com/help/how-to-ask). Tom Brunberg vor 6 Jahren 0
Ich habe Änderungen vorgenommen und kann @ Tom Brunberg überprüfen abhay vor 6 Jahren 0
Bitte lesen Sie [Was soll ich tun, wenn jemand meine Frage beantwortet] (https://superuser.com/help/someone-answers) Tom Brunberg vor 6 Jahren 0

1 Antwort auf die Frage

0
Tom Brunberg

Ich möchte ein Makro, das Daten aus B: 10 und sonst nirgends einfügt.

Um dies zu erreichen, fügen Sie die Zeile hinzu

Range("B10").Select

kurz bevor 

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Dadurch wird das Einfügen angestellt B10.

Verwandte Probleme