GhostofDoom
12-22-2019, 05:42 AM
Hello,
it seems we like to add the xlsm to a server
but it can't be access by multiusers at once
just for reading
and i have found an option in excel but seems i have to convert every range to a table
yea that's easy
but the problem is i have to change all the codes we have so far to make it work with the 'table' support
the most codes we using is for searching but problem is it will only work if it match the string :(
is there an option we can use the search part so search like we do in the range?
code range:
match everything with 1 criteria or even empty criteria
DataSH.Range("T9").Value = txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("T8:T9") _
, CopyToRange:=DataSH.Range("V8:AM8")
ListBox1.RowSource = DataSH.Range("outdata").Address(external:=True)
code table:
just only match criteria if the same string like for example 'Mark' not m or mark or empty criteria
With ListBox1
.List = Sheets("TestingImport").ListObjects(1).DataBodyRange.Value
For j = .ListCount - 1 To 0 Step -1
If .List(j, 16) & .List(j, 6) <> "x" & txtSearch.Text Then .RemoveItem j
Next j
Thanks
it seems we like to add the xlsm to a server
but it can't be access by multiusers at once
just for reading
and i have found an option in excel but seems i have to convert every range to a table
yea that's easy
but the problem is i have to change all the codes we have so far to make it work with the 'table' support
the most codes we using is for searching but problem is it will only work if it match the string :(
is there an option we can use the search part so search like we do in the range?
code range:
match everything with 1 criteria or even empty criteria
DataSH.Range("T9").Value = txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("T8:T9") _
, CopyToRange:=DataSH.Range("V8:AM8")
ListBox1.RowSource = DataSH.Range("outdata").Address(external:=True)
code table:
just only match criteria if the same string like for example 'Mark' not m or mark or empty criteria
With ListBox1
.List = Sheets("TestingImport").ListObjects(1).DataBodyRange.Value
For j = .ListCount - 1 To 0 Step -1
If .List(j, 16) & .List(j, 6) <> "x" & txtSearch.Text Then .RemoveItem j
Next j
Thanks