VBA Range Empty Sub，如何将用户发送回填充范围

Question

Sub Emptys()

Dim r As Range
Dim totalCells As Integer

'My range To check'
Set r = ActiveSheet.Range("B3:CS71")

'Check for filled cells'
totalCells = r.Count - WorksheetFunction.CountBlank(r)

If totalCells = 0 Then
    MsgBox "Range is empty, go back and enter"

End If

End Sub

如何将用户发送回工作表并从此子项填充范围？它在“打印数据”上，之后的下一个调用将是打印宏。调用命令按钮检查是否为空，弹出 msgbox，然后在打印机宏上调试。

谢谢

Answer 1

Public Sub Emptys(r As Range)
Dim totalCells As Integer, r2 As Range
totalCells = r.Count - WorksheetFunction.CountBlank(r)
If totalCells = 0 Then
    On Error GoTo err
    Set r2 = Application.InputBox("Please Enter valid range or range with data", , , , , , , 8)
    Emptys r2
 End If
err:
    If err.Number = 424 Then Exit Sub
 End Sub
'Calling sub.
Sub calling()
Dim rng As Range
Set rng = Sheets("Your Sheet Name").Range("Your range")
Emptys rng
End Sub