Skip to content

Instantly share code, notes, and snippets.

@adam704a
Created November 12, 2018 22:19
Show Gist options
  • Save adam704a/e59e673a32f0559f5e327c82e73d1a3a to your computer and use it in GitHub Desktop.
Save adam704a/e59e673a32f0559f5e327c82e73d1a3a to your computer and use it in GitHub Desktop.
Sub MDA3()
Dim counter As Integer
Dim response As Integer
response = MsgBox("Running macro will reset data entered manually on target population. Do you wish to continue?", vbYesNo)
Select Case response
Case vbYes
For counter = 9 To 1000
'--- If MDA 3 implmented ---
If Worksheets("MDA3").Cells(counter, 4) = "MDA3 (IVM)" Then
'--- PreSAC ---
'--- Worksheets("MDA3").Cells(counter, 6) = "Not eligible"
'--- SAC ---
Worksheets("MDA3").Cells(counter, 6) = Worksheets("COUNTRY_INFO").Cells(counter, 6)
'--- Adults ---
Worksheets("MDA3").Cells(counter, 7) = Worksheets("COUNTRY_INFO").Cells(counter, 7)
'--- Else
'--- Worksheets("MDA3").Cells(counter, 6) = " "
'--- Worksheets("MDA3").Cells(counter, 7) = " "
'--- Worksheets("MDA3").Cells(counter, 8) = " "
End If
Next counter
Case vbNo
End Select
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment