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

• #2930 vilag tag

  Új Válasz 2017-12-04 13:53:58 #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