Output error with VBA

[ryan8200]

Based on the data and output at [FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]https://ibb.co/qNmx8Lz

What is the error that caused error at 3rd column of the output ?

Below is the code that I have been using

Sub MissingHobbies()
Dim c As Integer, h As Integer, ans As Integer
ans = 9
For c = 2 To 11    ' candidates
  For h = 3 To 6  ' hobbies
  Cells(8, 1) = "Hobbies"
  Cells(8, 2) = "Candidates"
  If Cells(h, c) = "N" Then
  Cells(ans, 1) = Cells(h, 1)
  Cells(ans, 2) = Cells(1, c)
  ans = ans + 1
  Else
End If
Next h
Next c
End
End
End Sub

Appreciate if fellow members can give me a helping hand.



[/FONT]

 

[RoryA]

I don't follow - there are only 2 columns of output in that code.

 

[ryan8200]

I don't follow - there are only 2 columns of output in that code.

Sorry it should be error on 2nd column

 

[RoryA]

And what is the error? I didn't see any error values in the picture.

 

[ryan8200]

And what is the error? I didn't see any error values in the picture.

Error with 2nd column. The blank should be returned with the name of the candidate

 

[RoryA]

Looks like you have merged cells in row 1, so every other cell is technically blank.

 

[ryan8200]

Looks like you have merged cells in row 1, so every other cell is technically blank.

Hi Rory,

Can you hint me how to resolve this issue ?

 

[RoryA]

Instead of:

Cells(ans, 2) = Cells(1, c)

you could use:

If Cells(1, c).value = vbnullstring then
Cells(ans, 2) = Cells(1, c - 1).Value
else
Cells(ans, 2) = Cells(1, c).Value
end if

 

[ryan8200]

Thanks for helping me. Do you mind share with me, how you master your VBA skills ?
I really not able to think of the solution.

 

[RoryA]

I read a lot of books, spent a lot of time trying to speed up work processes, and also learned a lot from trying to answer questions on forums like this one, as well as reviewing other people's solutions to the same questions.