*urgent* - Cell mandatory before click on button (macro)

[Rahulwork]

Hello Everyone,

Hope you all are safe.

I need your help to create a code,

I have one macro on button which collect and generate something

Sub Button20_Click()

Range("C12:T16").Select
ActiveCell.FormulaR1C1 = "=R[8]C[25]"
Range("C10").Select
Range("C12").Copy

End Sub


if A2 and D2 are blank and user click on button, there would be msgbox stating that pls provide value in these cells. please help me.

 

[PureBluff]

Message if both inputs are empty:

if sheet("sheetname").range("a2").value = "" and sheet("sheetname").range("d2").value = "" then
msgbox("Both input boxes are empty")
Exit sub
End If

Or

if sheet("sheetname").range("a2").value = "" and sheet("sheetname").range("d2").value = "" then
msgbox("Both input boxes are empty")
else 
'do something
End If

Message if either are empty:

if sheet("sheetname").range("a2").value = "" or sheet("sheetname").range("d2").value = "" then
msgbox("One or more input boxes are empty")
Exit sub
End If

or

if sheet("sheetname").range("a2").value = "" or sheet("sheetname").range("d2").value = "" then
msgbox("Both input boxes are empty")
else 
'do something
End If

 

[Rahulwork]

Thanks for your response

in place of do something can i put this statement

Sub Button20_Click()

Range("C12:T16").Select
ActiveCell.FormulaR1C1 = "=R[8]C[25]"
Range("C10").Select
Range("C12").Copy


Please help how can i merge these two things in one code

 

[PureBluff]

Sub Button20_Click()

if sheet("sheetname").range("a2").value = "" and sheet("sheetname").range("d2").value = "" then
msgbox("Both input boxes are empty")
else 
Range("C12:T16").Select
ActiveCell.FormulaR1C1 = "=R[8]C[25]"
Range("C10").Select
Range("C12").Copy 
End If
End sub

 

[Rahulwork]

Thank you so much your response, it working but i have one more case like

if A2 is blank msg box should say input value in A2 and if D2 is blank then vise versa..is it possible to make this?

bottom line is .. if any cell is blank there respective msg box should appear

 

[PureBluff]

Yes,
I put an example of 'or' instead of 'and' code

You can also put it as separate if statements that run in turn.

If sheet("sheetname").range("A1").value = "" then
Msgbox("A1 is blank, please address")
Exit sub
End if

If sheet("sheetname").range("B1").value = "" then
Msgbox("B1 is blank, please address")
Exit sub
End if

If sheet("sheetname").range("C1").value = "" then
Msgbox("C1 is blank, please address")
Exit sub
End if

' code