Bioclimatic formu için

Private Sub ComboBox_MotorCinsi_Change()

If ComboBox_MotorCinsi.Column(0) = "SOMFY" Then

[Bioclimatic!L23] = [Parametreler!B5].Value

End If

End Sub

Pergole formu için

Private Sub ComboBox_MotorCinsi_Change()

If ComboBox_MotorCinsi.Column(0) = "SOMFY" Then

[Pergole!D34] = [Parametreler!c3].Value

[Pergole!D36] = [Parametreler!B4].Value

End If

End Sub

yazarak dener misin?