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

• #14964 Delila_1 veterán #05304832 #14963

  Új Válasz 2012-09-18 09:21:55 #14964

  Ú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 #05304832 #14963 üzenetére

  Az összefűzésből kihagyom az F oszlopot, az M oszlopba beíratom a SZUMHA függvényt, ennek az értékét másoltatom az F oszlopba.

  Sub Gyomlal_1()
  Dim sor%, usor%
  usor% = Range("A1").End(xlDown).Row
  
  'Adatok összefűzése az N oszlopba
  Range("N1") = "Összefűzve"
  Range("N2:N" & usor%) = "=A2&B2&C2&D2&E2&G2&H2&I2&J2&K2&L2"
  
  'Irányított szűrés az U oszlopba
  Range("N1:N" & usor%).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
  "U1"), Unique:=True
  
  'M oszlopba FKERES-sel darabszám, AE-be SZUMHA függvény
  Range("M1") = "Egyedi tétel"
  For sor% = 2 To usor%
  Range("M" & sor%) = Application.WorksheetFunction.VLookup(Range("N" & sor%), Range("U:AD"), 10, 0)
  Cells(sor%, "AE").FormulaR1C1 = "=SUMIF(C[-17],RC[-17],C[-25])"
  Next
  
  Range("AE2:AE" & usor%).Copy
  Range("F2").Select
  Selection.PasteSpecial Paste:=xlPasteValues
  
  'Azonos sorok törlése
  For sor% = usor% To 2 Step -1
  If Application.CountIf(Range("N:N"), Range("N" & sor%)) > 1 Then _
  Range("A" & sor% & ":M" & sor%).Delete shift:=xlUp
  Next
  
  'Segédoszlopok adatainak törlése
  Columns("M:AE").ClearContents
  End Sub

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