Hi, Do we have any vba code, The number of cells we are deleting in between data and the same number of cell to be inserted at the end of data. I believe by doing this the range would not change for the next month.
Thanks, Vishwa From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Prince Dubey Sent: Wednesday, June 27, 2012 8:31 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx Hi Vishwa, Please try this i hope this will do your work Public Sub DeleteWeekends() Dim rng As Range Dim rngData As Range With ThisWorkbook.Worksheets("Sheet1") Set rngData = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) For Each rng In rngData If Application.WorksheetFunction.Text(rng.Value, "DDD") = "Sat" Or Application.WorksheetFunction.Text(rng.Value, "DDD") = "Sun" Then rng.Value = "" End If Next End With rngData.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub Regards Prince Dubey On Wednesday, 27 June 2012 00:46:00 UTC+5:30, Viswanathan Yoganathan wrote: Hi all, In the attached excel, I want to delete the week ends whereas at the same time the position of the month should not move. It means the Feb month should start from A34, March month should start from A64. Please advise using VBA macro. Thanks, Vishwa "CONFIDENTIALITY NOTICE: This message and any attachment are confidential and may also be privileged. If you are not the intended recipient of this e-mail you may not copy, forward, disclose or otherwise use it or any part of it in any form whatsoever. If you are not the intended recipient please telephone or e-mail the sender and delete this message and any attachment from your system." -- -- 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<mailto:excel-macros@googlegroups.com> To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com<mailto: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
Delete Blank Cells 1.1.xlsm
Description: Delete Blank Cells 1.1.xlsm
