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

• #23246 Fferi50 Topikgazda Des1gnR #23244

  Új Válasz 2014-09-14 14:09:15 #23246

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

  Szia!

  Tényleg nagyon figyelmetlen vagyok, hiszen rossz helyen kerestetem:

  set ujszam= Sheets("pm_nk_arlista_uj").UsedRange.columns(1).Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, LookIn:=xlvalues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
  helyett:
  set ujszam= Sheets("pm_nk_arlista").UsedRange.columns(1).Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, LookIn:=xlvalues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)

  Remélem, több elnézésem már nem lesz benne.....

  Üdv.

• #23245 m.zmrzlina senior tag Des1gnR #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 Des1gnR #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