If statement in VBA

[stoure]

Hi!
I'd like to implement this code in VBA. I didn't succeed to do it.
case1 : MENU PRINCIIPAL!J5=3
IF C6="X" then I6="X"
ELSEIF D6="X"then G6="X"
elseif E6="X" then H6="X"
elseif F6="X" then M6="X"
Case 2 : MENU PRINCIPAL!J5=4
IF C6="X" then M6="X"
ELSEIF D6="X"then G6="X"
elseif E6="X" then H6="X"
elseif F6="X" then Q6="X"
Case 3 : MENU PRINCIPAL!J5=5
IF C6="X" then Q6="X"
ELSEIF D6="X"then G6="X"
elseif E6="X" then H6="X"
elseif F6="X" then U6="X"
Case 4 : MENU PRINCIPAL!J5=6
IF C6="X" then U6="X"
ELSEIF D6="X"then G6="X"
elseif E6="X" then H6="X"
elseif F6="X" then Y6="X"
Thanks

 

[stoure]

Dear experts,
I Succeeded to write this code below, but it's not working well, can something tell me where is the problem :

Sub test()
ThisWorkbook.Activate
Range("J5").Select
If Range("J5").Value = "3" Then
 Sheets("Quart").Activate
    If Range("C6").Value = "X" Then
    Range("I6").Value = "X"
    ElseIf Range("D6").Value = "X" Then
    Range("G6").Value = "X"
    ElseIf Range("E6").Value = "X" Then
    Range("H6").Value = "X"
    ElseIf Range("F6").Value = "X" Then
    Range("M6").Value = "X"
    End If
    
ElseIf Range("J5").Value = "4" Then
Sheets("Quart").Activate
    If Range("C6").Value = "X" Then
    Range("M6").Value = "X"
    ElseIf Range("D6").Value = "X" Then
    Range("G6").Value = "X"
    ElseIf Range("E6").Value = "X" Then
    Range("H6").Value = "X"
    ElseIf Range("F6").Value = "X" Then
    Range("Q6").Value = "X"
    End If
ElseIf Range("J5").Value = "5" Then
Sheets("Quart").Activate
    If Range("C6").Value = "X" Then
    Range("Q6").Value = "X"
    ElseIf Range("D6").Value = "X" Then
    Range("G6").Value = "X"
    ElseIf Range("E6").Value = "X" Then
    Range("H6").Value = "X"
    ElseIf Range("U6").Value = "X" Then
    Range("Q6").Value = "X"
    End If
ElseIf Range("J5").Value = "4" Then
Sheets("Quart").Activate
    If Range("C6").Value = "X" Then
    Range("U6").Value = "X"
    ElseIf Range("D6").Value = "X" Then
    Range("G6").Value = "X"
    ElseIf Range("E6").Value = "X" Then
    Range("H6").Value = "X"
    ElseIf Range("F6").Value = "X" Then
    Range("Y6").Value = "X"
    End If
End If

End Sub

 

[Fluff]

Bit of a guess as you haven't given us much to go on, but try this

Sub test()
   If Sheets("MENU PRINCIPAL").Range("J5").Value = "3" Then
      Sheets("Quart").Activate
      If Range("C6").Value = "X" Then
         Range("I6").Value = "X"
      ElseIf Range("D6").Value = "X" Then
         Range("G6").Value = "X"
      ElseIf Range("E6").Value = "X" Then
         Range("H6").Value = "X"
      ElseIf Range("F6").Value = "X" Then
         Range("M6").Value = "X"
      End If
   ElseIf Sheets("MENU PRINCIPAL").Range("J5").Value = "4" Then
      Sheets("Quart").Activate
      If Range("C6").Value = "X" Then
         Range("M6").Value = "X"
      ElseIf Range("D6").Value = "X" Then
         Range("G6").Value = "X"
      ElseIf Range("E6").Value = "X" Then
         Range("H6").Value = "X"
      ElseIf Range("F6").Value = "X" Then
         Range("Q6").Value = "X"
      End If
   ElseIf Sheets("MENU PRINCIPAL").Range("J5").Value = "5" Then
      Sheets("Quart").Activate
      If Range("C6").Value = "X" Then
         Range("Q6").Value = "X"
      ElseIf Range("D6").Value = "X" Then
         Range("G6").Value = "X"
      ElseIf Range("E6").Value = "X" Then
         Range("H6").Value = "X"
      ElseIf Range("U6").Value = "X" Then
         Range("Q6").Value = "X"
      End If
   ElseIf Sheets("MENU PRINCIPAL").Range("J5").Value = "6" Then
      Sheets("Quart").Activate
      If Range("C6").Value = "X" Then
         Range("U6").Value = "X"
      ElseIf Range("D6").Value = "X" Then
         Range("G6").Value = "X"
      ElseIf Range("E6").Value = "X" Then
         Range("H6").Value = "X"
      ElseIf Range("F6").Value = "X" Then
         Range("Y6").Value = "X"
      End If
   End If

End Sub

 

[Joe4]

Cross-posted here: https://www.excelforum.com/excel-programming-vba-macros/1213279-offset-for-vba.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html).

This way, other members can see what has already been done in regard to a question, and do not waste time working on a question that may already be answered.

For a more complete explanation on cross-posting, see here: http://www.excelguru.ca/content.php?184).