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"

	A	B	C	D
1	Dec 2017	Jan 2018	Feb 2018	March 2018
2
3	10	0	20	12

<tbody>
</tbody>

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