Is there a way to store a 10 digit number from one cell of an excel in an array using vba and using array to insert each number to each cellof table ?

[Cashu]

Dim num(9) as variant

ThisWorkbook.Worksheets("Sheet1").Range("C2").Value = num()
For j = 1 To 11
For i = 0 To 9

ActiveDocument.Tables(2).Cell(1, j + 1).Range.Text = num(i)
 Next i
Next j

Below is the excel file and the word table.Any help will be much appreciated.

 

[NateSC]

I think you are best off just using a loop to split the value up. Something along these lines:

Sub test()

Dim myVal
Dim myArray(9)

' Read the value
myVal = ActiveSheet.Range("B3").Value
' Split into the array
For i = 1 To 10
    myArray(i - 1) = Mid(myVal, i, 1)
Next i
' Paste it to the columns
ActiveSheet.Range("B5:K5").Value = myArray

End Sub

 

[Cashu]

ive solved this by using mid function

 Dim num(0) As Variant
num(0) = ThisWorkbook.Worksheets("Sheet1").Range("C2").Value
For i = 1 To 10
ActiveDocument.Tables(2).Cell(1, i + 1).Range.Text = Mid("", i, 1)
Next i

For j = 1 To 10
ActiveDocument.Tables(2).Cell(1, j + 1).Range.Text = Mid(num(0), j, 1)
Next j

 

[Cashu]

I think you are best off just using a loop to split the value up. Something along these lines:

Sub test()

Dim myVal
Dim myArray(9)

' Read the value
myVal = ActiveSheet.Range("B3").Value
' Split into the array
For i = 1 To 10
    myArray(i - 1) = Mid(myVal, i, 1)
Next i
' Paste it to the columns
ActiveSheet.Range("B5:K5").Value = myArray

End Sub

/CODE]

Thank you Nate SC.Well,I should have seen this before.I was in a hurry and didnt see the notifications list.Thank you buddy.

 

[Cashu]

ive solved this by using mid function

 Dim num(0) As Variant
num(0) = ThisWorkbook.Worksheets("Sheet1").Range("C2").Value
For i = 1 To 10
ActiveDocument.Tables(2).Cell(1, i + 1).Range.Text = Mid("", i, 1)
Next i

For j = 1 To 10
ActiveDocument.Tables(2).Cell(1, j + 1).Range.Text = Mid(num(0), j, 1)
Next j

first loop to clear the existing digits or alphabets and the second loop to input the digits of the cell

 

[smozgur]

Thank you Nate SC.Well,I should have seen this before.I was in a hurry and didnt see the notifications list.Thank you buddy.

The marked solution has been changed accordingly. No further action is required for this thread.