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

• sztanozs veterán

  #2980

  #2979 Lokids

  2017-12-21 11:43:08

  Ú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

  

  sztanozs

  veterán

  #2979 Lokids

  #2979 Lokids

  Már nem tudom szerkeszteni.

  Ez nem jó.
  Set WBRange = Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Range("A2:" & HeaderKAT_Last_Col & s_OutRow)


Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort.SortFields.Add Key:=Range(WBRange & "[" & "Projekt neve" & "]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

  Ez meg miért jó?
  Range("A2").Select
ActiveWorkbook.Worksheets("VIGKAT").Sort.SortFields.Add Key:=Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

  Ahogy nézem SortFields-be megadott range nem lehet több oszlop széles. Vsz ez a problémája.
  Ha több oszlop szerint szeretnél rendezni, akkor mindet egyesével hozzá kell adni.
  Majd miután beállítottad a rendezési feltételeket, jöhet a Sort parancs.

  Valahogy így:
  Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort. _
SortFields.Add Key:=Range(Range("A2:A" & s_OutRow)), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort.SetRange Range("A2:" & HeaderKAT_Last_Col & s_OutRow)

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