Forum Discussion
TextJoin using vba when a new row is filled
I am new to programming in excel (I mainly work in Access) and am running into a bit of trouble. My company tracks performance metrics for each employee twice a month and a report is required to push...
Private Sub CommandButton1_Click()
Dim result As String
Dim size As Integer
Dim cell_entries() As String
Dim i As Integer
Dim k As Integer
Dim j As Integer
size = 4
k = 1
For j = 3 To 30
ReDim cell_entries(size)
For i = 0 To size
cell_entries(i) = Cells(j, k).Value
k = k + 1
Next i
result = Join(cell_entries)
Worksheets("Sheet1").Cells(j, 7).Value = result
k = 1
Next j
End Sub
Maybe with this code.
- Thank you Quadruple_Pawn for such a quick response. I appreciate what you and others do to help those of us who are not so savvy when it comes to programming. I will give it a try...
Thank you again
