دوست آپ ایک کام کریں۔۔۔
ایکسل کی شیٹ میں جو کام آپ چاہتے ہیں۔۔۔
وہ کر کے ہمیں یہاں پر فائل شئیر کر دیں۔۔۔باقی کوئی بھی ممبر آپ کو فارمولا لگا کر دے دے گا۔۔۔اوکے
دوست آپ ایک کام کریں۔۔۔
ایکسل کی شیٹ میں جو کام آپ چاہتے ہیں۔۔۔
وہ کر کے ہمیں یہاں پر فائل شئیر کر دیں۔۔۔باقی کوئی بھی ممبر آپ کو فارمولا لگا کر دے دے گا۔۔۔اوکے
[FONT="Jameel Noori Nastaleeq"][CENTER][COLOR="Blue"][SIZE="5"][B]Coming Soon...:)[/B][/SIZE][/COLOR][/CENTER][/FONT]
May be i understand correctly Follow th below
1. Right click on sheet1
2. click on view code
3. Open hone wali window m below code paste kar dain. ye jab bhe ap is m koi value enter karain ga ya automatic add karta jae ga. agar ap is m wese bhe enter karian ga tu ya usi value ko add kar da ga. so be carefull. Please test and reply
Code:Private Sub Worksheet_Change(ByVal Target As Range) Dim dblVal As Double If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub On Error Resume Next Application.EnableEvents = False With Range("A1") dblVal = Val(.Value) Application.Undo .Value = dblVal + Val(.Value) End With Application.EnableEvents = True End Sub
بھائی میرا خیال بھی یہ ہے کہ اس سے ان کا مقصد حل ہوجائے گاSyar
اگر ان کو یہ بات سمجھ آ گئی تو۔
بہت اچھے انداز میں جواب تحریر کیا ہے آپ نے۔
O I get it thanks syar bhai problem solved thanks all who help me.
lakin aik masla hai ye formula sirf 1 cell me apply ho rha hai me chahta hon k ye pory column me aik sath apply ho
But me ye janana chahta hon k ye jo process hum ne use kiya hai ye kia hai or es ka kia purpose hai
hmmm
as per your PM replace the code with this one. But remember always select one cell at a time other wise its will return error.
2nd is ko VBA ya MACRO programming kehte hain. Is k zarye ap bohat zyada kam kar sakte hain jese ap ne example dekhe ap ki query k leye. Ye language ap ko seekhne pare ga aur koi VBA ka expert he sekha sakta ha. M tu khod seekh raha hon.
regards,Code:Private Sub Worksheet_Change(ByVal Target As Range) Dim dblVal As Double, rngInterest As Range, lngCount As Long On Error GoTo ExitPoint Application.EnableEvents = False Set rngInterest = Intersect(Target, Range("A1:A20")) lngCount = Application.WorksheetFunction.CountA(rngInterest) If lngCount Then dblVal = Val(rngInterest(1).Value) Application.Undo If lngCount = 1 Then rngInterest.Value = dblVal + Val(rngInterest.Value) Else MsgBox "Multiple Updates Not Permitted", vbCritical, "Computer Says No" End If End If ExitPoint: Set rngInterest = Nothing Application.EnableEvents = True End Sub
syar bro jise k me ne pm kiya k name show ni ho rha es ki kia solution hai
ایک ایک سیل کو منتخب کر کے چیک کریں ۔ممکن ہے کہ کالم کے رینج کی وجہ سے شو نہیں ہورہا ہوگا۔آپ نے سیل کو منتخب کرکے کیا ہے یا رینج کو؟
Brother Coding Mukhtalif Qism ki hote ha.
1. Module ya User Define Function (UDF) hote hain.
2. Event Programming hote hai.
UDF ya MACRO ki jab coding ki jate ha tu MACRO m name ata ha jab k event programming ka MACRO ka name nahee ata . Jab k Event programming m jab koi kam hota ha tab coding kam karta ha, Jese k ap ka case ma ha agar aap apni coding ko dekhain tu saf lekha ha k worksheet_change (Byval) yani worksheet m koi change ho tu code work karta ha. Umeed ha thoda bohat samajh gai honge.
regards
Ap apna page Excel page attach kar de
Nice
Bookmarks