Next without For

[skull_eagle]

Hi,

I can't get the below code to work, not sure if I need to put some else statements or what.

Thank you

For j = 2 To LastR
 
 If Cells(j, 13).Value = "X" Then
 HRWv1 = "WP "
 If Cells(j, 14).Value = "X" Then
 HRWv2 = "DG "
 If Cells(j, 15).Value = "X" Then
 HRWv3 = "RB "
 If Cells(j, 16).Value = "X" Then
 HRWv4 = "RI "
 If Cells(j, 17).Value = "X" Then
 HRWv5 = "RA "
  If Cells(j, 18).Value = "X" Then
 HRWv6 = "SB "
  If Cells(j, 19).Value = "X" Then
 HRWv7 = "SI "
  If Cells(i, 20).Value = "X" Then
 HRWv8 = "SA "
  If Cells(j, 21).Value = "X" Then
 HRWv9 = "LF "
  If Cells(j, 22).Value = "X" Then
 HRWv10 = "LO "
  If Cells(j, 23).Value = "X" Then
 HRWv11 = "CN "
 
 
 Cells(j, 24).Value = HRWv1 & HRWv2 & HRWv3 & HRWv4 & HRWv5 & HRWv6 & HRWv7 & HRWv8 & HRWv9 & HRWv10 & HRWv11


Next j

 

[lrobbo314]

What about like this?

For j = 2 To LastR
 
If Cells(j, 13).Value = "X" Then HRWv1 = "WP "
If Cells(j, 14).Value = "X" Then HRWv2 = "DG "
If Cells(j, 15).Value = "X" Then HRWv3 = "RB "
If Cells(j, 16).Value = "X" Then HRWv4 = "RI "
If Cells(j, 17).Value = "X" Then HRWv5 = "RA "
If Cells(j, 18).Value = "X" Then HRWv6 = "SB "
If Cells(j, 19).Value = "X" Then HRWv7 = "SI "
If Cells(i, 20).Value = "X" Then HRWv8 = "SA "
If Cells(j, 21).Value = "X" Then HRWv9 = "LF "
If Cells(j, 22).Value = "X" Then HRWv10 = "LO "
If Cells(j, 23).Value = "X" Then HRWv11 = "CN "

Cells(j, 24).Value = HRWv1 & HRWv2 & HRWv3 & HRWv4 & HRWv5 & HRWv6 & HRWv7 & HRWv8 & HRWv9 & HRWv10 & HRWv11

Next j

 

[skull_eagle]

What about like this?

For j = 2 To LastR
 
If Cells(j, 13).Value = "X" Then HRWv1 = "WP "
If Cells(j, 14).Value = "X" Then HRWv2 = "DG "
If Cells(j, 15).Value = "X" Then HRWv3 = "RB "
If Cells(j, 16).Value = "X" Then HRWv4 = "RI "
If Cells(j, 17).Value = "X" Then HRWv5 = "RA "
If Cells(j, 18).Value = "X" Then HRWv6 = "SB "
If Cells(j, 19).Value = "X" Then HRWv7 = "SI "
If Cells(i, 20).Value = "X" Then HRWv8 = "SA "
If Cells(j, 21).Value = "X" Then HRWv9 = "LF "
If Cells(j, 22).Value = "X" Then HRWv10 = "LO "
If Cells(j, 23).Value = "X" Then HRWv11 = "CN "

Cells(j, 24).Value = HRWv1 & HRWv2 & HRWv3 & HRWv4 & HRWv5 & HRWv6 & HRWv7 & HRWv8 & HRWv9 & HRWv10 & HRWv11

Next j

Thank you so much, works perfectly.