Thread: Help To Edit VB

Hi,

Anyone could help me in editing this VB's result in sheet 2 with out comma.This VB got it from the web,

for example

when i key in
C=3
1
2
3
4

i get result

1, 2, 3
1, 2, 4
1, 3, 4
2, 3, 4

but i want result without comma

123
124
134
234

Thank you

Hi vanaj

replace SavePermutation with

Private Sub SavePermutation(ItemsChosen() As Integer, _
Optional FlushBuffer As Boolean = False)

Dim i As Integer, sValue As String
Static RowNum As Long, ColNum As Long

If RowNum = 0 Then RowNum = 1
If ColNum = 0 Then ColNum = 1

If FlushBuffer = True Or BufferPtr = UBound(Buffer()) Then
If BufferPtr > 0 Then
If (RowNum + BufferPtr - 1) > Rows.Count Then
RowNum = 1
ColNum = ColNum + 1
If ColNum > 256 Then Exit Sub
End If

Results.Cells(RowNum, ColNum).Resize(BufferPtr, 1).Value _
= Application.WorksheetFunction.Transpose(Buffer())
RowNum = RowNum + BufferPtr
End If

BufferPtr = 0
If FlushBuffer = True Then
Erase Buffer
RowNum = 0
ColNum = 0
Exit Sub
Else
ReDim Buffer(1 To UBound(Buffer))
End If

End If

'construct the next set
For i = 1 To UBound(ItemsChosen)
sValue = sValue & vAllItems(ItemsChosen(i), 1)
Next i

'and save it in the buffer
BufferPtr = BufferPtr + 1
Buffer(BufferPtr) = sValue
End Sub 'SavePermutation

Thank you very much Pike.

vanaj, please take a few minutes to read the forum rules before posting again, and don't quote whole posts.

Thanks.