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

• #44975 Delila_1 veterán Doki16 #44974

  Új Válasz 2020-09-28 17:13:58 #44975

  Ú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 Doki16 #44974 üzenetére

  A1-be írtam az ismétlendő összeget, a 290-et. B1-ben van az ismétlések száma, a 10.
  Az A2 képlete =HA(DARABTELI(A$1:A1;A1)<$B$1;A1;""), ezt másolhatod lefelé.

• #43866 Fferi50 Topikgazda Doki16 #43864

  Új Válasz 2020-05-06 13:49:20 #43866

  Ú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 Doki16 #43864 üzenetére

  Szia!
  Bekapcsolod az autoszűrőt. A két oszlopra külön-külön csinálsz szín szerinti szűrést a sárga cellákra.
  A C oszlopba a képlet:
  Amikor az első oszlopot szűröd:
  =A2 (az első látható cella az A oszlopban)
  Amikor a második oszlopot szűröd:
  =B3 (az első látható cella a B oszlopban)
  A képletet végighúzod az érvényes szűrő alatt a látható cellákon.
  Utána megszüntetheted a szűrést.

  Üdv.

• #43865 Guitar14 senior tag Doki16 #43864

  Új Válasz 2020-05-06 13:27:50 #43865

  Ú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

  

  Guitar14

  senior tag

  válasz Doki16 #43864 üzenetére

  Helló!
  Nézet fülben kattints a makrókra, csinálj újat és szerkeszd aztán töröld ki üresre és illeszd be ezt:
  Function SumByColor(CellColor As Range, rRange As Range)
'Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function

  Mentsed le makróbarát munkafüzetként valahová, azt nyisd meg és írd be így a képletet:
  
  (megpróbáltam replikálni a táblád )
  Lényeg, hogy ami nekem kék színnel van arra egy olyat rögzíts $ jelekkel előtte ami olyan színü amilyen adat kell tehát egy sárga cellát jelölj meg vele, aztán húzd le a képletet és kész.

• #41482 lappy őstag Doki16 #41481

  Új Válasz 2019-07-31 15:25:18 #41482

  Ú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

  

  lappy

  őstag

  válasz Doki16 #41481 üzenetére

  az összefoglalóban találsz leírást

• #41478 lappy őstag Doki16 #41477

  Új Válasz 2019-07-31 13:37:47 #41478

  Ú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

  

  lappy

  őstag

  válasz Doki16 #41477 üzenetére

  egy vba
  Sub ColorCompanyDuplicates()
'Updateby Extendoffice 20160704
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub

• #41170 Fferi50 Topikgazda Doki16 #41169

  Új Válasz 2019-05-30 11:49:55 #41170

  Ú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 Doki16 #41169 üzenetére

  Szia!

  Beállítások - Speciális - Adattartomány végén a formázás és képletek folytatása jelölőnégyzetből vedd ki a pipát.

  Üdv.

• #38516 ny.janos tag Doki16 #38515

  Új Válasz 2018-07-10 12:54:35 #38516

  Ú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

  

  ny.janos

  tag

  válasz Doki16 #38515 üzenetére

  A Cseréli... gombra kattintva nincsenek további opciók esetleg?

  Ezen cikk alapján elvileg mennie kellene.

• #38507 Delila_1 veterán Doki16 #38506

  Új Válasz 2018-07-10 08:31:51 #38507

  Ú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 Doki16 #38506 üzenetére

  Akkor két (vagy több) tartományba vedd fel a módosítandókat.

• #38505 Delila_1 veterán Doki16 #38504

  Új Válasz 2018-07-10 08:06:43 #38505

  Ú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 Doki16 #38504 üzenetére

  Olyant nem tud, de van megoldás.

  Egyszer kijelölöd a Ctrl segítségével a különálló cellákat, és nevet adsz a tartománynak. Módosításkor kiválasztod a legördülőből a tartományt, és módosíthatsz.

  

• #34994 Fferi50 Topikgazda Doki16 #34991

  Új Válasz 2017-04-26 12:16:30 #34994

  Ú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 Doki16 #34991 üzenetére

  Szia!

  Képlet:
  =FKERES(BAL(A2;SZÖVEG.KERES("-";A2)-1)&"*";Segédtábla;2;0)
  A Segédtábla helyére írd be a tábla címét (Pl: X2:Z20)

  Üdv.

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