, 2012 10:00 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ MACRO CODE REQUIRED
Dear Amresh,
Please try it..
Sub RenameTabsHandlingNulls()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then the tab is named as &
Dear Amresh,
Please check it if this code is not working send a sample sheet
On Fri, Mar 30, 2012 at 8:30 PM, NOORAIN ANSARI wrote:
> Dear Amresh,
>
> Please try it..
>
>
> Sub RenameTabsHandlingNulls()
> ' Renames all worksheet tabs with each worksheet's cell A1 contents.
> 'If cell A1 has no co
Dear Amresh,
Please try it..
Sub RenameTabsHandlingNulls()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then the tab is named as "Default"
*Dim sh As String*
For i = 1 To Sheets.Count
*sh = Left(Worksheets(i).Range("A1").Value, 20)*
: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ ***Macro Code Required to delete Zero value cell
and its row***
Hi Prabhu
Try
Sub Mtest()
Dim LR As Long, i As Long
LR = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
'LR = Range("P" & Rows.C
Hi Prabhu
Try
Sub Mtest()
Dim LR As Long, i As Long
LR = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
'LR = Range("P" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
If Cells(i, 16).Value = 0 Then Cells(i, 16).EntireRow.Delete
Next i
Applicat
glegroups.com] On
Behalf Of Prabhu
Sent: Thursday, August 11, 2011 9:45 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ ***Macro Code Required to delete Zero value cell
and its row***
Hi Mahesh,
It is deleting entire row wherever zero appearing. But i required in a
partiucl
Hi Mahesh,
It is deleting entire row wherever zero appearing. But i required in a
partiuclar column if Zero value found we need to delete entire row.
Ex. If we use base as "P" column, In 13th row of "P" column contains "0"
value it has to delete entire 13th Row. It should not search other colu
Hi
Try
Sub Mtest()
Dim LR As Long, r As Long
LR = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LR To 1 Step -1
If Application.WorksheetFunction.CountIf(Rows(r), "=0") = 1 Then
Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub
XLS S, I would tend to believe that progressing from small to large
indices for a row will not solve the problem.
A more conservative approach would be the classic reverse look that
looks like this
Sub DelRowWithZeroes()
Dim lngLoop As Long
With Worksheets("Sheet1").Range("P3:P13")
Sub Delete()
On Error Resume Next
With Range("A1:A5")
.EntireRow.Hidden = False
For i = 1 To .Rows.Count
If WorksheetFunction.Sum(.Rows(i)) = 0 Then
.Rows(i).EntireRow.Delete = True
End If
Next i
End With
End Sub
On Thu, Jul 28, 2011 at 9:54 PM, Prabhu wrote:
> Hi Friends,
>
>
> I Required Mac
10 matches
Mail list logo
