VBA code

[omkar94]

Hi Guys,

Please help me on below query.

I need a vba code for below example. If there is an excel formula then that is also okay.


Question:
So if there are numbers on Row 3(see table below), I want it to return the text from Row 1.

From below example. I want the code to return this.
"Dec 2017 & Feb 2018 & March 2018"

[TABLE="class: cms_table_cms_table, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Dec 2017[/TD]
[TD]Jan 2018[/TD]
[TD]Feb 2018[/TD]
[TD]March 2018[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]10[/TD]
[TD]0[/TD]
[TD]20[/TD]
[TD]12[/TD]
[/TR]
</tbody>[/TABLE]


Any help on this is appreciated.

Thank you.

 

[Vbagreenhorn1]

Where (how: messagebox / in a cell etc.) and when you want it to happen?

 

[Rick Rothstein]

This should get you started...

[table="width: 500"]
[tr]
	[td]Sub GetDates()
  
  Dim C As Long, LastCol As Long, DateRng As String
  
  LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
  For C = 1 To LastCol
    If Cells(3, C).Value > 0 Then DateRng = DateRng & " & " & Format(Cells(1, C).Value, "mmm yyyy")
  Next
  DateRng = Mid(DateRng, 3)
  
  MsgBox DateRng
  
End Sub[/td]
[/tr]
[/table]

 

[omkar94]

hi Vbagreenhorn1 ,

I want this code to be on the very right of cell C8. I think that is Selection.End(xlToRight).Select.
And i want this to happen every-time I run this macro.

Thanks