pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

shift

Browse Source
This commit is contained in:
Paul Trowbridge 2024-09-24 11:37:08 -04:00
parent acfef56c16
commit ec9d2f380a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PriceLists.bas
View File

@ -559,7 +559,7 @@ Sub build_price_level(plev As String)
MsgBox (pln(0, 0)) MsgBox (pln(0, 0))
Exit Sub Exit Sub
End If End If
If UBound(pln, 2) > 21 Then If UBound(pln, 2) > 22 Then
segment_regex = "^F|^G|^P" segment_regex = "^F|^G|^P"
Set nnws = nwb.Sheets.Add(, nws) Set nnws = nwb.Sheets.Add(, nws)
nnws.Name = "Price List - Nursery" nnws.Name = "Price List - Nursery"
@ -1007,7 +1007,7 @@ Sub compatible(ByRef ws As Worksheet, row As Long, start_col As Long, end_col As
Set Sel = rrange(ws, row, row, start_col, end_col) Set Sel = rrange(ws, row, row, start_col, end_col)
Sel.InsertIndent 2 Sel.InsertIndent 1
End Sub End Sub