Private Sub CommandButton1_Click()
Dim mas_dov( , I, j, paste_row As Integer
Counter = 6
Worksheets("Список" .Select
While Range("A" & Counter).Value <> "end"
Counter = Counter + 1
Wend
row_end = Counter - 1
For I = 6 To row_end
Worksheets("Список" .Select
''IPN = Range("D" & i).Value
If Not (Range("B" & I).Value = "+" Then GoTo propusk
''If ipn = "" Then ipn = "1111" ' для пустих іпн не групує
paste_row = 1
mas = 0
mas_dov(0) = 0
If Range("B" & I).Value = "+" Then
copy_row I, 1
print_ngo 1
End If
propusk:
Next I
End Sub
Sub copy_row(zvidky, kudy As Integer)
Rows(CStr(zvidky) & ":" & CStr(zvidky)).Select
Selection.Copy
Rows(CStr(kudy) & ":" & CStr(kudy)).Select
ActiveSheet.Paste
Range("B" & zvidky).Value = "Надрукован"
End Sub
Sub print_ngo(paste_row As Integer)
Worksheets("dogovor" .PrintOut Copies:=3
End Sub
Помогите написать соответствующий код, который отправить запрос на сайт, и в результате получит ответ. Cоответственно результат нужно закинуть в ячейку на листе. Также смотрим пример.
Private Sub UserForm_Initialize()
With Application
Width = .Width
Height = .Height
End With
End Sub
работает на ура. Но проблема появилась другая, все содержимое UserForm потянулось влево экрана. Подскажите, как автоматически центровать содержимое UserForm ?