Hirdetés

Keresés

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

  • Lasersailing

    senior tag

    válasz Delila_1 #52603 üzenetére

    Köszönöm, küzdök továbbra is :(

    Most a gondom az alábbi: (és valószínűleg a háttérbeli ok ugyanaz: nem ismerem a formátumokat excel vba-ban)

    Az alábbi függvényrészlet soha nem talál egyezőséget, pedig ránézésre (inputbox alapján) ugyanaz a két érték pl. sm=4-nél (lásd képernyőkép később)

      sm = 3
      Do
        sm = sm + 1
      'Loop Until year(right(Sheets(sob).Cells(sm, 1).Value,4)),month(mid(Sheets(sob).Cells(sm, 1).Value,4,2),day(left(Sheets(sob).Cells(sm, 1).Value,2))) = datum
      InputBox (Sheets(sob).Cells(sm, 1).Value & Chr(13) & Right(Kiszallitasform.datumok.Value, 2) & "/" & Mid(Kiszallitasform.datumok.Value, 6, 2) & "/" & Left(Kiszallitasform.datumok.Value, 4))
      
      Loop Until Sheets(sob).Cells(sm, 1).Value = Right(Kiszallitasform.datumok.Value, 2) & "/" & Mid(Kiszallitasform.datumok.Value, 6, 2) & "/" & Left(Kiszallitasform.datumok.Value, 4)

    (A sob sheeten az értékeket összehúzva dátumként kezeli az A oszlop értékeit.)

    Egyezőségről képernyőkép:


    Mi lehet a gond és főleg mi a megoldás?
    kiszallitasform.datumok tulajdonságai:

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