$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-27 Thread Lalit_Mohan
Hi Vishwa, Hope it works for you Sub BlanksAtEnd() Dim rngRangeAs Range Dim rngStartAs Range Dim rngEnd As Range Dim varMonth() As Variant Dim lngLoo

Re: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-27 Thread Prince Dubey
Hi Lalit, there is no difference between both the solution, It is due to by mistake. regards Prince dubey. On Wednesday, 27 June 2012 19:14:08 UTC+5:30, Lalit_Mohan wrote: > Hi Prince, > > Sorry for asking but could you please explain the deference in both of > your solution. > > Regar

RE: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-27 Thread Viswanathan Yoganathan
@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

Re: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-27 Thread ╰» ℓαℓιт мσαнη
Hi Prince, Sorry for asking but could you please explain the deference in both of your solution. Regards, Lalit Mohan On Wed, Jun 27, 2012 at 8:32 AM, Prince Dubey wrote: > Hi Vishwa, > > > Try This > > > > Public Sub DeleteWeekends() >     Dim rng As Range >     Dim rngData As Ran

$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Prince Dubey
Hi Vishwa, Try This 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 Applicat

$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Prince Dubey
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

$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Lalit_Mohan
Hi Vishwa, I forgot to mention in my last post, use this code in existing file in which weekend date deletion code already exist. just apply the blank row deletion procedure and use it as i show you. Regards, Lalit Mohan On Wednesday, 27 June 2012 00:46:00 UTC+5:30, Viswanathan Yoganathan

$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Lalit_Mohan
Hi Vishwa, Sub DeleteBlank() On Error Resume Next ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0: On Error GoTo -1: Err.Clear End Sub Above is the function need to call in the button click event in sheet1 as shown below. Private Sub CommandBut

RE: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Viswanathan Yoganathan
Hi, I need the date should be like how I arranged in the column B. Thanks, Vishwa From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Vish Sent: Wednesday, June 27, 2012 1:19 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Delete

Re: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Vish
Hi Vishwa, Hope this helps. Please let me know. Thanks, Vish -- -- 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 atte

RE: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Viswanathan Yoganathan
Saturday and Sunday From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Vish Sent: Wednesday, June 27, 2012 1:00 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: Delete Blank Cells.xlsx Hi Vishwa, By Weekends you mean Saturday and Sunday or

$$Excel-Macros$$ Re: Delete Blank Cells.xlsx

2012-06-26 Thread Vish
Hi Vishwa, By Weekends you mean Saturday and Sunday or Only Sunday? Thanks, Vish -- -- 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