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

• #22559 Fferi50 Topikgazda Bobrooney #22548

  Új Válasz 2014-07-23 20:40:45 #22559

  Ú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

  

  Fferi50

  Topikgazda

  válasz Bobrooney #22548 üzenetére

  Szia!

  Makróba foglalva így nézne ki:
  sub egyedi()
  Dim usor as Long, tomb()
  usor = Range("F" & Rows.Count).End(xlUp).Row
  Range("F1:F" & usor).copy range("Z1")
  Application.DisplayAlerts=False
  Range("Z1:Z" & usor).RemoveDuplicates Columns:=1, Header:=xlYes
  Application.DisplayAlerts=True
  tomb = Application.Transpose(Range("Z2:Z" & usor))

  Üdv.

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