Uy meron pala hehe! Ayun di pa kasi sure kung itutuloy namin eh. Pero kung sakali post ko dito. May nagawa na akong isang quick reference guide para sa team ko. Bale clickable options sa main sheet tapos mag auto populate lang yung result depende sa na click na line. Eto yung code:
Const iTocCOl As Integer = 2
Const NVIDIA_Quadro_2000Row As Integer = 9
Const NVIDIA_NVS_295Row As Integer = 4
Const NVIDIA_NVS_450Row As Integer = 5
Const NVIDIA_Quadro_600Row As Integer = 7
Const NVIDIA_Quadro_FX_380Row As Integer = 20
Private Sub Clear_Click()
Range("D:L").Clear
End Sub
'Private Sub Worksheet_Activate()
'Columns("D:L").Clear
'End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim iRow As Integer
iRow = ActiveCell.Row
If Not ActiveCell.Column = iTocCOl Then
Exit Sub
End If
Select Case iRow
Case NVIDIA_Quadro_2000Row
Columns("D:L").Clear
Application.GoTo reference:="Quadro_2000"
GoTo Paste
Case NVIDIA_Quadro_600Row
Columns("D:L").Clear
Application.GoTo reference:="Quadro_600"
GoTo Paste
Case NVIDIA_NVS_450Row
Columns("D:L").Clear
Application.GoTo reference:="NVS_450"
GoTo Paste
Case NVIDIA_NVS_295Row
Columns("D:L").Clear
Application.GoTo reference:="NVS_295"
GoTo Paste
Case NVIDIA_Quadro_FX_380Row
Columns("D:L").Clear
Application.GoTo reference:="FX_380"
GoTo Paste
Case Else
Exit Sub
End Select
Paste:
Selection.Copy
Range("D2").Select
ActiveCell.PasteSpecial xlPasteAll
Columns(iTocCOl).Interior.ColorIndex = xlNone
Range("A1").Select
Application.CutCopyMode = False
Cells(iRow, iTocCOl).Interior.ColorIndex = 36
End Sub
Draft palang to. Di pa final kung anu mga ilalagay sa result saka yung criteria. Yung isang project ko kasi system configurator; mobo+CPU+RAM., etc. Medyo matagal lang pag gather ng data.