Posts by Sathia.N.G.
-
-
-
Re: Case message code that content extra value at in front and back.
Hello Pike,
It's worked perfectly.
But, if press 'delete' from keyboard, having Runtime Error '13', Type mismatch & the screen go to 'Developer' for the VB code.
This can cause other user to able to view and edit.
1. How can we stop that? to not triggered the error.
2. After all the project complete, how to lock the 'Developer' or VBA to lock from view and also editing. ( Only able to edit by required password).Thank you.
-
Re: Case message code that content extra value at in front and back.
Hi,
I still having problem with executing the codes.
I happened when add extra cases in a coding raw. (Run Time Error '13').
And when input following case value, also highlighted yellow line with (Run Time Error '13').
And also error triggered once delete the cell ("C3:E3").
Please correct my mistakes.
Thank you.Code
Display MorePrivate Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, r As Range Dim cVal As String Set A = Range("C3:E3") If Intersect(Target, A) Is Nothing Then Exit Sub For Each r In Target cVal = LCase(r.Value) Select Case True 'List of all possible answers Case LCase(Target.Value) Like "*ibm1a", "*ibm1b", "*ibr5c", "*icf3j", "*imr3k", "*ixr86", "*ivr4e", "*imr2j", "*simcr" MsgBox r.Value & " cannot perform rework, " & _ vbNewLine & "due to having special step after clean and before this, " & _ vbNewLine & "thus rework is NOT possible." & _ vbNewLine & "Must escalate to Engineer if rework is required.", vbOKOnly, "Non-Standard Process..." Case LCase(Target.Value) Like "ibm1a.##", "ibm1b.##", "ibr5c.##", "icf3j.##", "imr3k.##", "ixr86.##", "ivr4e.##", "imr2j.##", "simcr.##" MsgBox r.Value & " cannot perform rework, " & _ vbNewLine & "due to having special step after clean and before this, " & _ vbNewLine & "thus rework is NOT possible." & _ vbNewLine & "Must escalate to Engineer if rework is required.", vbOKOnly, "Non-Standard Process..." Case LCase(Target.Value) Like "*ibm1a.##", "*ibm1b.##", "*ibr5c.##", "*icf3j.##", "*imr3k.##", "*ixr86.##", "*ivr4e.##", "*imr2j.##", "*simcr.##" MsgBox r.Value & " cannot perform rework, " & _ vbNewLine & "due to having special step after clean and before this, " & _ vbNewLine & "thus rework is NOT possible." & _ vbNewLine & "Must escalate to Engineer if rework is required.", vbOKOnly, "Non-Standard Process..." Case LCase(Target.Value) Like "*sathia", "*kausi", "*devnah" MsgBox r.Value & " is Low Dose/Scan recipe., " & _ vbNewLine & "Check '.abt' file for actual partial implant condition. " & _ vbNewLine & "Required to perform Low Scan Top-up Procedure." & _ vbNewLine & "Consult with Process Engineer if any inquiries.", vbOKOnly, "Low Dose/Scan Recipes..." UserForm5.Show Case LCase(Target.Value) Like "sathia.##", "kausi.##", "devnah.##" MsgBox r.Value & " is Low Dose/Scan recipe., " & _ vbNewLine & "Check '.abt' file for actual partial implant condition. " & _ vbNewLine & "Required to perform Low Scan Top-up Procedure." & _ vbNewLine & "Consult with Process Engineer if any inquiries.", vbOKOnly, "Low Dose/Scan Recipes..." UserForm5.Show Case LCase(Target.Value) Like "*sathia.##", "*kausi.##", "*devnah.##" MsgBox r.Value & " is Low Dose/Scan recipe., " & _ vbNewLine & "Check '.abt' file for actual partial implant condition. " & _ vbNewLine & "Required to perform Low Scan Top-up Procedure." & _ vbNewLine & "Consult with Process Engineer if any inquiries.", vbOKOnly, "Low Dose/Scan Recipes..." UserForm5.Show Case Else 'do nothing End Select Next r End Sub
-
Re: Case message code that content extra value at in front and back.
I got it.
One more requirement to add help button at only one of the Case.
The button need to show userform5 that I paste the picture to show as help to show the procedure of the process whenever needed at same above case2.Thank you.
-
Re: Case message code that content extra value at in front and back.
Hi Pike,
Grate compact codes u provide me.
I added to complete with:
Select Case True
Case Target.Value Like "*ibm1a*"Now a bit adjustment needed.
I am using lower case letters.
cVal = LCase(r.Value)
How about to modify code to accept both, Upper and Lower Case? -
-
Re: Case message code that content extra value at in front and back.
I learn it. Thanks a lot.
But I still have a problem to popup msgbox...
Code
Display MoreOption Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, r As Range Dim cVal As String Set A = Range("C3:E3") If Intersect(Target, A) Is Nothing Then Exit Sub For Each r In Target cVal = LCase(r.Value) Select Case True Case Target.Value Like "*ibm1a[.##]" MsgBox r.Value & " cannot perform rework, " & _ vbNewLine & "due to having special step after clean and before this, " & _ vbNewLine & "thus rework is NOT possible." & _ vbNewLine & "Must escalate to Engineer if rework is required.", vbOKOnly, "Non-Standard Process..." Case Else 'do nothing End Select Next r End Sub
-
-
Already Created vb code to triggered MsgBox when only key-in particular value at particular cell.
My question is,
How to auto capture/populate only few particular words that with extra long words?
Example:-Currently i am using
If like this, when only key-in exact ibm1a, will pop-up the MsgBox.but there is possible to add value with extra word like "glbibm1a" or "ibm1a.05" or "glbibm1a.03".
Note:- It could be different word/number infornt, maybe "glb...." , "b....", "2...".
But there is always pointer value at behind, like ".01" , ".05" , ".12".Now I wrote every single value like:- "glbibm1a" , "ibm1a.05" , "glbibm1a.05"
But it would be changed in future by changing the (product) value version. (like .06 or .07 or .08)
It will be possible to miss to capture/popup the MsgBox.TQ.
-
Re: Change Title for MsgBox
It is possible to add button in Msgbox for 'Help' at same Msg condition as above, but only for 2nd Case.
I modified 2nd Case with different Massege, as below...
CodeCase [/COLOR]"sathia 10755", "kausi 10855", "devnah 10955", "ast 11111", "ast 22222", "ast 55555", "ast 77777", "ast 99999" MsgBox r.Value & ", you're great " & r.Address, vbOKOnly, "Reminder" Case "a11111", "a12345", "b98765", "b99999", MsgBox r.Value & ", is special condition apply " & _ vbNewLine & "Refer to 'PROCEDURE' button for help.", r.Address, vbOKOnly, "Alert"
'Only for this 2nd Case, I need to show .pdf file to show.(everyone share this workbook, so the .pdf file not save in any particular drive)
if can, something like paste at any msgbox or userform, once PROCEDURE button clicked. -
Re: Change Title for MsgBox
How about to Bold and change color for some words in a sentence,
including Title and Message. -
Re: Change Title for MsgBox
I got it and the problem solved for this.
(can help on my the other forum that I posted earlier with title
'Search combo box, show following 2 raw data into TextBox and get checkbox selection.'Thank you.
-
-
Re: Change Title for MsgBox
Hi LUKE M,
Thanks a lot...
It's working perfectly with optimized space.I need one more help...
How about if I want to put mixture of Lower or Upper letters with numbers? -
Code
Display MorePrivate Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, r As Range Set A = Range("C3:E3") If Intersect(Target, A) Is Nothing Then Exit Sub For Each r In Target If LCase(r.Value) = "sathia 10755" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "kausi 10855" Then MsgBox "Kausi 10855, you're great " & r.Address End If If LCase(r.Value) = "Devnah 10955" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "Ast 11111" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "Ast 22222" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "Ast 55555" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "Ast 77777" Then MsgBox r.Value & ", you're great " & r.Address End If If LCase(r.Value) = "Ast 99999" Then MsgBox r.Value & ", you're great " & r.Address End If Next r End Sub
Above is to pop-up message box as reminder, when only particular value key-in. (There are more lines. I just delete another 10 value)
Message box shows, but with title 'Microsoft Excel'.
How can change the title from 'Microsoft Excel' to 'Reminder:'Thank you.
-
-
forum.ozgrid.com/index.php?attachment/66541/Hi,
Refer to my attachment,
Process need to be rework. Whenever anyone do this job, have to sign and another person to verify and acknowledge.
Rework procedure not always repeat from start process.
Maybe from step = 100 back to 025 or from 075 back to 074...
That's why combobox to search from which step to which step.
(In my attachment, haven't create 'TO' textbox)1. combobox to search 'From'.
2. Following textbox to show all three raw data for 'From' (because every step have three raw data)
3. Another Combobox to select 'To'.
5. Following textbox to show all three raw data 'To' (because every step have three raw data)
4. Checkbox to choose what are activities going to do.
5. After key-in 'Done by:' (Name) and press 'Done",
Want to update data in same raw of No. selection "From".
ExampleFrom Step 050 want to repeat from 045.
at same raw for Step 050, at column F (Activities / Acknowledgements) (maybe activities in Column F and Signing name in column G)
(update as below:-)
""Bactrack to rework | Qhold to top-up | Thold to merge"" (<-- this items from checkbox, so need auto align column to the size) ""Done by:- Martin ""
""(Auto update Date and time)""Same raw at Step 045 (for another person buddy check)
(update as below:-)
""Bactrack to rework | Qhold to top-up | Thold to merge""
""Verify by:- Mira ""
""(Auto update Date and time)""Thank you