Добрый день! Подскажите, пожалуйста. Я новичок в VBA, пришлось писать макрос, чтобы облегчить работу. Но у меня не выходит что-то :)
Sub Макрос1()
'
' Макрос1 Макрос
'
Range("C5";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D5";))
If Range("D5";) = "" Then как сделать, чтобы если ячейка не пустая, то макрос продолжал работать? а то у меня останавливается
End
End If
Range("C6";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D6";))
If Range("D6";) = "" Then
End
End If
Range("C7";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D7";))
If Range("D7";) = "" Then
End
End If
Также вопрос, есть ли возможность как-то упростить этот макрос? У меня тут кусок на три "строчки", а их 200! И все повторяется меняются только значения по столбцам C и D
Sub Макрос1()
'
' Макрос1 Макрос
'
Range("C5";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D5";))
If Range("D5";) = "" Then как сделать, чтобы если ячейка не пустая, то макрос продолжал работать? а то у меня останавливается
End
End If
Range("C6";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D6";))
If Range("D6";) = "" Then
End
End If
Range("C7";).Select
Selection.Copy
Sheets("Лист2";).Select
Range("B10:H10";).Select
ActiveSheet.Paste
Sheets("Лист2";).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(Sheets("Лист1";).Range("D7";))
If Range("D7";) = "" Then
End
End If
Также вопрос, есть ли возможность как-то упростить этот макрос? У меня тут кусок на три "строчки", а их 200! И все повторяется меняются только значения по столбцам C и D