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

• #24843 KaliJoe tag

  Új Válasz 2015-01-04 12:23:54 #24843

  Ú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

  

  KaliJoe

  tag

  Sziasztok,

  Írok egy jelenléti ív programot. Oda jutottam, hogy egy újabb vizsgálatnál ki akarom íratni a dolgozó teljes nevét. Ehhez most éppen a rövid név áll rendelkezésemre, ami egyezik a dolgozó jelenléti adatait nyilvántartó Munkalap nevével. Viszont a beírt VBE sor hibára fut. Megnéztem előtte sima képlettel ott rendben van. Az adatok:

  Az Excel sor: =INDEX(Személylap!B2:K25;HOL.VAN("KalinaJL_1";Személylap!K2:K25;0);1)

  A VBE sor kiemelve a kódrészlettel:
  For Each wsh_DolgozóRövidNév In Worksheets
  If dat_BeírandóDátum <= Worksheets(wsh_DolgozóRövidNév.Name).Cells(Worksheets(wsh_DolgozóRövidNév.Name).Cells(1, 1).Value, const_DolgozóNévOszlop).Value Then
  int_Válasz = MsgBox("A kiválasztott" & Chr(10) & Chr(13) & _
  Chr(9) & WorksheetFunction.Index(const_SzemélylapAdatbázis, WorksheetFunction.Match(wsh_DolgozóRövidNév.Name, const_SzemélylapRövidNévOszlop, 0), 1) & Chr(10) & Chr(13) & _
  "nevű dolgozó adatbázisában későbbi időpont az utolsó bejegyzés, mint az Általad választott dátum. Akarod felülírni az űrlapon megadott információkkal az adatbázisban lévőt illetve beszúrni, ha nem létezik bejegyzés erre a dátumra?", _
  vbQuestion + vbYesNo + vbDefaultButton2, "Felülírás-Beszúrás?")
  If int_Válasz = vbYes Then
  bol_Beszúrás = True
  ElseIf int_Válasz = vbNo Then
  Exit Sub
  Else
  'Úgy vesszük, mintha Nemet mondott volna = Visszalépés az űrlaphoz, hogy módosíthasson
  Exit Sub
  End If
  End If
  Next wsh_DolgozóRövidNév

  A piros rész dob hibát, miközben, az értékeket rendesen tudja:
  

  A hibaüzenet:
  

  Kinek, mi az ötlete, mi lehet a gond? És, főleg, mi lehet a megoldás?

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