How to auto-populate data based on cell value

[ag2686]

Hi All,

Need help.

I have list of product name for which the quality test parameters are fixed. I want to know if we have a dropdown for list of products, how to auto populate the associated list of quality test parameters.
E.g.
Product Names: 5711 & 8105

5711 has below list of parameters which should auto populate upon selecting 5711.

Sp. Gr. @ 25C
% MEA
%NH3

8105 has below list of parameters which should auto populate upon selecting 8105

Gardner color


% Polymer Solids
Sp. Gr. @ 25C
Viscosity 25 C (#2 ,30 rpm)
pH @ 25C
Dimethylamine,ppm
Epichlorohydrin,ppm
1,3-Dichloro-2-propanol
2,3-Dichloro-1-propanol
3-Chloro-1-,2-Propanol,ppm
Total Chlorinated Residual,ppm
I.V
Gel Number

I hope I could explain the query clearly.

Thanks You.

Amit

[Shashi Kant]

Dear Amit,


kindly find attachment, I hope it might helpful

[Logit]

.
Here is a macro method :

Option Explicit

Sub CopyYes()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim sTarget As Worksheet

    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Sheet2")
    Set sTarget = ActiveWorkbook.Worksheets("Sheet1")
    
    sTarget.Range("A3:B1000").Value = ""
    Application.ScreenUpdating = False
    j = 3     ' Start copying to row 1 in target sheet
    For Each c In Source.Range("A2:A1000")   ' Do 1000 rows
        If c = sTarget.Range("A2").Value Then
           Source.Rows(c.Row).Copy sTarget.Rows(j)
           j = j + 1
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

Sub clrall()
Dim sTarget As Worksheet
Application.ScreenUpdating = False
    Set sTarget = ActiveWorkbook.Worksheets("Sheet1")
    sTarget.Range("A3:B1000").Value = ""
Application.ScreenUpdating = True
End Sub