shrinivasmj
Board Regular
- Joined
- Aug 29, 2012
- Messages
- 140
HI,
*.Need to creat a vb or macro in to the excel workbook with short key to run the program for all the pages in excel and each page out put should creat a new note pad and save the format by files name.
Sheet1.
i have a name data in row G3 can go upto 200 name
i need to copy column from H3 to H13 and if data there from H14TO H24 Need to copy the every 11 block column till end if data found , and paste in end of
<ath1> G25 as seen in sheet1A.
*.need to repeat copy paste I3 column data till end and paste in G, column from G47 <ath1>
again copy J3 column and paste in G91 as shown in sheet1A.
need to copy and paste all G3 row data to column wise in G. shown in sheet1A.
*.Need to remove all text once from start and ends with / in column G3.there are code to reffer the name and address.
eg. a.b/ b.f/ a.b.c.d/ can see from column C4. removed data shown in sheet1B in G3 column.
trim G, column to remove unwanted space .
Then need to delete comma ( , ) end of every line in G, column data. as seen in Sheet1B.
Used formula to remove comma =LEFT(G3,LEN(G3)-(RIGHT(G3)=","))
need to Assign code for E1 column to <ath1> Till find next data in column G3 on <ath1> finded data in G24 ,then need to chang <ath1> to <ath2> till
find next data in G3 on <ath1> again find in G47 need to change E column <ath1> to <ath3> till find net data in G3 column from G47.
need to do till the end of G3 Blank to<ath1> if find all 11 block blank and delete the bottom row from Blank <ath1>.
Code changed as shown in column E ,
* Sheet1C need to sort D,E,G and Delet blank data from G, column with D,E column data.
Result shown in Sheet1C.
* Sheet1D need to change all <ath> Name to upper case in reverse format with condaction eg. shown below
anil kapoor singh SINGH,ANIL KAPOOR
kiran kumar gee tie GEE TIE,KIRAN KUMAR
super kumar meer timmer natak t TIMMER NATAK T,SUPER KUMAR MEER
using this excel formula- =UPPER(LEFT(TRIM(RIGHT(SUBSTITUTE(TRIM(A1)," ",REPT(" ",99)),(1+(LEN(A1)-LEN(SUBSTITUTE(A1," ",""))>2)+(LEN(A1)-LEN(SUBSTITUTE(A1," ",""))>4))*99))&","&A1,LEN(A1)))
and take F1 and F2 to G1 and G2. then delete column F ,
need to merge E, column and F,column showm below
=CONCATENATE(E3,F3) as in sheet1D.
*Sheet1E.
FINAL STAGE
Creat a Note Pad by File Name shown in F1 , copy F, column and paste in note pad and save all the excel sheet data one by one new notepad in folder name by excel sheet,
please help in doing vb ,macro or .net program were i can run in single command.
file link to download excel file .
( [url]http://www.filesharesite.com/files/201209/1346501824data_for_VB_EXCEL_TO_NOTEPAD.xls)[/URL]
http://www.filesharesite.com/delete...VB_EXCEL_TO_NOTEPAD.xls&d=201209&k=3789848390
Regards
srinivas
9742945611
india</ath></ath1></ath1></ath3></ath1></ath1></ath2></ath1></ath1></ath1></ath1></ath1>
*.Need to creat a vb or macro in to the excel workbook with short key to run the program for all the pages in excel and each page out put should creat a new note pad and save the format by files name.
Sheet1.
i have a name data in row G3 can go upto 200 name
i need to copy column from H3 to H13 and if data there from H14TO H24 Need to copy the every 11 block column till end if data found , and paste in end of
<ath1> G25 as seen in sheet1A.
*.need to repeat copy paste I3 column data till end and paste in G, column from G47 <ath1>
again copy J3 column and paste in G91 as shown in sheet1A.
need to copy and paste all G3 row data to column wise in G. shown in sheet1A.
*.Need to remove all text once from start and ends with / in column G3.there are code to reffer the name and address.
eg. a.b/ b.f/ a.b.c.d/ can see from column C4. removed data shown in sheet1B in G3 column.
trim G, column to remove unwanted space .
Then need to delete comma ( , ) end of every line in G, column data. as seen in Sheet1B.
Used formula to remove comma =LEFT(G3,LEN(G3)-(RIGHT(G3)=","))
need to Assign code for E1 column to <ath1> Till find next data in column G3 on <ath1> finded data in G24 ,then need to chang <ath1> to <ath2> till
find next data in G3 on <ath1> again find in G47 need to change E column <ath1> to <ath3> till find net data in G3 column from G47.
need to do till the end of G3 Blank to<ath1> if find all 11 block blank and delete the bottom row from Blank <ath1>.
Code changed as shown in column E ,
* Sheet1C need to sort D,E,G and Delet blank data from G, column with D,E column data.
Result shown in Sheet1C.
* Sheet1D need to change all <ath> Name to upper case in reverse format with condaction eg. shown below
anil kapoor singh SINGH,ANIL KAPOOR
kiran kumar gee tie GEE TIE,KIRAN KUMAR
super kumar meer timmer natak t TIMMER NATAK T,SUPER KUMAR MEER
using this excel formula- =UPPER(LEFT(TRIM(RIGHT(SUBSTITUTE(TRIM(A1)," ",REPT(" ",99)),(1+(LEN(A1)-LEN(SUBSTITUTE(A1," ",""))>2)+(LEN(A1)-LEN(SUBSTITUTE(A1," ",""))>4))*99))&","&A1,LEN(A1)))
and take F1 and F2 to G1 and G2. then delete column F ,
need to merge E, column and F,column showm below
=CONCATENATE(E3,F3) as in sheet1D.
*Sheet1E.
FINAL STAGE
Creat a Note Pad by File Name shown in F1 , copy F, column and paste in note pad and save all the excel sheet data one by one new notepad in folder name by excel sheet,
please help in doing vb ,macro or .net program were i can run in single command.
file link to download excel file .
( [url]http://www.filesharesite.com/files/201209/1346501824data_for_VB_EXCEL_TO_NOTEPAD.xls)[/URL]
http://www.filesharesite.com/delete...VB_EXCEL_TO_NOTEPAD.xls&d=201209&k=3789848390
Regards
srinivas
9742945611
india</ath></ath1></ath1></ath3></ath1></ath1></ath2></ath1></ath1></ath1></ath1></ath1>
Last edited:
