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

• #30489 T_bee aktív tag beers #30483

  Új Válasz 2016-02-09 19:51:41 #30489

  Ú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

  

  T_bee

  aktív tag

  válasz beers #30483 üzenetére

  Szia,

  Lehetne valahogy index függvénnyel csinálni, de inkább egy gyors makrót írtam rá, szerintem egyszerűbb

  Sub tordel()
  
  Dim arRes, arInp As Variant
  Dim x, y As Byte
  Dim i As Integer
  Dim sor, oszlop As Byte
  
  sor = 40
  oszlop = 30
  
  arInp = Selection
  
  ReDim arRes(1 To sor, 1 To oszlop)
  
  For x = 1 To oszlop
  For y = 1 To sor
  i = i + 1
  arRes(y, x) = arInp(i, 1)
  Next y
  Next x
  
  Sheets("Output").Activate
  Range(Cells(1, 1), Cells(sor, oszlop)) = arRes
  
  End Sub

  Hozz létre egy 'output' nevű oldalt, vagy írd át a kódban a lap nevét, majd jelöld ki az adataidat és futtasd a makrót. A sor illetve oszlop változó értékének változtatásával tudod variálni, hogy az output hány sorból, illetve oszlopból álljon (meg lehetne csinálni hogy csak az egyiket kérje, és aztán a kijelölés nagysága alapján a másikat 'kitalálja', de nem inkább maradtam a 'quick and dirty' megoldásnál )

  T_bee

• #30488 T_bee aktív tag beers #30483

  Új Válasz 2016-02-09 19:51:36 #30488

  Ú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

  

  T_bee

  aktív tag

  válasz beers #30483 üzenetére

  dupla, sorry

• #30487 T_bee aktív tag PistiSan #30485

  Új Válasz 2016-02-09 19:36:51 #30487

  Ú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

  

  T_bee

  aktív tag

  válasz PistiSan #30485 üzenetére

  Szia,

  Pivot táblákkal meg tudod nézni, hogy melyik item-ből hány db van, aztán vlookuppal össze lehet hasonlítai őket. Ha ez megvan, akkor utána az eredeti sheetre egy plusz oszlopba hozzá tudod adni hogy ok-e az adott elem, és ez alapján rá tudsz tenni egy feltételes formázást, vagy tudsz szűrőzni

  Itt a példa file, a feltételes formázáson kívül benne van a lényeg

  T_bee

• #30480 T_bee aktív tag totya 25 #30479

  Új Válasz 2016-02-09 16:05:06 #30480

  Ú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

  

  T_bee

  aktív tag

  válasz totya 25 #30479 üzenetére

  Szia

  Legegyszerűbben szerintem pivot táblával tudod megoldani ezt.
  Kijelölöd azt az oszlopot (előtte az oszlop fejlécébe írd be a mező nevét, Pl.: nevek), ahova a neveket írod (gondolom cellánként egy név) majd Beszúrás fül a ribbonon, és Pivot tábla.

  A jobb oldalon fentről behúzod az általad elnevezett mezőt a sorok fieldbe, majd utána újra fentről behúzod ugyanezt a mezőt az értékek fieldbe is, és ekkor elvileg alapértelmezetten az egyes nevek darabszámát fogja mutatni

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