Új hozzászólás Aktív témák

• zsolti_20 senior tag

  2020-11-23 19:46:07 #45434

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  Sziasztok! Szeretnék adatot átmásolni egy másik excel fileből, filterezéssel, de valamiért nem akar működni. Hiába állítom be neki az összes kritériát valamirét az összes adatot átmásolja mintha nem is lenne filterezve. Hol lehet a probléma a kódban?
  
  Sub CopyFilteredValuesToActiveWorkbook()
Dim wbSource As Workbook, wbDest As Workbook
Dim wsSource As Worksheet, wsDest As Worksheet
Dim rngSource As Range, rngDest As Range
Set wbSource = Workbooks.Open("D:\KyLe\Desktop\ASD.xlsx", , True) 'Readonly = True
Set wsSource = wbSource.Worksheets("ASD")
wsSource.Range("A2:Z40000").AutoFilter Field:=8, Criteria1:="3"
Set rngSource = wsSource.Range("B3:Z40000")
Set wbDest = ThisWorkbook
Set wsDest = wbDest.Worksheets("Sheet5")
Set rngDest = wsDest.Range("A1:Z40000")
rngDest.Value = rngSource.Value 'Copies values over only, if you need formatting etc we'll need to use something else
MsgBox "kecske"
wbSource.Close (False) 'Close without saving changes
End Sub

Új hozzászólás Aktív témák