2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

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

  • #2930 vilag tag
    Új Válasz #2930
    Ú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

    vilag

    tag

    Halihó!

    Régen jártam erre, egy jó ideje nem volt időm VBA-val foglalkozni.

    Most azonban szakítottam rá, de viszonylag hamar bele is futottam egy triviális bár számomra jelenleg megoldhatatlan problémába.
    Állandóan bajban vagyok az excel és a VBA dátumkezelésével és ez újra és újra nehézségeket okoz.

    Most az alábbi problémával szembesültem:
    Egy cellában dátumként tárolt dátumhoz tartozó másik dátumot szeretnék eredményül kapni egy dátumokat tartalmazó tömbből vlookup függvény segítségével.

    Eddig jutottam:
    Private Sub CommandButton5_Click() 'adott sor jogerejének kiszámolása

    aktivsor = ActiveCell.Row
    aktivsor = Trim(Str(aktivsor))

    If Range("m" + aktivsor) = "HIV" And Range("p" + aktivsor) = "" Then
    uzenet = MsgBox("Nincs átvételi esemény, nem lehet jogerősíteni", 0, "Hiba") 'ideiglenes
    Exit Sub
    Else
    If Range("q" + aktivsor) <> "nem kereste" And Range("q" + aktivsor) <> "elköltözött" And Range("q" + aktivsor) <> "címzett ismeretlen" Then
    'dátum plusz 15 nap
    atvdatuma = DateValue(Range("p" + aktivsor)) + 15
    'atvdatuma = Trim(Str(atvdatuma))



    'y = ThisWorkbook.Sheets("Jogerő").Range("a25")
    x = Application.WorksheetFunction.VLookup(atvdatuma, ThisWorkbook.Sheets("Jogerő").Range("a:c"), 3, 0)

    (...)

    Sajnos azonban az beillesztett utolsó sornál az alábbi hibaüzenetre futok:

    Run-time error '1004':
    Application-definied or object-definied error

    Már minden általam ismert lehetséges módon próbáltam javítani, de nem sikerül.

    Van valakinek ötlete mi lehet a hiba?

    Előre is köszönöm!

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