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

• #19709 greenface aktív tag honfoglalo #19691

  Új Válasz 2013-12-01 18:54:10 #19709

  Ú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

  

  greenface

  aktív tag

  válasz honfoglalo #19691 üzenetére

  thx, kipróbálom.

• #19696 honfoglalo senior tag honfoglalo #19691

  Új Válasz 2013-11-30 11:46:50 #19696

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

  Ja, ez is angol excelben működik, írd át ActiveSheet-re a Sheet1-et.

• #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