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

• #5054 Delila_1 veterán [HUN]Tyson #5053

  Új Válasz 2009-06-16 13:48:41 #5054

  Ú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 [HUN]Tyson #5053 üzenetére

  Most az adataid az A1-ben kezdődnek. Szúrj be elé egy sort, és az új A1-be adj valami címet (pl. e-mail), mert az irányított szűréshez ez szükséges.Állj az A1-en.
  Adatok/Szűrő/Irányított szűrő, OK.
  Más helyre másolja.
  A listát automatikusan kijelöli.
  A "Hova másolja" rovatba írj E1-et.
  Jelöld be a "Csak az egyedi rekordok megjelenítése" négyzetet.
  OK
  E2-től lefelé minden cím csak egyszer szerepel.
  Most töröld ki az első sort, hogy cím nélkül szerepeljenek az oszlopok.
  Vidd be az új makrót, és indíthatod.

  Sub email()
  Dim a, b, c, d As Long
  c = 1: d = 100
  
  For a = 1 To 28
  For b = c To d
  Cells(a, 2) = Cells(a, 2) & Cells(b, 5) & "; "
  Next
  Cells(a, 2) = Right(Cells(a, 2), Len(Cells(a, 2)) - 2)
  c = a * 100 + 1: d = d + 100
  Next
  End Sub

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