1. В строке
dataindex1(arr1) = swTable.Text(r, 0)
цифру "0" заменяете на нужную (0 - это первый столбец).
У меня номера позиций в третьем столбце, поэтому в макросе поставил dataindex1(arr1) = swTable.Text(r, 2)
2. У меня на sw2020 ваш макрос ничего не нашел ни на каком листе.
Немного поправил код теперь работает с любого листа и возвращается на первый.
BalloonCheck.swp
Сегодня выкладываю первую версию текста самой Нормали по сварке, речь о которой шла в позапрошлом сообщении. Нормаль содержит собственно Нормаль и четыре Приложения к ней: А, Б, В и Г. Приложения будут выложены в следующих публикациях...
9_0_1 Нормаль ОГТ 6130-24-1.pdf
Забирайте кому нужно. Шкив параметризирован. На 34 канавки и на 36.
Добавляются исполнения быстро.
Всего надо поменять 3 глобальных параметра:
"Outside diameter"
"Number of grooves"
"Толщ"
Где их значения берутся я примечаниях в уравнениях описал.
Шкив для зубчатых ремней типа Std S8M.SLDPRT