Ú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.

• #22549 Delila_1 veterán Bobrooney #22548

  Új Válasz 2014-07-23 18:19:05 #22549

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

  Névadás a Z oszlopnak, változó mennyiségű adathoz:

  =OFSZET(Munka1!$Z$2;0;0;DARAB2(Munka1!$Z:$Z)-1;1)

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