Need help with VBA code

Question

The below piece of code, in the attached macro, is not returning the expected result. The column 'Reference Visit', in the 'All Visits' tab, remains empty.Section of code:&nbsp;&nbsp;&nbsp; ' Check for specific values in the 'Visit' column and assign corresponding 'Reference Visit' values&nbsp;&nbsp;&nbsp; Select Case visitValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case "Screening Day -28 to 1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wsAllVisits.Cells(k, refVisitColAll).Value = "C1, Day 1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case "C1, Day 1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wsAllVisits.Cells(k, refVisitColAll).Value = "Screening Day -28 to 1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case "C1, Day 8"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wsAllVisits.Cells(k, refVisitColAll).Value = "C1, Day 1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Add more cases if necessary&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wsAllVisits.Cells(k, refVisitColAll).Value = "" ' Leave blank or assign default if no match&nbsp;&nbsp;&nbsp; End SelectNext k

hansvogelaar · Answer

If cell.Value = "Visit Sequence" Then visitColAll = cell.Column
sets visitColAll to 4 (column D).
However, the values you are looking for in the Select Case ... End Select block are in column 5 (column E).

kristelnulens · Answer

Embarassing! 😭 Thank you!

Forum Discussion

Need help with VBA code

2 Replies

Resources