Hi, this bit a excel VBA is working perfectly fine but instead of the "Range("E3").Value = "1"" (as shown in red) I want the value if true to run a macro instead of putting a 1 in a cell,
Thanks,
Owen.
Sub mewbynnuDataSioe()
'
' Mewnbynnu_Data_Sioe Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
If Range("D5").Value = "Iawn I Bwcio" Then
Range("E3").Value = "1"
Range("E4").Select
ElseIf Range("D5").Value = "Dyddiad Anghywir" Then
MsgBox "Mae yna dyddiad anghywir wedi ei fewnbynnu! Mae angen newid hyn er mwyn cario ymlaen!"
End If
End Sub
Thanks,
Owen.
Sub mewbynnuDataSioe()
'
' Mewnbynnu_Data_Sioe Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
If Range("D5").Value = "Iawn I Bwcio" Then
Range("E3").Value = "1"
Range("E4").Select
ElseIf Range("D5").Value = "Dyddiad Anghywir" Then
MsgBox "Mae yna dyddiad anghywir wedi ei fewnbynnu! Mae angen newid hyn er mwyn cario ymlaen!"
End If
End Sub