aaronph
03-15-2016, 01:20 AM
Hi VBA experts, appreciate much if you could help me out a bit down here.
I have this bunch of code that is initially saved in this manner.. and I'm kinda stuck how to proceed further.
Sub SaveFinalQuote()
Sheets("Database").Select
Range("C13").Formula = "=Quote!$C$9"
Range("C14").Formula = "=NOW()"
Range("C15").Formula = "=IF(C14<>"""",""Y"",""N"")"
Range("C1:C15").Select
Selection.Copy
Range("C1:C15").PasteSpecial xlPasteValues
Sheets("Quote").Select
MsgBox "Final quotation is updated successfully."
End Sub
15638
The picture shows Database tab.
General idea is to look within the entire unique identifier row (row A) in Database tab for data specified in cell L50 in Quote tab, L50 cell in Quote tab is a dropdown list encompassing all Unique Identifiers..
After which, with the unique identifier, go down the column and update cell 13 with another cell data (Quote!$C$9), update 14 with date/time stamp (=now()) and update cell 15 with "Y" to reflect completion.
Hope you guys could help me out, thank you
I have this bunch of code that is initially saved in this manner.. and I'm kinda stuck how to proceed further.
Sub SaveFinalQuote()
Sheets("Database").Select
Range("C13").Formula = "=Quote!$C$9"
Range("C14").Formula = "=NOW()"
Range("C15").Formula = "=IF(C14<>"""",""Y"",""N"")"
Range("C1:C15").Select
Selection.Copy
Range("C1:C15").PasteSpecial xlPasteValues
Sheets("Quote").Select
MsgBox "Final quotation is updated successfully."
End Sub
15638
The picture shows Database tab.
General idea is to look within the entire unique identifier row (row A) in Database tab for data specified in cell L50 in Quote tab, L50 cell in Quote tab is a dropdown list encompassing all Unique Identifiers..
After which, with the unique identifier, go down the column and update cell 13 with another cell data (Quote!$C$9), update 14 with date/time stamp (=now()) and update cell 15 with "Y" to reflect completion.
Hope you guys could help me out, thank you