Dodaj kod do początku makra, jeśli użytkownik wybierze niewłaściwą kolumnę początkową i wyświetli komunikat "Wybierz komórkę z kolumny" E "- vba, excel-vba, excel

Sub TryAgainPrint3()
"
" TryAgainPrint3 Macro
"

"
ActiveCell.Range("A1:H1").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(-3, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
ActiveCell.Offset(0, 8).Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(2, 0).Range("A1:I1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Problems").Select
Range("V5").Select
ActiveCell.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print").Select
ActiveCell.Offset(1, 2).Range("A1").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Odpowiedzi:

Aby wyjść z podprogramu, jeśli użytkownik nie wybrał komórki w kolumnie E, możesz dodać następującą instrukcję If na górze kodu:

If ActiveCell.Column <> 5 Then
MsgBox ("Select a cell in Column E")
Exit Sub
Else:
End If

Czy to zapewnia ci to, czego potrzebujesz? Możesz określić dowolną kolumnę, pamiętaj jednak, że musisz użyć indeksu kolumny, a nie samej kolumny. Kolumna E = kolumna 5