Breaking a word by each alphabet and inputing it in different cells
Hi,
We have a form in Excel (something like a bank form) where the details have to be filled in by each character in each cell. for eg. the word PEPSI would be required to be typed by each alphabet in the 5 adjoining cells. Can someone help me out with a macro such that I type the word(could be 5 to 20 characters long) in the first cell and run the macro. It should automatically separate the characters in the adjoining cells. Another way would be to place the cursor (active cell) on the first cell and run the macro which would display an input box. On entering the words in the input box and pressing enter, all the characters would be displayed in separate cells starting from the first cell. Thanks Sandip. |
Breaking a word by each alphabet and inputing it in different cells
Sandip
This should get you started. Tony Sub aaa() GetWord = InputBox("get word") Range("a5").Select For i = 1 To Len(GetWord) ActiveCell.Offset(0, i - 1).Value = Mid(GetWord, i, 1) Next i End Sub -----Original Message----- Hi, We have a form in Excel (something like a bank form) where the details have to be filled in by each character in each cell. for eg. the word PEPSI would be required to be typed by each alphabet in the 5 adjoining cells. Can someone help me out with a macro such that I type the word(could be 5 to 20 characters long) in the first cell and run the macro. It should automatically separate the characters in the adjoining cells. Another way would be to place the cursor (active cell) on the first cell and run the macro which would display an input box. On entering the words in the input box and pressing enter, all the characters would be displayed in separate cells starting from the first cell. Thanks Sandip. . |
All times are GMT +1. The time now is 04:28 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com