RE: $$Excel-Macros$$ Re: MIS executive
I have no intent of doing a job posting. Asking for others. Where should job postings be done. I am in British Colulmbia Canada. What should I do if I want to change to change my email receiving address for this group? Thank you.David Date: Sat, 16 Jun 2012 08:14:00 -0700 From: jainayus...@gmail.com To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: MIS executive Hi Yogananda, Please note that Job posting is allowed in this forum. Please do not post any jobs going forward. Thanks. On Saturday, 16 June 2012 16:41:50 UTC+5:30, (%Allmydreams%) wrote: Hi, We have a opening for MIS - Executive in Bangalore location. Do call my below number on next coming monday. Its Urgent requirement Regards Yogananda Muthaiah Ph : 973 123 7267 -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
RE: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
My post should work, but I made a "boo boo". The SizeColumns macro should not have Set Workbook=Nothing at the end. Workbook was a parameter to the procedure, and setting it to Nothing will effect whatever other procedure called SizeColumns. Here is the corrected version of SizeColumns: Sub SizeColumns(Worksheet As Worksheet) Dim _ VisibleCellColumns As Range, _ VisibleCellEntireColumns As Range, _ Column As Range, _ OriginalColumnWidths As Collection, _ OriginalColumnWidth As Double, _ ScreenUpdatingState As Boolean ' Disable screen updating (and remember existing state) ScreenUpdatingState = Application.ScreenUpdating Application.ScreenUpdating = False ' Determine VisibleCellColumns to AutoFit Set VisibleCellColumns = Worksheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns ' Determine VisibleCellEntireColumns for remembering column widths ' We use Application.Union to eliminate redundancy in the range. Set VisibleCellEntireColumns = _ Union( _ VisibleCellColumns.EntireColumn, _ VisibleCellColumns(1) _ ).EntireColumn ' Save current column widths to OriginalColumnWidths collection Set OriginalColumnWidths = New Collection For Each Column In VisibleCellEntireColumns OriginalColumnWidths.Add Column.ColumnWidth, CStr(Column.Column) Next Column ' Autofit visible cell's columns VisibleCellColumns.AutoFit ' Restore original column widths that were wider For Each Column In VisibleCellEntireColumns OriginalColumnWidth = OriginalColumnWidths(CStr(Column.Column)) If Column.ColumnWidth < OriginalColumnWidth Then Column.ColumnWidth = OriginalColumnWidth End If Next Column ' Restore ScreenUpdating state Application.ScreenUpdating = ScreenUpdatingState ' Cleanup Set Column = Nothing Set OriginalColumnWidths = Nothing Set VisibleCellEntireColumns = Nothing Set VisibleCellColumns = Nothing End Sub Asa From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Asa Rossoff Sent: Saturday, June 16, 2012 6:43 PM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell Prashant: My guess is that your request is for a macro that will only Auto-Increase column widths -- never decrease them, which would unneccesarily change the look of the spreadsheet. Excel does not have a method of specifically identifying cells (or columns) where text has "overflowed", but I can think of two ways to solve the problem (if I am guessing your intent correctly): 1) Examine the TEXT property of cells. This property indicates the displayed Value. If the formatted Cell.Value fits entirely in the cell, then Cell.Text is the formatted Cell.Value. If some of the Text is cut off, Cell.Text = a string of "#" symbols (same as you see on the spreadsheet). If the column is hidden, Cell.Text="" (an empty string). It would be nice to be able to search the Text property for "#" (or any length string of "#", then for those matches, apply the number format of the cell, conditional formats to the Value and compare it to the Text. If they are different, then the text has overflowed and we can Auto-Fit that entire column and then search for "#" (and the like) in other columns. There is no built-in search method that searches the Text property, though, so we would have to examine the spreadsheet cell-by-cell. Besides being complex, this method would miss the case of General format numbers with some digits after the decimal hidden from view due to a narrow column width. That case could be handled, but it would require comparing Text and formatted Value for maybe many more cells. In Excel 2010 we could use cell.Displayformat.Numberformat to determine the NumberFormat used for display, considering the cell format, conditional format, and anything else that I didn't think of. 2) This is a simpler method! Save the column widths---perhaps in an array. Autofit all columns. Loop through the columns and for any columns that decreased in size, re-apply their old column width. I will provide a macro for method #2. I will assume that you want a special case for already hidden columns and they should remain hidden. Also that cell values in hidden rows should not effect the column width. To accommodate those special cases, I will only apply AutoFit based on Visible cells. Here is the macro: Sub SizeColumns(Worksheet As Worksheet) Dim _ VisibleCellColumns As Range, _ VisibleCellEntireColumns As Range, _ Column As Range, _ OriginalColumnWidths As Collection, _ OriginalColumnWidth As Double, _ ScreenUpdatingState As Boolean ' Disable screen updating (and remember existing state) ScreenUpdatingState = Application.ScreenUpdating A
RE: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
Prashant: My guess is that your request is for a macro that will only Auto-Increase column widths -- never decrease them, which would unneccesarily change the look of the spreadsheet. Excel does not have a method of specifically identifying cells (or columns) where text has "overflowed", but I can think of two ways to solve the problem (if I am guessing your intent correctly): 1) Examine the TEXT property of cells. This property indicates the displayed Value. If the formatted Cell.Value fits entirely in the cell, then Cell.Text is the formatted Cell.Value. If some of the Text is cut off, Cell.Text = a string of "#" symbols (same as you see on the spreadsheet). If the column is hidden, Cell.Text="" (an empty string). It would be nice to be able to search the Text property for "#" (or any length string of "#", then for those matches, apply the number format of the cell, conditional formats to the Value and compare it to the Text. If they are different, then the text has overflowed and we can Auto-Fit that entire column and then search for "#" (and the like) in other columns. There is no built-in search method that searches the Text property, though, so we would have to examine the spreadsheet cell-by-cell. Besides being complex, this method would miss the case of General format numbers with some digits after the decimal hidden from view due to a narrow column width. That case could be handled, but it would require comparing Text and formatted Value for maybe many more cells. In Excel 2010 we could use cell.Displayformat.Numberformat to determine the NumberFormat used for display, considering the cell format, conditional format, and anything else that I didn't think of. 2) This is a simpler method! Save the column widths---perhaps in an array. Autofit all columns. Loop through the columns and for any columns that decreased in size, re-apply their old column width. I will provide a macro for method #2. I will assume that you want a special case for already hidden columns and they should remain hidden. Also that cell values in hidden rows should not effect the column width. To accommodate those special cases, I will only apply AutoFit based on Visible cells. Here is the macro: Sub SizeColumns(Worksheet As Worksheet) Dim _ VisibleCellColumns As Range, _ VisibleCellEntireColumns As Range, _ Column As Range, _ OriginalColumnWidths As Collection, _ OriginalColumnWidth As Double, _ ScreenUpdatingState As Boolean ' Disable screen updating (and remember existing state) ScreenUpdatingState = Application.ScreenUpdating Application.ScreenUpdating = False ' Determine VisibleCellColumns to AutoFit Set VisibleCellColumns = Worksheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns ' Determine VisibleCellEntireColumns for remembering column widths ' We use Application.Union to eliminate redundancy in the range. Set VisibleCellEntireColumns = _ Union( _ VisibleCellColumns.EntireColumn, _ VisibleCellColumns(1) _ ).EntireColumn ' Save current column widths to OriginalColumnWidths collection Set OriginalColumnWidths = New Collection For Each Column In VisibleCellEntireColumns OriginalColumnWidths.Add Column.ColumnWidth, CStr(Column.Column) Next Column ' Autofit visible cell's columns VisibleCellColumns.AutoFit ' Restore original column widths that were wider For Each Column In VisibleCellEntireColumns OriginalColumnWidth = OriginalColumnWidths(CStr(Column.Column)) If Column.ColumnWidth < OriginalColumnWidth Then Column.ColumnWidth = OriginalColumnWidth End If Next Column ' Restore ScreenUpdating state Application.ScreenUpdating = ScreenUpdatingState ' Cleanup Set Column = Nothing Set OriginalColumnWidths = Nothing Set VisibleCellEntireColumns = Nothing Set VisibleCellColumns = Nothing Set Worksheet = Nothing End Sub If you want to have the columns sized automatically when you print the worksheet(s), you can use the workbook's BeforePrint event. Here's an example Workbook.BeforePrint event procedure (place it in the ThisWorkbook module): Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Sheet As Worksheet ' SizeColumns for all of ThisWorkbook's Worksheets. For Each Sheet In Me.Worksheets SizeColumns Sheet Next Sheet 'Cleanup Set Sheet = Nothing End Sub If you want to avoid sizing columns in every single worksheet when the user might only be printing one of the worksheets, it's a bit trickier, since Excel doesn't tell the macro what worksheets are currently being printed. The user might being printed a selected range, the active worksheet, a selection of multiple worksheets, or the entire workbook. If printing was initiated from a macro, there are many more possibilities, s
Re: $$Excel-Macros$$ Re: MIS executive
Hi Ayush, Thank you but am helping someone who is really need in job... Its a gr8 opportunity where u have made this community a success and helping others in their day to day work. I would like to make 1 suggestion to this .. Please allow us to post job related only for field related to MIS , Analytic s openings. You can ban us if job related to other fields (i.e except MIS). On Sat, Jun 16, 2012 at 8:45 PM, Ayush Jain wrote: > Hi Yogananda, > > Please note that Job posting is *NOT* allowed in this forum. Hence, do > not post any jobs going forward. > > Thanks. > > > On Saturday, 16 June 2012 16:41:50 UTC+5:30, (%Allmydreams%) wrote: >> >> Hi, >> >> We have a opening for MIS - Executive in Bangalore location. Do call my >> below number on next coming monday. Its Urgent requirement >> >> >> >> Regards >> Yogananda Muthaiah >> Ph : 973 123 7267 >> >> -- > 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 > > To unsubscribe, send a blank email to > excel-macros+unsubscr...@googlegroups.com > -- Regards Yogananda Muthaiah Ph : 973 123 7267 -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Re: MIS executive
Hi Yogananda, Please note that Job posting is *NOT* allowed in this forum. Hence, do not post any jobs going forward. Thanks. On Saturday, 16 June 2012 16:41:50 UTC+5:30, (%Allmydreams%) wrote: > > Hi, > > We have a opening for MIS - Executive in Bangalore location. Do call my > below number on next coming monday. Its Urgent requirement > > > > Regards > Yogananda Muthaiah > Ph : 973 123 7267 > > -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Re: MIS executive
Hi Yogananda, Please note that Job posting is allowed in this forum. Please do not post any jobs going forward. Thanks. On Saturday, 16 June 2012 16:41:50 UTC+5:30, (%Allmydreams%) wrote: > Hi, > > We have a opening for MIS - Executive in Bangalore location. Do call my > below number on next coming monday. Its Urgent requirement > > > > Regards > Yogananda Muthaiah > Ph : 973 123 7267 > > -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Re: SR LINUX SYS ADMIN/ATLANTA, GA/6 months contract
Jacob John is banned. -Ayush Jain On Thursday, 14 June 2012 22:53:13 UTC+5:30, Jacob john wrote: > Hello Consultant, > Please let me know if you are interested in this requirement. If yes, > kindly send us your > > resume along with contact information. > If you are not looking for new projects, please feel free to pass on this > email to your friends > > or relatives who might be interested. > > Title:SR LINUX SYS ADMIN > Location:ATLANTA, GA > Length: 6 months contract > > > Minimum 7 years Linux (RHEL) experience; this includes familiarity and > experience with the > > following; > Boot from SAN > Building a Linux server from ISO, configuring and deploying on physical > hardware and in a > > Virtual VMWare environment > multipathing > Bonding > NFS / DNS / NTP > Support and Troubleshooting of applications / network on RHEL systems > experience with supporting and configuring RHEL for use as an Oracle RAC > server > experience with Veritas Storage Foundation HA (VCS, VxFS) on linux > LVM > Must have basic scripting in ksh or perl > > > Would like to also have experience with Solaris (minimum 5 - 10 years) > working with Solaris > > Zones and LDOM's > > LINUX (RHEL) – REQUIRED – 7 YEARS > VMware – REQUIRED – 7 YEARS > UNIX/LINUX ENVIRONMENT – REQUIRED – 7 YEARS > PERL – CREATE FROM SCRATCH – REQUIRED – 7 YEARS > SOLARIS ZONES AND LDOM’S – REQUIRED – 5 YEARS > > > > > Thank you > > Jacob John > Panzer Solutions LLC > 45 Stuart Ave,k > Norwalk,CT 06850 USA > jacob.j...@panzersolutions.com > Direct: 203-652-1454 Ext 119 > Fax: (203) 971-8354 > URL: www.panzersolutions.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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
Sam, yours and mine both test OK Don Guillett Microsoft MVP Excel SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Saturday, June 16, 2012 9:11 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell Should be EntireColumns as I had posted Regards, Sam Mathai Chacko On Sat, Jun 16, 2012 at 7:29 PM, dguillett1 wrote: or ActiveSheet.UsedRange.Columns.AutoFit Don Guillett Microsoft MVP Excel SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Saturday, June 16, 2012 6:09 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell ActiveSheet.usedrange.entirecolumn.autofit Sam Mathai Chacko On Sat, Jun 16, 2012 at 4:28 PM, Rajan_Verma wrote: Select the Column and press ALT + O C A Regards Rajan verma +91 7838100659 [IM-Gtalk] From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Prashant Pawle Sent: 16 June 2012 1:40 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell Dear Team, Please help of some macro to find Narrow Cells & Appying Auto fit to only that cell , sample sheet attached Regards, Prashant -- -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@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 To unsubscribe, send a blank email to mailto:excel-macros%2bunsubscr...@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 To unsubscribe, send a blank email to mailto:excel-macros%2bunsubscr...@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.
Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
Should be *EntireColumns* as I had posted Regards, Sam Mathai Chacko On Sat, Jun 16, 2012 at 7:29 PM, dguillett1 wrote: > or > > ActiveSheet.UsedRange.Columns.AutoFit > > Don Guillett > Microsoft MVP Excel > SalesAid Software > dguille...@gmail.com > > *From:* Sam Mathai Chacko > *Sent:* Saturday, June 16, 2012 6:09 AM > *To:* excel-macros@googlegroups.com > *Subject:* Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to > only that cell > > ActiveSheet.usedrange.entirecolumn.autofit > > Sam Mathai Chacko > > On Sat, Jun 16, 2012 at 4:28 PM, Rajan_Verma wrote: > >> Select the Column and press >> >> ALT + O C A >> >> >> >> ** >> >> *Regards* >> >> *Rajan verma* >> >> *+91 7838100659 [IM-Gtalk]* >> >> >> >> *From:* excel-macros@googlegroups.com [mailto: >> excel-macros@googlegroups.com] *On Behalf Of *Prashant Pawle >> *Sent:* 16 June 2012 1:40 >> *To:* excel-macros@googlegroups.com >> *Subject:* $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only >> that cell >> >> >> >> Dear Team, >> >> >> >> Please help of some macro to find Narrow Cells & Appying Auto fit to only >> that cell , sample sheet attached >> >> >> >> Regards, >> >> >> >> Prashant >> >> -- >> -- 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 To >> unsubscribe, send a blank email to >> excel-macros+unsubscr...@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 >> >> To unsubscribe, send a blank email to >> mailto:excel-macros%2bunsubscr...@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 > > To unsubscribe, send a blank email to > excel-macros+unsubscr...@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. > > > -
Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
or ActiveSheet.UsedRange.Columns.AutoFit Don Guillett Microsoft MVP Excel SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Saturday, June 16, 2012 6:09 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell ActiveSheet.usedrange.entirecolumn.autofit Sam Mathai Chacko On Sat, Jun 16, 2012 at 4:28 PM, Rajan_Verma wrote: Select the Column and press ALT + O C A Regards Rajan verma +91 7838100659 [IM-Gtalk] From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Prashant Pawle Sent: 16 June 2012 1:40 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell Dear Team, Please help of some macro to find Narrow Cells & Appying Auto fit to only that cell , sample sheet attached Regards, Prashant -- -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@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 To unsubscribe, send a blank email to mailto:excel-macros%2bunsubscr...@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 To unsubscribe, send a blank email to excel-macros+unsubscr...@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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ change content of cell across multiple worksheets
findNEXT should be faster. See my code.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: JLO
Sent: Saturday, June 16, 2012 8:03 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ change content of cell across multiple worksheets
David, you're a Star! Thank you so much - didn't expect the counter addition -
very thoughtful of you. It works brilliantly!
Orange on its way...! :-)
On Saturday, June 16, 2012 12:05:30 PM UTC+1, David Grugeon wrote:
Final version including force uppercase input and counter so you know what it
has done
Completed with Ucase and Counter.
Sub UpdateCode()
Dim mySearch As String
Dim myReplaceValue As String
Dim ws As Worksheet
Dim c As Range
Dim Counter As Long
mySearch = UCase(InputBox("Enter the Box Number requiring relocation: "))
myReplaceValue = InputBox("What is the new location? ")
For Each ws In Worksheets
If Len(ws.Name) = 1 Then
For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
If c.Value = mySearch Then
c.Offset(0, 4) = myReplaceValue
Counter = Counter + 1
End If
Next c
End If
Next ws
MsgBox "Made " & Counter & " Replacements", vbOKOnly, "Completed"
End Sub
On 16 June 2012 12:12, David Grugeon wrote:
Sorry - hit the send button too quickly
Option Explicit
Sub UpdateCode()
Dim mySearch As String
Dim myReplaceValue As String
Dim ws As Worksheet
Dim c As Range
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
For Each ws In Worksheets
If Len(ws.Name) = 1 Then
For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
If c.Value = mySearch Then
c.Offset(0, 4) = myReplaceValue
End If
Next c
End If
Next ws
End Sub
On 16 June 2012 12:10, David Grugeon wrote:
Hi Jeanette
Try the following. It assumes that the sheet names of 1 character length
are the ones you want to work with. If this is not so you will need to change
the line
If Len(ws.Name) = 1 Then
to apply a more appropriate test.
On 16 June 2012 10:18, JLO wrote:
Could really use some help with this. I have worksheets A to Z. I'm
searching for data the user has entered via an input box, then changing the
data in cells over to the right with the data the user enters via another input
box. This works perfectly on active sheet. What I need is for the exact same
thing to happen across worksheets A to Z (there being further worksheets that
don't get changed), so some sort of loop is needed. I've tried looping, but
with disastrous results!! I'd really appreciate a solution - I cribbed the
example from elsewhere and tailored it, but I'm stumped to get it to work
across the other sheets. Thanks in advance for all your help! Here's my code:
With ActiveSheet.Range("O:O")
Dim mySearch As String
Dim myReplaceValue
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
Set c = .Find(mySearch, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 4) = myReplaceValue
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
--
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
To unsubscribe, send a blank email to
excel-macros+unsubscr...@googlegroups.com
--
David Grugeon
--
David Grugeon
--
David Grugeon
--
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
Re: $$Excel-Macros$$ change content of cell across multiple worksheets
I’m not sure what you are trying to do but tested finding 1000 in column O and
putting 1200 in the cell 4 columns to the right
Assuming the code provided does work as desired, try this to use findnext in
each sheet/
Sub tryit()
Dim ws As Worksheet
Dim mySearch As String
Dim myReplaceValue
Dim c As Range
Dim firstaddress As String
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
For Each ws In Worksheets
With ws.Columns("o")
Set c = .Find(mySearch, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 3) = myReplaceValue
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next ws
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: JLO
Sent: Friday, June 15, 2012 7:18 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ change content of cell across multiple worksheets
Could really use some help with this. I have worksheets A to Z. I'm searching
for data the user has entered via an input box, then changing the data in cells
over to the right with the data the user enters via another input box. This
works perfectly on active sheet. What I need is for the exact same thing to
happen across worksheets A to Z (there being further worksheets that don't get
changed), so some sort of loop is needed. I've tried looping, but with
disastrous results!! I'd really appreciate a solution - I cribbed the example
from elsewhere and tailored it, but I'm stumped to get it to work across the
other sheets. Thanks in advance for all your help! Here's my code:
With ActiveSheet.Range("O:O")
Dim mySearch As String
Dim myReplaceValue
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
Set c = .Find(mySearch, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 4) = myReplaceValue
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
--
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
To unsubscribe, send a blank email to excel-macros+unsubscr...@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
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ change content of cell across multiple worksheets
David, you're a Star! Thank you so much - didn't expect the counter
addition - very thoughtful of you. It works brilliantly!
Orange on its way...! :-)
On Saturday, June 16, 2012 12:05:30 PM UTC+1, David Grugeon wrote:
> Final version including force uppercase input and counter so you know what
> it has done
>
> Completed with Ucase and Counter.
>
> Sub UpdateCode()
>
> Dim mySearch As String
> Dim myReplaceValue As String
> Dim ws As Worksheet
> Dim c As Range
> Dim Counter As Long
>
> mySearch = UCase(InputBox("Enter the Box Number requiring relocation: "))
> myReplaceValue = InputBox("What is the new location? ")
>
> For Each ws In Worksheets
> If Len(ws.Name) = 1 Then
> For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
> If c.Value = mySearch Then
> c.Offset(0, 4) = myReplaceValue
> Counter = Counter + 1
>
> End If
> Next c
> End If
> Next ws
> MsgBox "Made " & Counter & " Replacements", vbOKOnly, "Completed"
> End Sub
>
> On 16 June 2012 12:12, David Grugeon wrote:
>
>> Sorry - hit the send button too quickly
>>
>> Option Explicit
>>
>> Sub UpdateCode()
>>
>> Dim mySearch As String
>> Dim myReplaceValue As String
>> Dim ws As Worksheet
>> Dim c As Range
>>
>> mySearch = InputBox("Enter the Box Number requiring relocation: ")
>> myReplaceValue = InputBox("What is the new location? ")
>>
>> For Each ws In Worksheets
>> If Len(ws.Name) = 1 Then
>> For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
>> If c.Value = mySearch Then
>> c.Offset(0, 4) = myReplaceValue
>>
>> End If
>> Next c
>> End If
>> Next ws
>> End Sub
>>
>> On 16 June 2012 12:10, David Grugeon wrote:
>>
>>> Hi Jeanette
>>>
>>> Try the following. It assumes that the sheet names of 1 character
>>> length are the ones you want to work with. If this is not so you will need
>>> to change the line
>>>
>>> If Len(ws.Name) = 1 Then
>>>
>>> to apply a more appropriate test.
>>>
>>> On 16 June 2012 10:18, JLO wrote:
>>>
Could really use some help with this. I have worksheets A to Z. I'm
searching for data the user has entered via an input box, then changing
the
data in cells over to the right with the data the user enters via another
input box. This works perfectly on active sheet. What I need is for the
exact same thing to happen across worksheets A to Z (there being further
worksheets that don't get changed), so some sort of loop is needed. I've
tried looping, but with disastrous results!! I'd really appreciate a
solution - I cribbed the example from elsewhere and tailored it, but I'm
stumped to get it to work across the other sheets. Thanks in advance for
all your help! Here's my code:
With ActiveSheet.Range("O:O")
Dim mySearch As String
Dim myReplaceValue
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
Set c = .Find(mySearch, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 4) = myReplaceValue
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
--
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
To unsubscribe, send a blank email to
excel-macros+unsubscr...@googlegroups.com
>>>
>>>
>>>
>>>
>>> --
>>> David Grugeon
>>>
>>
>>
>>
>> --
>> David Grugeon
>>
>
>
>
> --
> David Grugeon
>
--
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 link
Re: $$Excel-Macros$$ Re: change content of cell across multiple worksheets
Provide a file and a complete explanation.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: David Grugeon
Sent: Saturday, June 16, 2012 2:32 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Re: change content of cell across multiple
worksheets
Hi Jeanette
Ah! I expect we have some sort of misunderstanding.
Are the sheets concerned actually called "A" to "Z". If not we may have to
change the macro to run on selected sheets.
Also is the information you are looking for actually in column O?
How is the information formatted? Is it as text or as a number?
Do you realise that the macro leaves the found(old) information as it was and
puts the new information into Column S on the same row.
If you feel you want to send your workbook to me (david at grugeon dot com dot
au) I will see what the problem is but it is entirely up to you if you want to
do this as I understand it may have confidential information which you would
not feel like giving to a stranger.
Best regards
David Grugeon
On 16 June 2012 16:55, JLO wrote:
Hi David
Thank you very much for your quick response! I have copied your code into my
module and run it a few times, but nothing happens (apart from the loop bit
doesn't go crazy like mine did!). I selected worksheets A to Z and did a
FindAll afterwards to check the result, but none of the data has changed.
Please revisit the code you very kindly provided, because I haven't got a clue
whether or not there is anything vital missing!!! Thanks for your help and
such quick response.
On Saturday, June 16, 2012 1:18:41 AM UTC+1, JLO wrote:
Could really use some help with this. I have worksheets A to Z. I'm
searching for data the user has entered via an input box, then changing the
data in cells over to the right with the data the user enters via another input
box. This works perfectly on active sheet. What I need is for the exact same
thing to happen across worksheets A to Z (there being further worksheets that
don't get changed), so some sort of loop is needed. I've tried looping, but
with disastrous results!! I'd really appreciate a solution - I cribbed the
example from elsewhere and tailored it, but I'm stumped to get it to work
across the other sheets. Thanks in advance for all your help! Here's my code:
With ActiveSheet.Range("O:O")
Dim mySearch As String
Dim myReplaceValue
mySearch = InputBox("Enter the Box Number requiring relocation: ")
myReplaceValue = InputBox("What is the new location? ")
Set c = .Find(mySearch, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 4) = myReplaceValue
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
--
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
To unsubscribe, send a blank email to
mailto:excel-macros%2bunsubscr...@googlegroups.com
--
David Grugeon
--
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
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Pl
$$Excel-Macros$$ MIS executive
Hi, We have a opening for MIS - Executive in Bangalore location. Do call my below number on next coming monday. Its Urgent requirement Regards Yogananda Muthaiah Ph : 973 123 7267 -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
You cannot apply autofit only to one cell. It has to apply to a whole column. One cell cannot be a different width than the column. The only way you could achieve that appearance would be to merge cells. Regards David Grugeon On 16 June 2012 18:10, Prashant Pawle wrote: > Dear Team, > > Please help of some macro to find Narrow Cells & Appying Auto fit to only > that cell , sample sheet attached > > Regards, > > Prashant > > -- > -- 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 To > unsubscribe, send a blank email to > excel-macros+unsubscr...@googlegroups.com -- David Grugeon -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
ActiveSheet.usedrange.entirecolumn.autofit Sam Mathai Chacko On Sat, Jun 16, 2012 at 4:28 PM, Rajan_Verma wrote: > Select the Column and press > > ALT + O C A > > ** ** > > * * > > *Regards* > > *Rajan verma* > > *+91 7838100659 [IM-Gtalk]* > > ** ** > > *From:* excel-macros@googlegroups.com [mailto: > excel-macros@googlegroups.com] *On Behalf Of *Prashant Pawle > *Sent:* 16 June 2012 1:40 > *To:* excel-macros@googlegroups.com > *Subject:* $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only > that cell > > ** ** > > Dear Team, > > ** ** > > Please help of some macro to find Narrow Cells & Appying Auto fit to only > that cell , sample sheet attached > > ** ** > > Regards, > > ** ** > > Prashant > > -- > -- 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 To > unsubscribe, send a blank email to > excel-macros+unsubscr...@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 > > To unsubscribe, send a blank email to > excel-macros+unsubscr...@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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
Re: $$Excel-Macros$$ change content of cell across multiple worksheets
Final version including force uppercase input and counter so you know what
it has done
Completed with Ucase and Counter.
Sub UpdateCode()
Dim mySearch As String
Dim myReplaceValue As String
Dim ws As Worksheet
Dim c As Range
Dim Counter As Long
mySearch = UCase(InputBox("Enter the Box Number requiring relocation: "))
myReplaceValue = InputBox("What is the new location? ")
For Each ws In Worksheets
If Len(ws.Name) = 1 Then
For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
If c.Value = mySearch Then
c.Offset(0, 4) = myReplaceValue
Counter = Counter + 1
End If
Next c
End If
Next ws
MsgBox "Made " & Counter & " Replacements", vbOKOnly, "Completed"
End Sub
On 16 June 2012 12:12, David Grugeon wrote:
> Sorry - hit the send button too quickly
>
> Option Explicit
>
> Sub UpdateCode()
>
> Dim mySearch As String
> Dim myReplaceValue As String
> Dim ws As Worksheet
> Dim c As Range
>
> mySearch = InputBox("Enter the Box Number requiring relocation: ")
> myReplaceValue = InputBox("What is the new location? ")
>
> For Each ws In Worksheets
> If Len(ws.Name) = 1 Then
> For Each c In Intersect(ws.Range("O:O"), ws.UsedRange)
> If c.Value = mySearch Then
> c.Offset(0, 4) = myReplaceValue
>
> End If
> Next c
> End If
> Next ws
> End Sub
>
> On 16 June 2012 12:10, David Grugeon wrote:
>
>> Hi Jeanette
>>
>> Try the following. It assumes that the sheet names of 1 character length
>> are the ones you want to work with. If this is not so you will need to
>> change the line
>>
>> If Len(ws.Name) = 1 Then
>>
>> to apply a more appropriate test.
>>
>> On 16 June 2012 10:18, JLO wrote:
>>
>>> Could really use some help with this. I have worksheets A to Z. I'm
>>> searching for data the user has entered via an input box, then changing the
>>> data in cells over to the right with the data the user enters via another
>>> input box. This works perfectly on active sheet. What I need is for the
>>> exact same thing to happen across worksheets A to Z (there being further
>>> worksheets that don't get changed), so some sort of loop is needed. I've
>>> tried looping, but with disastrous results!! I'd really appreciate a
>>> solution - I cribbed the example from elsewhere and tailored it, but I'm
>>> stumped to get it to work across the other sheets. Thanks in advance for
>>> all your help! Here's my code:
>>>
>>> With ActiveSheet.Range("O:O")
>>> Dim mySearch As String
>>> Dim myReplaceValue
>>> mySearch = InputBox("Enter the Box Number requiring relocation: ")
>>> myReplaceValue = InputBox("What is the new location? ")
>>> Set c = .Find(mySearch, LookIn:=xlValues)
>>> If Not c Is Nothing Then
>>> firstaddress = c.Address
>>> Do
>>> c.Offset(, 4) = myReplaceValue
>>> Set c = .FindNext(c)
>>> Loop While Not c Is Nothing And c.Address <> firstaddress
>>> End If
>>> End With
>>>
>>> --
>>> 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
>>>
>>> To unsubscribe, send a blank email to
>>> excel-macros+unsubscr...@googlegroups.com
>>
>>
>>
>>
>> --
>> David Grugeon
>>
>
>
>
> --
> David Grugeon
>
--
David Grugeon
--
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
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
RE: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
Select the Column and press ALT + O C A Regards Rajan verma +91 7838100659 [IM-Gtalk] From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Prashant Pawle Sent: 16 June 2012 1:40 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell Dear Team, Please help of some macro to find Narrow Cells & Appying Auto fit to only that cell , sample sheet attached Regards, Prashant -- -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
$$Excel-Macros$$ Find Narrow Cells & Appying Auto fit to only that cell
Dear Team, Please help of some macro to find Narrow Cells & Appying Auto fit to only that cell , sample sheet attached Regards, Prashant -- -- 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 To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com Cell Auto Fit Macro.xlsm Description: Binary data
Re: $$Excel-Macros$$ Re: change content of cell across multiple worksheets
Hi Jeanette
Ah! I expect we have some sort of misunderstanding.
Are the sheets concerned actually called "A" to "Z". If not we may have to
change the macro to run on selected sheets.
Also is the information you are looking for actually in column O?
How is the information formatted? Is it as text or as a number?
Do you realise that the macro leaves the found(old) information as it was
and puts the new information into Column S on the same row.
If you feel you want to send your workbook to me (david at grugeon dot com
dot au) I will see what the problem is but it is entirely up to you if you
want to do this as I understand it may have confidential information which
you would not feel like giving to a stranger.
Best regards
David Grugeon
On 16 June 2012 16:55, JLO wrote:
> Hi David
> Thank you very much for your quick response! I have copied your code into
> my module and run it a few times, but nothing happens (apart from the loop
> bit doesn't go crazy like mine did!). I selected worksheets A to Z and did
> a FindAll afterwards to check the result, but none of the data has
> changed. Please revisit the code you very kindly provided, because I
> haven't got a clue whether or not there is anything vital missing!!!
> Thanks for your help and such quick response.
>
> On Saturday, June 16, 2012 1:18:41 AM UTC+1, JLO wrote:
>
>> Could really use some help with this. I have worksheets A to Z. I'm
>> searching for data the user has entered via an input box, then changing the
>> data in cells over to the right with the data the user enters via another
>> input box. This works perfectly on active sheet. What I need is for the
>> exact same thing to happen across worksheets A to Z (there being further
>> worksheets that don't get changed), so some sort of loop is needed. I've
>> tried looping, but with disastrous results!! I'd really appreciate a
>> solution - I cribbed the example from elsewhere and tailored it, but I'm
>> stumped to get it to work across the other sheets. Thanks in advance for
>> all your help! Here's my code:
>>
>> With ActiveSheet.Range("O:O")
>> Dim mySearch As String
>> Dim myReplaceValue
>> mySearch = InputBox("Enter the Box Number requiring relocation: ")
>> myReplaceValue = InputBox("What is the new location? ")
>> Set c = .Find(mySearch, LookIn:=xlValues)
>> If Not c Is Nothing Then
>> firstaddress = c.Address
>> Do
>> c.Offset(, 4) = myReplaceValue
>> Set c = .FindNext(c)
>> Loop While Not c Is Nothing And c.Address <> firstaddress
>> End If
>> End With
>>
> --
> 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
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
--
David Grugeon
--
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
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
