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

• #12952 Delila_1 veterán erich85T #12951

  Új Válasz 2012-02-21 17:43:12 #12952

  Ú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 erich85T #12951 üzenetére

  Szívesen.

• #12950 Delila_1 veterán erich85T #12949

  Új Válasz 2012-02-21 15:37:49 #12950

  Ú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 erich85T #12949 üzenetére

  Sub beszur()
  Dim sor%, usor%
  usor% = ActiveSheet.UsedRange.Rows.Count
  For sor% = usor% To 2 Step -1
  If Cells(sor, 2) <> Cells(sor% - 1, 2) Then _
  Rows(sor%).EntireRow.Insert
  Next
  End Sub

• #12721 tpopity csendes tag erich85T #12720

  Új Válasz 2012-01-29 14:39:05 #12721

  Ú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

  

  tpopity

  csendes tag

  válasz erich85T #12720 üzenetére

  Szia!
  Hányszor és milyen időközönként van erre szükséged?
  Mennyire kell automatizálni, mennyi "kézimunkát" vagy hajlandó belevinni?
  Üdv,
  Tibor

• #12715 poffsoft veterán erich85T #12708

  Új Válasz 2012-01-26 21:39:47 #12715

  Ú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 erich85T #12708 üzenetére

  Szerintem makró kell.
  Hacsak valamelyik keres függvény keresési tartománya dinamikusan változtatható képletben (miközben a találat indexe is lekérdezhető) képletként.

• #12578 m.zmrzlina senior tag erich85T #12573

  Új Válasz 2012-01-11 12:54:30 #12578

  Ú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

  

  m.zmrzlina

  senior tag

  válasz erich85T #12573 üzenetére

  Ha a valódi táblázatod is olyan szerkezetű mint a példa (nincs az ügyfelek oszlopában üres cella) akkor lehet ez egy megoldás:

  Sub osszead()
  Dim eredmeny As Double
  Dim ugyfel As String
  eredmeny = 0
  Cells(2, 1).Select
  ugyfel = ActiveCell.Value
  
  Do Until ActiveCell.Value = ""
  
  Do While ActiveCell.Value = ugyfel
  eredmeny = eredmeny + ActiveCell.Offset(0, 1).Value
  ActiveCell.Offset(1, 0).Select
  Loop
  
  ActiveCell.Offset(-1, 2).Value = eredmeny
  eredmeny = 0
  ugyfel = ActiveCell.Value
  Loop
  
  End Sub

  Nálam A1-től indul a táblázat.

• #12576 bugizozi őstag erich85T #12573

  Új Válasz 2012-01-11 11:50:01 #12576

  Ú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

  

  bugizozi

  őstag

  válasz erich85T #12573 üzenetére

  Esetleg részösszeg?

• #12574 ArchElf addikt erich85T #12573

  Új Válasz 2012-01-11 11:17:54 #12574

  Ú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

  

  ArchElf

  addikt

  válasz erich85T #12573 üzenetére

  Miért nem csinálsz belőle Pivotot?

  AE

• #12021 Delila_1 veterán erich85T #12018

  Új Válasz 2011-11-14 12:27:30 #12021

  Ú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 erich85T #12018 üzenetére

  A makró egy irányított szűréssel indul, ami az A oszlopban lévő neveket szűri meg úgy, hogy minden név csak egyszer szerepeljen az E oszlopban. Ezután a nevek mellé felsorolja az adatokat.

  Sub mm()
  Dim sor As Integer, usor As Integer, sor_név As Integer, usor_név As Integer
  Dim név, oszlop As Integer
  
  'Irányított szűrés az E oszlopba az egyedi nevekkel
  Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
  "E1"), Unique:=True
  
  usor = Range("E1").End(xlDown).Row: usor_név = Range("A1").End(xlDown).Row
  
  'Kigyűjtés
  For sor = 2 To usor
  név = Cells(sor, "E"): oszlop = 6
  For sor_név = 2 To usor_név
  If Cells(sor_név, 1) = név Then
  Cells(sor, oszlop) = Cells(sor_név, 2)
  oszlop = oszlop + 1
  End If
  Next
  Next
  End Sub

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