Hello Team,
I need a Macro or Excel help for my question/doubt.
i have a format A2:J58, The user using this format, dont want to delete & insert any columns or rows in my current format. They can enter the some text / number in particular cells in the format.
Please help me on the same...
i have written some macro for locking some particular cells which is already filled my condition.. in below..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PPFR
End Sub
Public Sub PPFR()
Range("$B$2").Value = "FROM"
Range("$B$3").Value = "Name of TM (Ser) / ASI"
Range("$A$2").Value = "PRODUCT PERFORMANCE FEEDBACK REPORT"
Range("$E$3").Value = "Contact Details"
Range("$G$4").Value = "FOR TVS MOTOR COMPANY use only"
Range("$G$5").Value = "PPFR No: "
Range("$G$8").Value = "Dcode:"
Range("$G$9").Value = "Dname:"
Range("$G$10").Value = "Place:"
Range("$B$5").Value = "Territory:"
Range("$B$6").Value = "AO:"
Range("$B$7").Value = "TO"
Range("$B$8").Value = "PHL, Sales & Service Department "
Range("$B$9").Value = "TVS Motor Company"
Range("$B$10").Value = "Post box No.4, Harita"
Range("$B$11").Value = "HOSUR"
Range("$B$12").Value = "MODEL:"
Range("$B$13").Value = "ENG No:"
Range("$B$14").Value = "FRM No."
Range("$F$13").Value = "Date of sale:"
Range("$F$14").Value = "Date of repair:"
Range("$I$14").Value = "KMs:"
Range("$B$15").Value = "Free service completed (Till date of Complaint)"
Range("$F$15").Value = "I"
Range("$G$15").Value = "II"
Range("$H$15").Value = "III"
Range("$I$15").Value = "IV"
Range("$J$15").Value = "V"
Range("$G$7").Value = "Dealer detail"
Range("$E$16").Value = "Date"
Range("$E$17").Value = "Km reading"
Range("$B$18").Value = "Previous Service History details"
Range("$B$20").Value = "1st service"
Range("$E$20").Value = "2nd service"
Range("$H$20").Value = "3rd service"
Range("$B$21").Value = "Complaint"
Range("$C$21").Value = "Observation"
Range("$D$21").Value = "Action"
Range("$E$21").Value = "Complaint"
Range("$F$21").Value = "Observation"
Range("$G$21").Value = "Action"
Range("$H$21").Value = "Complaint"
Range("$I$21").Value = "Observation"
Range("$J$21").Value = "Action"
Range("$B$25").Value = "4th service"
Range("$E$25").Value = "5th service"
Range("$H$25").Value = "6th service"
Range("$B$26").Value = "Complaint"
Range("$C$26").Value = "Observation"
Range("$D$26").Value = "Action"
Range("$E$26").Value = "Complaint"
Range("$F$26").Value = "Observation"
Range("$G$26").Value = "Action"
Range("$H$26").Value = "Complaint"
Range("$I$26").Value = "Observation"
Range("$J$26").Value = "Action"
Range("$B$30").Value = "Sl.No."
Range("$C$30").Value = "Part No."
Range("$E$30").Value = "Description"
Range("$I$30").Value = "Qty"
Range("$J$30").Value = "Replaced / Repaired"
Range("$B$38").Value = "Customer complaint:"
Range("$B$40").Value = "Description of complaint:"
Range("$B$42").Value = "Observation & Analysis: "
Range("$B$51").Value = "Action taken:"
Range("$B$54").Value = "Suggestions for improvements:"
Range("$B$56").Value = "LRNo./Docket details:"
Range("$B$57").Value = "Courier Name:"
Range("$H$58").Value = "Signature of TM (Ser) / ASI"
End Sub
Thanks!
Regards,
Senthil.
I need a Macro or Excel help for my question/doubt.
i have a format A2:J58, The user using this format, dont want to delete & insert any columns or rows in my current format. They can enter the some text / number in particular cells in the format.
Please help me on the same...
i have written some macro for locking some particular cells which is already filled my condition.. in below..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PPFR
End Sub
Public Sub PPFR()
Range("$B$2").Value = "FROM"
Range("$B$3").Value = "Name of TM (Ser) / ASI"
Range("$A$2").Value = "PRODUCT PERFORMANCE FEEDBACK REPORT"
Range("$E$3").Value = "Contact Details"
Range("$G$4").Value = "FOR TVS MOTOR COMPANY use only"
Range("$G$5").Value = "PPFR No: "
Range("$G$8").Value = "Dcode:"
Range("$G$9").Value = "Dname:"
Range("$G$10").Value = "Place:"
Range("$B$5").Value = "Territory:"
Range("$B$6").Value = "AO:"
Range("$B$7").Value = "TO"
Range("$B$8").Value = "PHL, Sales & Service Department "
Range("$B$9").Value = "TVS Motor Company"
Range("$B$10").Value = "Post box No.4, Harita"
Range("$B$11").Value = "HOSUR"
Range("$B$12").Value = "MODEL:"
Range("$B$13").Value = "ENG No:"
Range("$B$14").Value = "FRM No."
Range("$F$13").Value = "Date of sale:"
Range("$F$14").Value = "Date of repair:"
Range("$I$14").Value = "KMs:"
Range("$B$15").Value = "Free service completed (Till date of Complaint)"
Range("$F$15").Value = "I"
Range("$G$15").Value = "II"
Range("$H$15").Value = "III"
Range("$I$15").Value = "IV"
Range("$J$15").Value = "V"
Range("$G$7").Value = "Dealer detail"
Range("$E$16").Value = "Date"
Range("$E$17").Value = "Km reading"
Range("$B$18").Value = "Previous Service History details"
Range("$B$20").Value = "1st service"
Range("$E$20").Value = "2nd service"
Range("$H$20").Value = "3rd service"
Range("$B$21").Value = "Complaint"
Range("$C$21").Value = "Observation"
Range("$D$21").Value = "Action"
Range("$E$21").Value = "Complaint"
Range("$F$21").Value = "Observation"
Range("$G$21").Value = "Action"
Range("$H$21").Value = "Complaint"
Range("$I$21").Value = "Observation"
Range("$J$21").Value = "Action"
Range("$B$25").Value = "4th service"
Range("$E$25").Value = "5th service"
Range("$H$25").Value = "6th service"
Range("$B$26").Value = "Complaint"
Range("$C$26").Value = "Observation"
Range("$D$26").Value = "Action"
Range("$E$26").Value = "Complaint"
Range("$F$26").Value = "Observation"
Range("$G$26").Value = "Action"
Range("$H$26").Value = "Complaint"
Range("$I$26").Value = "Observation"
Range("$J$26").Value = "Action"
Range("$B$30").Value = "Sl.No."
Range("$C$30").Value = "Part No."
Range("$E$30").Value = "Description"
Range("$I$30").Value = "Qty"
Range("$J$30").Value = "Replaced / Repaired"
Range("$B$38").Value = "Customer complaint:"
Range("$B$40").Value = "Description of complaint:"
Range("$B$42").Value = "Observation & Analysis: "
Range("$B$51").Value = "Action taken:"
Range("$B$54").Value = "Suggestions for improvements:"
Range("$B$56").Value = "LRNo./Docket details:"
Range("$B$57").Value = "Courier Name:"
Range("$H$58").Value = "Signature of TM (Ser) / ASI"
End Sub
Thanks!
Regards,
Senthil.
