Type mismatch - de miért?

Type mismatch - de miért?
2020-11-15T10:43:22+01:00
2020-11-18T12:39:31+01:00
2022-12-06T14:35:36+01:00
Zsolt68
Sziasztok!
A következő problémába futottam bele, és nem sikerül megtalálni a megoldást. (Főfoglalkozásom teljesen távol van az IT-től, viszont a tudományos munkám miatt 50k soros táblázatokkal vagyok kénytelen foglalkozni...)
A feladat:
- egy munkalapon beolvasni egy személyi azonosítót (vnt_taj) és egy dátumot (vnt_date).
- egy másik munkalapon megkeresni a személyi azonosító (taj), ha van, beolvasni a hozzá tartozó dátumot (adm_date) Ha a két dátum különbsége =<3 és >0, különböző müveleteket végrehajtani.
A probléma:
- amikor megpróbálom beolvasni a vnt_date-et, type mismatch hibával leáll. A cellák dátumra (éééé.hh.nn) vannak formázva.
A kód:
Dim x As Long, y As Integer, i As Long, s As Integer
Dim taj As String, vnt_taj As String
Dim adm_date As Date, vnt_date As Date, solution As Integer
Sheets(2).Select
x = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(5).Select
y = Sheets(5).Cells(Rows.Count, 1).End(xlUp).Row
For s = 2 To y
    Sheets(5).Select
    vnt_taj = Cells(s, "B").Value
    vnt_date = CDate(Cells(s, "D").Value)  - ennél a sornál kapok type mismatch kódot.
        For i = 2 To x
            Sheets(2).Select
            taj = Cells(i, "C").Value
            If taj = vnt_taj Then
                adm_date = CDate(Cells(i, "G").Value)
                solution = DateDiff("d", vnt_date, adm_date)
                If solution > 0 And solution <= 3 Then
      ..................
            end if
       next
next
Nagyon köszönöm a segítséget előre is!

Zsolt
Mutasd a teljes hozzászólást!
Szia!

Időközben más oldalról a következő tanácsot kaptam, ami megoldotta a problémát.
A dátumot tartalmazó cellákban a "."-ot lecseréltem "/"-ra. Bár a megjelenített érték nem változott (sőt a szerkesztő lécben is továbbra is a "." volt látható), ennek ellenére a makró gond nélkül lefutott. Csak találgatok, hogy az adatok eredeti adatbázisból történő exportálásánál jött létre a hiba.

Mindenkinek nagyon köszönöm a segítséget!

Üdv!
Zsolt
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd