Put this code into your summary sheet and tell me how is it working ?
Private Sub Worksheet_Change(ByVal Target As Range)
R = Target.Row
c = Target.Column
If Not Intersect(Target, Range(d8:g15)) Is Nothing Then
If Target.Value Cells(R + 17, c) Then
MsgBox You have exceed the limit -
Dear Sir,
It works ,,, Thanks A Lot!!
Regards,
Kumar Bhanushali
Re: $$Excel-Macros$$ Message POP up
Mandeep Baluja
to:
excel-macros
23-06-15 05:49 PM
Sent by:
excel-macros@googlegroups.com
Cc:
kumar.bhanushali
From:
Mandeep Baluja rockerna...@gmail.com
To:
Welcome :D
On Tuesday, June 23, 2015 at 6:03:56 PM UTC+5:30, Kumar Bhanushali wrote:
*Dear Sir,*
It works ,,, Thanks A Lot!!
*Regards, Kumar Bhanushali*
*Re: $$Excel-Macros$$ Message POP up*
*Mandeep Baluja * to: excel-macros
23-06-15 05:49 PM
Sent by:
Dear Sir,
D8:G15 is values derived from weighbridge report.
for D8, if it reaches / exceeded to the value specified in D25.
the message will display, showing qty exceeded and with difference of
both.
Example if D8 = 61000, which is greater than the value specified in D25,
the message will shows
Dear Sir,
there is a problem, that it restricts the qty.
I don't want to restrict the qty, i just want to show the message with qty
balance.
Regards,
Kumar Bhanushali
Re: $$Excel-Macros$$ Message POP up
Mustapha LMIDMANI
to:
excel-macros
23-06-15 01:35 PM
Sent by:
Hey uday,
M Sure you want the data of this type confirm once ?? as i given in the
attachment as sample, You can easily do this but after to follow some
specific steps and then can be achieved with the help of macro.
Regards,
MandeepBaluja
Learningzmypassion.
As far i understand your Query It should be if E8 8000 than you want to
show the message that your values exceed the maximum value. And Confirm One
thing Qty left is coming from which criteria.
Regards,
Mandeep Baluja
On Tuesday, June 23, 2015 at 3:41:15 PM UTC+5:30, Mandeep Baluja
Put that code in your Summary sheet bro, You want a message box if the the
value of E8 is greater than 8000 ?? M I right ??
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(e8)) Is Nothing Then
If Target.Value 8000 Then
MsgBox You have exceed the limit
Right click your sheet and add this code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(e8)) Is Nothing Then
If Target.Value 8000 Then
MsgBox You have exceed the limit
End If
End If
End Sub
Regards,
MandeepBaluja
Learningzmypassion.
PFA !!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(D8:G15, E8)) Is Nothing Then
If Target.Value 8000 Then
MsgBox You have exceed the limit
End If
End If
End Sub
On Tuesday, June 23, 2015 at 4:04:38 PM UTC+5:30, Kumar Bhanushali wrote:
*Dear
Dear Sir,
It's working, but I same code for multiple cells.
like from D8:D15, E8:E15, F8:F15 G8:G15.
Regards,
Kumar Bhanushali
Re: $$Excel-Macros$$ Message POP up
Mandeep Baluja
to:
excel-macros
23-06-15 03:58 PM
Sent by:
excel-macros@googlegroups.com
Cc:
kumar.bhanushali
11 matches
Mail list logo