H Friends,
I HAVE TO RENAME 72 SHEETS AND I AM USING BELOW CODES FOR RENAME SHEET.
BUT A1 RANGE CHARACTER TOO LONG I WANT RENAME EACH SHEETS HAS 20 CHARACTER
OF RANGE A1.
PLS CHANGE THE FORMULA AND SEND ME BACK.
THANKS IN ADVANCE.
Sub RenameTabsHandlingNulls()
' Renames all worksheet tabs
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)*
If
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 noorain.ans...@gmail.comwrote:
Dear Amresh,
Please try it..
Sub RenameTabsHandlingNulls()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If
, 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 Default
Dim
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 columns.
: 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
partiuclar column if Zero value found we need to delete
To: 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.Count).End(xlUp).Row
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 prabhugate...@gmail.com wrote:
Hi Friends,
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)
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
10 matches
Mail list logo
