Lukáš Záruba
18.08.2020, 08:47
Zdravím, mám pravidlo které hledá v exelu a přiřazuje zpátky hodnoty. '2020_08_17 - PŘIŘAZENÍ SKLADOVKY PODLE POLOTOVARU
Dim MyArrayList As New ArrayList
MyArrayList = GoExcel.CellValues("C:\Users\Public\Documents\Autodesk\Inventor 2015\Templates-BH\BH\OSTATN�\MATERIAL.xls", "POLOTOVAR", "A4", "A60")
Dim SN As String
SN = iProperties.Value("Project", "Description")
For MyRow = 4 To 60
If SN = (GoExcel.CellValue("A" & MyRow)) Then
oProp1 = GoExcel.CellValue("B" & MyRow )
Exit For
End If
Next
Try
iProperties.Value("Project", "Stock Number") = oProp1
Catch
End TryPotřebuji všek toto pravidlo doplnit o možnost:1) řádek nenajde 2) řádek najde ale sloupec B je prázdnýv těchto obo případě zapsat do oProp1 ="Není" - líbila by se mi i možnost že by mezi případy uměl rozlišit :1 ) řádek nenejde (v tomto případě zapsat do oProp1 ="Záznam neexistuje" )2) řádek najde ale sloupec B je prázdný (v tomto případě zapsat do oProp1 ="doplň skladovku do excelu" )- Ps pokud je toto pravidlo kostrbaté, rád sinechám poradit jak to učesat. Pravidlo vzniklo z jiného "přidání virtuální součásti z excellu".Předem děkuji
Dim MyArrayList As New ArrayList
MyArrayList = GoExcel.CellValues("C:\Users\Public\Documents\Autodesk\Inventor 2015\Templates-BH\BH\OSTATN�\MATERIAL.xls", "POLOTOVAR", "A4", "A60")
Dim SN As String
SN = iProperties.Value("Project", "Description")
For MyRow = 4 To 60
If SN = (GoExcel.CellValue("A" & MyRow)) Then
oProp1 = GoExcel.CellValue("B" & MyRow )
Exit For
End If
Next
Try
iProperties.Value("Project", "Stock Number") = oProp1
Catch
End TryPotřebuji všek toto pravidlo doplnit o možnost:1) řádek nenajde 2) řádek najde ale sloupec B je prázdnýv těchto obo případě zapsat do oProp1 ="Není" - líbila by se mi i možnost že by mezi případy uměl rozlišit :1 ) řádek nenejde (v tomto případě zapsat do oProp1 ="Záznam neexistuje" )2) řádek najde ale sloupec B je prázdný (v tomto případě zapsat do oProp1 ="doplň skladovku do excelu" )- Ps pokud je toto pravidlo kostrbaté, rád sinechám poradit jak to učesat. Pravidlo vzniklo z jiného "přidání virtuální součásti z excellu".Předem děkuji