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

• #1667 lapa veterán milow #1663

  Új Válasz 2006-10-26 22:36:35 #1667

  Ú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

  

  lapa

  veterán

  válasz milow #1663 üzenetére

  relatív. az alábbi a = név, b = összeg oszlopokat feltételez, fejléccel. c és d oszlopok elejébe rakja az eredményt.
  
  Sub top5()
  
  otodik = Application.WorksheetFunction.Large(Range(Cells(2, 2), Cells(65536, 2)), 5)
  j = 0
  For i = 1 To 65536
  If Cells(i, 1).Value = '''' Then
  Exit For
  Else
  If Cells(i, 2).Value >= otodik Then
  j = j + 1
  Cells(j, 3).Value = Cells(i, 1).Value
  Cells(j, 4).Value = Cells(i, 2).Value
  End If
  End If
  Next i
  
  Range(Cells(1, 3), Cells(j, 4)).Sort Key1:=Cells(2, 4), Order1:=xlDescending, Key1:=Cells(2, 3), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  
  End Sub
  

• #1665 Gh0sT addikt milow #1663

  Új Válasz 2006-10-26 22:18:34 #1665

  Ú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

  

  Gh0sT

  addikt

  válasz milow #1663 üzenetére

  Septiben elolvastam, hogy mi lenne a problémád és összedobtam egy kezdetleges táblát, ami elvileg automatikusan megcsinál neked mindent.
  
  - vizsgálja, hogy az A oszlop hány elemet tartalamaz és követi a táblázat bővülését
  - kiválaszthatod, hogy hány legnagyobb elemet szeretnél kikeresni a táblából
  
  Ha nagyon félre értettem a feladatot, akkor sorry. Kicsit fáradt vagyok már...
  
  [link]

• #1659 lapa veterán milow #1657

  Új Válasz 2006-10-26 19:33:47 #1659

  Ú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

  

  lapa

  veterán

  válasz milow #1657 üzenetére

  nemtom mostanában elhal éjszakánként az internyet. most próbáld.

• #1651 lapa veterán milow #1648

  Új Válasz 2006-10-25 18:10:27 #1651

  Ú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

  

  lapa

  veterán

  válasz milow #1648 üzenetére

  ööö nemtom hogy ez mennyire elég, de ezt a hsz-ed is olvasva eszembe ötlött egy lehetséges megoldás: [link]
  
  1. tábla fejlécek kellenek
  2. adatok --> kimutatás --> tábla teljes oszlopai kijelöl (ha később írogatsz hozzá ugye)
  3. neveket bal kockába, összegeket jobb kockába húzod a listából (abból lett nálam e és f oszlop)
  4. e2 vagy alatta jobb gomb --> mező tulajdonságok --> speciális --> a többit látod.
  5. új adatok esetén a kimutatáson jobb gomb --> frissítés

• #1647 matekmatika tag milow #1646

  Új Válasz 2006-10-24 23:58:17 #1647

  Ú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

  

  matekmatika

  tag

  válasz milow #1646 üzenetére

  Mielőtt belemélyednénk nagyon a makrózásba, úgy nem jó, hogy felcseréled a megnevezés és érték oszlopokat, aztán mindkettőt kijelölve növekvő sorrenbe rendezed? Mert ugye ekkor az első 5 sorban lesz az 5 legnagyobb értékű.
  Ha pedig ragaszkodsz a makróhoz akkor lenne egy kérdésem. Mi történjen akkor, ha mondjuk 5-nél több legnagyobb értékű sor is van? (pl. a 12-es érték a legnagyobb az oszlopban, de ebből van 8db)
  
  [Szerkesztve]

• #1645 lapa veterán milow #1644

  Új Válasz 2006-10-23 22:48:15 #1645

  Ú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

  

  lapa

  veterán

  válasz milow #1644 üzenetére

  esetleg egy bénácska irányított szűrőt tudok alternatívaként javasolni, makró nélkül szvsz nem fogod tudni. [link]

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