Excel VBA - Auswahlbereich nach dem Einfügen mit Code mit Variablen

Question

Ich schrieb ein Makro zum Filtern, Kopieren und Einfügen der gefilterten Kriterien in verschiedenen Arbeitsmappen. Ich kann nicht herausfinden, wie Sie den Bereich entfernen, der innerhalb der Arbeitsmappen eingefügt wird. Ich habe versucht ".range (" A1 "). Select", "application.cutcopymode = false". Ich weiß nicht, was sonst noch try..here mein Code - jede Einsicht

Dim i As Long 
Dim market As Variant, arrbooks() As Workbook 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Sheet1.AutoFilterMode = False 
market = Array(... 
ReDim arrbooks(0 To UBound(market)) 

'create workbooks 
For i = 0 To UBound(market) 
    Set arrbooks(i) = Workbooks.Add 
Next 

'retrieve data by autofilter 

With Sheet4 

    For i = 0 To UBound(market) 

     .Range("H:H").AutoFilter field:=1, Criteria1:=market(i) 

     .Range("H1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy 

     Workbooks(arrbooks(i).Name).Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll 


**workbooks(arrbooks(i).name).sheets(1).application.cutcopymode = false** 

     Next 
End With 

'save workbooks 

For i = 0 To UBound(market) 

**workbooks(arrbooks(i).name).sheets(1).application.cutcopymode = false** 

Workbooks(arrbooks(i).Name).SaveAs "insert save path" 
Workbooks(arrbooks(i).Name).Close 
Next 

'clean up 
Application.ScreenUpdating = False 
Sheet4.ShowAllData 
Sheet4.AutoFilterMode = False 
Application.DisplayAlerts = True 

Sheet4.Activate 
Sheet4.Range("A1").Select 

wegen Compliance-Problemen hilfreich sein, würde ich nicht die Namen offenbaren kann ich Filterung bin auf

Dank!

edit: ** zeigt an, wo ich .application.cutcopymode versucht Einfügen = false

Answer 1

Ok ich jetzt sehen, was Sie zu tun versuchen. Es hat mit der Auswahl im Ziel zu tun, nicht mit der CutCopyMode. Versuchen

Application.Goto workbooks(arrbooks(i).name).sheets(1).Range("A1") 

OTOH, CutCopyMode die „gepunkteten“ Auswahl der Quelle entfernt, so dass Sie nicht manuell einfügen wieder kann.

Answer 2

dies einzusehen, Unselect column after pasting data i landete „A1“ inorder Auswahl des merquri von Auswahlbereich