Microsoft Excel Problem ! Reply Fast

[Rahym.Zulfiqar.Aly]

Neechay snap shot laga diya hai ussi may problem likhi hui hai .....
plz reply fast

[Rahym.Zulfiqar.Aly]

....

[Mubashir Aziz]

Aik tareeqa to Function ka hay jo aap module main ja kar likh saktay hain issay hum UDF (User Defined Function) bhi boltay hain ......

App Alt+F11 karain aur phir Insert>Module aur neechay walay fucntion ko paste kar dain.
Aab Alt+Q aur save.

Aab sheet main kissi bhi cell main aap =SheetName(A1) likh dain aap kay pass sheet name aa jay ga .....

Function hay

Function SheetName(rAnyCell)
    Application.Volatile
    SheetName = rAnyCell.Parent.Name
End Function

Aab main aap ko worksheet FORMULA kissi bhi jagah par likh dain ......

=REPLACE(CELL("Filename",A1),1,FIND("]",CELL("filename",A1)),"")

[Rahym.Zulfiqar.Aly]

Aik tareeqa to Function ka hay jo aap module main ja kar likh saktay hain issay hum UDF (User Defined Function) bhi boltay hain ......

App Alt+F11 karain aur phir Insert>Module aur neechay walay fucntion ko paste kar dain.
Aab Alt+Q aur save.

Aab sheet main kissi bhi cell main aap =SheetName(A1) likh dain aap kay pass sheet name aa jay ga .....

Function hay

Function SheetName(rAnyCell)
    Application.Volatile
    SheetName = rAnyCell.Parent.Name
End Function

Aab main aap ko worksheet FORMULA kissi bhi jagah par likh dain ......

=REPLACE(CELL("Filename",A1),1,FIND("]",CELL("filename",A1)),"")

Thank You
Problem Solved

[Mubashir Aziz]

You welcome g ....