ھارون اعظم

السلام علیکم،

مجھے اپنی ایک ایکس ورک بک کی ساری شیٹس، جو کہ 400 کے لگ بھگ تھیں، کو ایک ساتھ ری نیم (Rename) کرنا تھا۔ اور جو نام دینے تھے وہ بھی الگ الگ تھے۔

پہلے تو ایک ایک کرکے ری نیم (Rename) کرنے کا سوچا، لیکن پھر گوگل پر سرچ کرکے مندرجہ ذیل Macro سے کام چلایا۔

Sub RenameSheets()
Dim sh As Worksheet, sh1 As Worksheet
Dim sName As String
For Each sh In Worksheets
sName = sh.Range("A1")
If Len(Trim(sName)) > 0 Then
If Len(sName) > 31 Then sName = Left(sName, 31)
Set sh1 = Nothing
On Error Resume Next
Set sh1 = Worksheets(sName)
On Error GoTo 0
If sh1 Is Nothing Then
sh.Name = sName
Else
MsgBox "On sheet: " & sh.Name & vbNewLine & _
sName & " is already in use"
End If
Else
MsgBox sh.Name & "!A1 is empty"
End If
Next
End Sub

یاد رہے کہ Cell A1 میں جو کچھ بھی لکھا ہوگا، اس کے پہلے 31 حروف اس شیٹ کے نام کے طور پر لئے جائیں گے۔ اگر Cell A1 خالی ہوگا، تو یہ پیغام آئے گا کہ Cell A1 خالی ہے۔ اگر دو شیٹس میں ایک ہی نام لکھا ہو، تو پہلی شیٹ کو ری نیم کرکے دوسری شیٹ کو ایسے ہی چھوڑ دیا جائے گا۔

امید ہے ایکسل سے دلچسپی رکھنے والے دوستوں کے لئے یہ Macro فائدہ مند رہے گا۔

__________________


http:// haroonazam.wordpress.com

ھارون اعظم کا بلاگ۔

احمد بلال

یقینا یہ میکرو بہت فائدہ مند ہو گا لوگوں کے لئے۔شیرنگ کا بہت بہت شکریہ

wajee

بہت زبردست ھارون بھائی کام کی چیز ہے یہ

ھارون اعظم

آپ نے چیک کیا ؟

wajee

ہاں میں نے چیک کیا ہے یہ کام کر رہا ہے

ننھا بچہ

زبردست ٹپ۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔۔