Worksheets("Лист").PrintPreview

Dim J As Integer, st As String
 J = ComboBox2.ListIndex
 If J >= 0 Then st = ComboBox2.List(J)

Private Sub TextBox1_Change()   
    ' Если нужно обрабатывать изменение текста
    ' Например, возможно, вы хотите просто обновить ComboBox здесь.
End Sub

Option Explicit

   Dim ws As Worksheet
   Dim rng As Range
   Dim array1 As Variant
   Dim i As Long
   Dim result As String

Public Sub GetDataFromActiveWorkbook()    Dim ws As Worksheet   Dim rng As Range
  
   ' Проверяем, есть ли открытая книга
   If Application.Workbooks.Count = 0 Then
       MsgBox "Нет открытых книг Excel"
       Exit Sub
   End If


   ' Устанавливаем активный лист (или вы можете указать конкретный лист)
   Set ws = ActiveWorkbook.Sheets("Лист1")
   
   ' Указываем диапазон: замените A1:C10 на нужный вам диапазон
   Set rng = ws.Range("A1:C10")
   
   ' Получаем данные в массив
   array1 = rng.Value
   
   ' Выводим данные (пример), чтобы показать результат
   For i = LBound(array1, 1) To UBound(array1, 1)
       result = result & array1(i, 1) & " " & array1(i, 2) & vbNewLine
   Next i


   ' Показываем результат в сообщении
   MsgBox result


   ' Освобождаем ресурсы
   Set rng = Nothing
   Set ws = Nothing
End Sub

Public Sub UserForm_Initialize()
   Application.Visible = True
   Call GetDataFromActiveWorkbook
End Sub

Private Sub TextBox1_Change()
        UserForm1.TextBox1.Value = result
        UserForm1.ComboBox1.Value = array1(1, 1)
End Sub

Public Sub Conn () 
Set Cnn= New ADODB.Connection
       Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Test\Test.xlsm;" & _
       "Extended Properties=Excel 12.0; xml;"
        Cnn.Open
       
       strQuery = "select Наименование, Марка  FROM [Лист1$] Where Артикул  =  ""RG58"""   
       Set rst = cnn.Execute(strQuery)    
       array1 = rst.GetRows()                
End

Sub Sub Get_Kol_iRow()Dim i As LongDim iLastRow As LongDim iSummaDim iColIndex As LongDim n As IntegeriLastRow = Cells(Rows.Count, "A").End(xlUp).RowiColIndex = Cells(4, "A").Interior.ColorIndex      iSumma = 0      n = 1  For i = 1 To iLastRow    If Cells(i + 1, "A").Interior.ColorIndex <> iColIndex Then      If Cells(i + 1, "A") <> "" Then         iSumma = iSumma + 1      End If    Else      Cells(n, "D") = iSumma      iSumma = 0      n = i + 1    End If  Next MsgBox ("Выполнено")

End Sub