2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #23237 Fferi50 Topikgazda Des1gnR #23231
    Új Válasz #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

    Topikgazda

    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.

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