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

• #23237 Fferi50 őstag Des1gnR #23231

  Új Válasz 2014-09-12 20:38:07 #23237

  Ú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

  őstag

  válasz Des1gnR #23231 üzenetére

  Szia!

  A bajt az ide
  " Range("K11").Select
  End
  endif"
  beszúrt end parancs okozza, mert ez véget vet a program futásának azonnali hatállyal.
  Ezt kellene kivenned és akkor nem áll le az első találatnál.

  Egyébként pedig:

  Nem kell a selection, és nem kell activálni sem a megtalált értéket.
  Próbáld így:

  For i = 2 To sheets("pm_nk_arlista_uj").usedrange.rows.count
  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)
  if not ujszam is nothing then
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 1).Value = Sheets("pm_nk_arlista_uj").Cells(i, 1).Value
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 2).Value = Sheets("pm_nk_arlista_uj").Cells(i, 2).Value
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 3).Value = Sheets("pm_nk_arlista_uj").Cells(i, 3).Value
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 4).Value = Sheets("pm_nk_arlista_uj").Cells(i, 4).Value
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 5).Value = Sheets("pm_nk_arlista_uj").Cells(i, 5).Value
  Sheets("pm_nk_arlista").Cells(lastRow + 1, 9).Value = Sheets("pm_nk_arlista").Cells(2, 9).Value
  lastrow=lastrow+1
  End If
  Next i
  Üdv.

  [ Szerkesztve ]

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