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

• #23245 m.zmrzlina senior tag fluxion #23244

  Új Válasz 2014-09-14 13:54:16 #23245

  Ú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

  

  m.zmrzlina

  senior tag

  válasz fluxion #23244 üzenetére

  Csak az elv:

  Sub lista_frisit()
  Range("B1").Select
  Do While ActiveCell.Value <> ""
  If Application.WorksheetFunction.CountIf(Range("A:A"), ActiveCell) = 0 Then
  Range("A" & (Range("A" & Rows.Count).End(xlUp).Row) + 1) = ActiveCell.Value
  End If
  ActiveCell.Offset(1, 0).Select
  Loop
  End Sub

  Nálam A1 ben kezdődik a szűkebb B1-ben a bővebb lista.
  Természetesen a saját munkalapodra kell faragnod. Ha teszel be képet róla tudjuk pontosítani.

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