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

• #29967 Delila_1 veterán biker #29966

  Új Válasz 2015-12-26 09:36:31 #29967

  Ú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 biker #29966 üzenetére

  A rendezett lapon kell futtatnod a makrót.

  A makró elején a B és az AD oszlop adataiból törlöm a felesleges, ismétlődő adatokat, hogy tisztább legyen a kép, majd az AD oszlopban – vesszővel elválasztva – gyűjtöm kategóriákat.
  A Sheets("Munka1").Select sorban a Munka1 helyére a saját lapod nevét írd be.

  Sub Tisztitas()
  Dim sor As Long, usor As Long
  
  'Előkészítés
  Sheets("Munka1").Select 'Ide a saját lapod nevét írd be
  usor = Range("A" & Rows.Count).End(xlUp).Row
  Range("AJ2:AJ" & usor).FormulaR1C1 = "=LEFT(RC[-34],SEARCH("")"",RC[-34]))"
  Range("AJ2:AJ" & usor).Copy
  Range("B2").PasteSpecial xlPasteValues
  Range("AJ2:AJ" & usor) = ""
  
  With Columns("AD:AD")
  .Replace What:="Transpak alkatrészek>>", Replacement:=""
  .Replace What:=">>", Replacement:=""
  End With
  
  'Sortörlés
  For sor = usor To 2 Step -1
  If Cells(sor, "K") = Cells(sor - 1, "K") Then
  Cells(sor - 1, "AD") = Cells(sor - 1, "AD") & "," & Cells(sor, "AD")
  Rows(sor).Delete Shift:=xlUp
  End If
  Next
  End Sub

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