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

• #19387 Delila_1 veterán Agaba #19386

  Új Válasz 2013-10-25 17:04:49 #19387

  Ú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 Agaba #19386 üzenetére

  A H1:J1 tartományba beírod a 3 címet (Node, Caption, Db), I2-be a keresett címet, és indítod a makrót.

  Sub Node()
  Dim sor As Integer, usor As Integer, WF As WorksheetFunction, v
  
  Range("H2").ClearContents
  v = MsgBox("Beírtad az I2 cellába a keresett címet?", vbYesNo + vbQuestion)
  If v = vbNo Then Exit Sub
  
  Set WF = Application.WorksheetFunction
  Range("L1") = "Node": Range("M1") = "Caption"
  
  usor = WF.CountA(Columns("A"))
  Range("A1:E" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  "I1:I2"), CopyToRange:=Range("L1:M1"), Unique:=False
  
  usor = WF.CountA(Columns("L")): Range("J2") = usor - 1
  For sor = 2 To usor
  Range("H2") = Range("H2") & Range("L" & sor) & ", "
  Next
  Range("H2") = Left(Range("H2"), Len(Range("H2")) - 2)
  Columns("L:M").ClearContents
  End Sub

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