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

• #18724 Delila_1 veterán mr.nagy #18723

  Új Válasz 2013-08-09 17:26:41 #18724

  Ú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 mr.nagy #18723 üzenetére

  Az első makrót a lapodhoz rendeld. Ez figyeli az A5 cella változását.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$5" Then Osszefuz
  End Sub

  Mikor új adatot viszel be az A5-be, meghívja a modulba írt Osszefuz makrót, ami a B5 cellában összefűzi az azonos kódhoz tartozó adatokat.

  Sub Osszefuz()
  Dim kriterium, Rng As Range, usor As Long, CV As Object
  Application.EnableEvents = False
  
  Range("B5") = ""
  kriterium = Range("A5")
  Range("A4:D4").AutoFilter
  Selection.AutoFilter Field:=3, Criteria1:=kriterium
  usor = Range("D4").End(xlDown).Row
  Set Rng = Range("D5:D" & usor).SpecialCells(xlCellTypeVisible)
  For Each CV In Rng
  Range("B5") = Range("B5") & " " & CV
  Next
  
  Application.EnableEvents = True
  Selection.AutoFilter
  End Sub

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