=ОСТАТ(2;0,4)

Application.Dialogs(xlDialogPrinterSetup).Show

Sub PrintAll()
    Set PList1 = ThisWorkbook.Worksheets("стр1")
    Set PList2 = ThisWorkbook.Worksheets("стр2")
    PList1.Calculate
    Application.Dialogs(xlDialogPrinterSetup).Show 'выбор принтера для печати
    PList1.PrintOut
    PList2.PrintOut
End Sub

Option Explicit
Dim PList1 As Worksheet
Dim PList2 As Worksheet

Sub Print_PList1()
    Set PList1 = ThisWorkbook.Worksheets("стр1")
    PList1.Calculate
    Application.Dialogs(xlDialogPrinterSetup).Show
    PList1.PrintOut
End Sub

Sub Print_PList2()
    Set PList2 = ThisWorkbook.Worksheets("стр2")
    PList2.Calculate
    Application.Dialogs(xlDialogPrinterSetup).Show
    PList2.PrintOut
End Sub

=ИНДЕКС(ДВССЫЛ(A1);ПОИСКПОЗ(Искомое_значение;ДВССЫЛ(A1&"[Столбец_1]"););3)

Sub test()
Dim x, tx$
    tx = UserForm1.TextBox1.Value
    x = SplitBy58(tx): If Not IsArray(x) Then UserForm1.TextBox2.Value x = vbInformation: Exit Sub
    UserForm1.TextBox2.Value x(1) = vbInformation: UserForm1.TextBox3.Value x(2) = vbInformation
End Sub

Sub test()
Dim x, tx$
    tx = UserForm1.TextBox1.Value
    x = SplitBy58(tx): If Not IsArray(x) Then UserForm1.TextBox2.Value = x, vbInformation: Exit Sub
    UserForm1.TextBox2.Value = x(1), vbInformation: UserForm1.TextBox3.Value = x(2), vbInformation
End Sub

Sub test()
Dim x, tx$
    tx = UserForm1.TextBox1.Value
    x = SplitBy58(tx): If Not IsArray(x) Then UserForm1.TextBox2.Value = vbInformation: Exit Sub
    UserForm1.TextBox2.Value = vbInformation
    UserForm1.TextBox3.Value = vbInformation
End Sub

   Set Cell_k = ShopListObj.ListColumns.Item(1).Range.Find(FormShop.CBoxGP.Value, LookAt:=xlWhole)
    If Not Cell_k Is Nothing Then    'Если компания найдена
        FormShop.tb_INN.Value = Cell_k.Cells(1, 2)
    End If

Sub AddINN() 'Заполняем textbox значением ИНН в зависимости от выбора компании
    Set ShopSheet = ThisWorkbook.Worksheets("Покупатель")
    Set ShopListObj = ShopSheet.ListObjects("UTBShop")
    
    If IfNa(Match(FormShop.CBoxGP, ShopListObj.ListColumns(1), 0), 0) > 0 Then
        FormShop.tb_INN = Application.VLookup(FormShop.CBoxGP, ShopListObj.Range, 2, 0)
    End If
End Sub

Sub AddINN() 
    Set ShopSheet = ThisWorkbook.Worksheets("Покупатель")
    Set ShopListObj = ShopSheet.ListObjects("UTBShop")
    FormShop.tb_INN = Application.VLookup(FormShop.CBoxGP, ShopListObj, 2, 0)
End Sub

Private Sub CBoxGP_Change()
    tb_INN = Application.VLookup(CBoxGP, ListObjects("UTBShop"), 2, 0)
End Sub