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

• #36042 Fferi50 Topikgazda n1nja #36041

  Új Válasz 2017-08-25 15:36:19 #36042

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz n1nja #36041 üzenetére

  Szia!

  Az alábbi makró az Excel sajátos eszközeivel próbálja megoldani a problémát (több segédtartományra is szüksége van, amit az elején definiálok).

  Sub rendezi()
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, sora As Integer, sor As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set rng1 = Range("A1").CurrentRegion
Set rng2 = Range("AA1")
Set rng3 = Range("Q1:Q2"): rng3.Cells(1).Value = "Gép"
Set rng4 = Range("U1")
rng1.Copy Destination:=rng2
Set rng2 = rng2.CurrentRegion
rng1.Offset(1, 0).ClearContents
sor = 2
Do
rng1.Cells(sor, 2).Value = Application.Small(rng2.Columns(2).Offset(1, 0), 1)
sora = Application.Match(rng1.Cells(sor, 2), rng2.Columns(2), 0)
rng3.Cells(2, 1).Value = rng2.Cells(sora, 1).Value
rng2.AdvancedFilter Action:=xlFilterCopy, criteriarange:=rng3.Columns(1), copytorange:=rng4, unique:=False
rng4.Sort key1:=rng4.Cells(1, 2), order1:=xlAscending, Header:=xlYes
rng4.Cells(1, 1).CurrentRegion.Offset(1, 0).Copy Destination:=rng1.Cells(sor, 1)
sor = rng1.End(xlDown).Row + 1
rng2.AdvancedFilter Action:=xlFilterInPlace, criteriarange:=rng3.Columns(1), unique:=False
rng2.SpecialCells(xlCellTypeVisible).ClearContents
rng1.Rows(1).Copy rng2.Rows(1)
rng2.AdvancedFilter Action:=xlFilterInPlace, criteriarange:=rng3.Cells(1), unique:=False
rng4.CurrentRegion.ClearContents
If Application.CountA(rng2) = 4 Then Exit Do
Loop
rng3.CurrentRegion.ClearContents
rng2.CurrentRegion.ClearContents
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
MsgBox "Kész van", vbInformation
End Sub

  Üdv.

• #36040 poffsoft veterán n1nja #36039

  Új Válasz 2017-08-25 13:48:00 #36040

  Ú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

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz n1nja #36039 üzenetére

  Akár meg is oszthatnád a makródat...

• #36039 n1nja tag n1nja #36034

  Új Válasz 2017-08-25 12:40:57 #36039

  Ú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

  Privát üzenet küldése

  

  n1nja

  tag

  válasz n1nja #36034 üzenetére

  Makróval megoldottam, köszönöm a segítséget.

• #36028 Fferi50 Topikgazda n1nja #36022

  Új Válasz 2017-08-24 16:06:10 #36028

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz n1nja #36022 üzenetére

  Szia!

  Szerintem a többszintű rendezés jó lehet neked:
  Első szint: Idő
  Második szint: Gép
  Harmadik szint: TervAzon vagy Terv
  Negyedik szint: Terv vagy Tervazon

  A növekvő szintek megtartják az előző szintek rendezettségét, azon belül rendezik a saját szintjüket.

  Üdv.

• #36025 Delila_1 veterán n1nja #36022

  Új Válasz 2017-08-24 15:01:44 #36025

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz n1nja #36022 üzenetére

  Egy segédoszlopban összefűzöd az egyes cellákat valami elválasztó karakterrel (szóköz, alsó kötőjel), olyan sorrendben, ahogy a rendezést szeretnéd látni. A kép szerint az első az idő, második vagy a gép, vagy a TervAzon. A mutatott adatok szerint bármelyik lehet. Akárhány oszlopod adatait is összefűzheted, majd eszerint rendezd a teljes tartományt.

• #36023 poffsoft veterán n1nja #36022

  Új Válasz 2017-08-24 14:40:12 #36023

  Ú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

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz n1nja #36022 üzenetére

  a sima sorbarendezés nem lesz jó?
  GÉPNÉV szerint növekvő
  ÉS
  IDŐ szerint növekvő?

  Nem, ennél bonyolultabb.

  Függvénnyel kell, vagy makróval is jó?

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