Thank you sirji. I will try on it. On Tue, Jan 24, 2012 at 8:40 PM, Sam Mathai Chacko <samde...@gmail.com>wrote:
> I have just shown an example for the name. I am sure you can replicate it > for all your other fields. > > 'The strNewLine is optional. It is used as a character that will force to > go to the next line. > 'For example, if we use + sign as new line feed, Sam Mathai+Chacko, then > Chacko will be forced to the next line > 'However, if we do not use the new line feed character, like Sam Mathai > Chacko, then the entire text will be entered in one line > 'Any character can be used for new line feed, and not just '+' > Sub CharToCells(rngCells As Range, strText As String, Optional strNewLine > As String) > > Dim lngRows As Long > Dim lngCols As Long > Dim lngCounter As Long > > strText = Trim(strText) > rngCells.ClearContents > For lngRows = 1 To rngCells.Rows.Count > For lngCols = 1 To rngCells.Columns.Count > lngCounter = lngCounter + 1 > If Mid(strText, lngCounter, 1) = " " Then > If InStr(1, Mid(strText, lngCounter + 1) & " ", " ") - 1 > > rngCells.Columns.Count - lngCounter + (rngCells.Columns.Count * (lngRows - > 1)) Then > If lngRows < rngCells.Rows.Count Then > lngRows = lngRows + 1 > lngCols = Empty > GoTo NextLine > Else > Exit For > End If > End If > End If > If lngRows < rngCells.Rows.Count And Mid(strText, lngCounter, > 1) = strNewLine Then > lngRows = lngRows + 1 > lngCols = Empty > Else > rngCells(lngRows, lngCols).Value = Mid(strText, > lngCounter, 1) > End If > NextLine: > Next > Next > > End Sub > > > Regards, > Sam Mathai Chacko > > > On Tue, Jan 24, 2012 at 3:25 PM, Shankar Bheema <shankar.n...@gmail.com>wrote: > >> Pls provide solution for this problem. >> >> ---------- Forwarded message ---------- >> From: Shankar Bheema <shankar.n...@gmail.com> >> Date: Mon, Jan 23, 2012 at 1:28 PM >> Subject: Saving the form data charaterwise in excel sheet >> To: excel-macros@googlegroups.com >> >> >> Dear Experts >> >> I attached a VBA form. How to save the data in charaterwise entered in >> that form into the excel sheet ? >> >> regards >> >> -- >> FORUM RULES (986+ members already BANNED for violation) >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> >> 2) Don't post a question in the thread of another member. >> >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> >> 4) Acknowledge the responses you receive, good or bad. >> >> 5) Cross-promotion of, or links to, forums competitive to this forum in >> signatures are prohibited. >> >> NOTE : Don't ever post personal or confidential data in a workbook. Forum >> owners and members are not responsible for any loss. >> >> >> ------------------------------------------------------------------------------------------------------ >> To post to this group, send email to excel-macros@googlegroups.com >> > > > > -- > Sam Mathai Chacko > > -- > FORUM RULES (986+ members already BANNED for violation) > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Cross-promotion of, or links to, forums competitive to this forum in > signatures are prohibited. > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > owners and members are not responsible for any loss. > > > ------------------------------------------------------------------------------------------------------ > To post to this group, send email to excel-macros@googlegroups.com > -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
