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

• #19692 honfoglalo senior tag erdelyi73 #19690

  Új Válasz 2013-11-29 22:04:56 #19692

  Ú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

  

  honfoglalo

  senior tag

  válasz erdelyi73 #19690 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)

  a = ActiveCell.Address

  Columns(1).Select

  Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1" _
  ), Unique:=True
  Range(a).Select

  End Sub

  Akkor működik ha az A1 és B1 mezőnév.

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