Vyskakujemi hláška BASIC - Chyba při běhu '380' Nesprávná hodnota vlastnosti se zastavením v řádku:
NoveMnozstvi_data(0,0) = AktualniMnozstvi + PocetPrijem_data(0,0)
Může mi někdo říci jak upravit kód, aby byl funkční, zkoušel jsem různé kombinace proměnných a buď se mi nevepsal "počet" do buňky na listu příjmu ani nedošlo k přepočtu množství nebo nastala výše zmíněná chyba.
Option VBASupport 1
Private Sub ZapisPrijem_Click()
doc = thisComponent
ListPrijemMaterialu = doc.sheets(2)
ListSeznamMaterialu = doc.sheets(0)
'Zjištění posledního vyplněného řádku a volného řádku na listu "Příjem materiálu"
Dim PosledniRadekPrijem As Long, VolnyRadekPrijem As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
PosledniRadekPrijem = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
VolnyRadekPrijem = PosledniRadekPrijem + 1
End If
'Zápis počtu příjmu z příjmového formuláře
Dim PocetPrijem_range as object, PocetPrijem_data(0,0) as variant
PocetPrijem = ListPrijemMaterialu.getCellRangeByName("C3").string
PocetPrijem_data(0,0) = PocetPrijem
BunkaPocetPrijem = "C" &VolnyRadekPrijem
PocetPrijem_range = ListPrijemMaterialu.getCellRangebyName(BunkaPocetPrijem)
PocetPrijem_range.setDataArray(PocetPrijem_data)
'Hledání řádku přijímaného materiálu na listu "Seznam materiálu"
Hledej = ListSeznamMaterialu.createSearchDescriptor()
Hledej.SearchString = NazevPrijem
Radek = ListSeznamMaterialu.findFirst(Hledej)
CisloRadku = Radek.RangeAddress.EndRow + 1
BunkaPocetPrepis = "F" &CisloRadku
'Načtení hodnoty počtu z listu "Seznam materiálu", navýšení o příjem a zapsání navýšené hodnoty
Dim NoveMnozstvi_range as object, NoveMnozstvi_data(0,0) as variant, AktualniMnozstvi as variant
AktualniMnozstvi = ListSeznamMaterialu.getCellRangeByName(BunkaPocetPrepis)
NoveMnozstvi_data(0,0) = AktualniMnozstvi + PocetPrijem_data(0,0)
NoveMnozstvi_range = ListSeznamMaterialu.getCellRangebyName(BunkaPocetPrepis)
NoveMnozstvi_range.setDataArray(NoveMnozstvi_data)
End Sub
Díky za jakékoliv rady
Editoval Bezda86 (29. 12. 2021 14:52:26)