single digit from a string

[nehachoubey]

Hi,
There is control string ('11111100000'). i have to get single digits from this string and enter into cells of sheet 'DATA' from cell E3 to O3. plz help !

 

[VBACO]

Are you wanting to use VBA or just functions?

 

[Andrew Poulsom]

In E3 copied across:

=MID($A$1,COLUMNS($A1:A1),1)

 

[nehachoubey]

i have to write a macro for this. Actually this control string i will get from database.

 

[ogo]

Hi Neha,

can you provide an example and where the string is stored?

 

[nehachoubey]

yea sure.. the string is stored as column 'Control' in a table SS_MENU in my database.

 

[ogo]

Hi ,

Is this what you asked for?? I assumed that the string is stored in E3..

Private Sub ReplaceStr()
 
strTxt = Cells(3, 5).Value
Cells(3, 15).Value = strTxt
 
Cells(3, 15).Activate
        ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
strTxt = Cells(3, 15).Value
msgbox strTxt
 
End Sub

 

[ogo]

hI TRY THIS,

Private Sub SplitStr()
 
STRtXT = "11111100000"
 
For i = 15 To 5 Step -1
 
  Cells(3, i).Value = Right(STRtXT, 1)
  STRtXT = Left(STRtXT, Len(STRtXT) - 1)
 
Next i
 
End Sub