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

• #19694 honfoglalo senior tag honfoglalo #19692

  Új Válasz 2013-11-30 11:09:28 #19694

  Ú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 honfoglalo #19692 üzenetére

  Így pedig nem írja át a B oszlop mezőnevét:

  Private Sub Worksheet_Change(ByVal Target As Range)

  Application.ScreenUpdating = False

  a = ActiveCell.Address

  b = Columns(1).Rows.Count

  Range("a2:a" & b).Select

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

  End Sub

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