Snasui Excel Forum

Code: Select all

Private Sub CommandButton4_Click()
Dim lng As Long
Answer = MsgBox("Are you sure you want to delete data from database?", 4 + 48, "Delete database")
    If Answer = 6 Then
        'ListBox1.Items.Remove (ListBox1.SelectedItem)
        lng = Application.Match(ListBox1.Value, Worksheets("Emission Factor_User").Range("D:D"), 0)
        Worksheets("Emission Factor_User").Rows(lng).Delete
        Unload Me    
    ElseIf Answer = 7 Then
        Unload Me
        Exit Sub    
    End If
End Sub

Code: Select all

Private Sub ComboBox2_Change()
With Worksheets("emission factor_User")
   TextBox3.Value = Application.VLookup(Me.ComboBox2, .Range("D9:IV46"), 6, False)
   TextBox4.Value = Application.VLookup(Me.ComboBox2, .Range("D9:IV46"), 9, False)
   TextBox5.Value = Application.VLookup(Me.ComboBox2, .Range("D9:IV46"), 10, False)
   TextBox6.Value = Application.VLookup(Me.ComboBox2, .Range("D9:IV46"), 8, False)
End With
End Sub

Code: Select all

Private Sub ComboBox1_Change()
    If Range("xMaterialInex") = "Custom" Then
        UserForm1.Show
        Range("xMaterialInex") = UserForm1.ComboBox2.Value
        Range("xMaterialInex").NumberFormat = "General "" (Custom)"""
        Sheets("Emission Factor_User").Range("xMaterialInex2").Value = UserForm1.TextBox3.Value
    End If
    If Range("xMaterialInex") = "<--select data-->" Then
         Sheets("Emission Factor_User").Range("xMaterialInex2").Value = 4.1256
    ElseIf Range("xMaterialInex") = "Plastic" Then
        Sheets("Emission Factor_User").Range("xMaterialInex2").Value = 0.8743
    ElseIf Range("xMaterialInex") = "Paper" Then
        Sheets("Emission Factor_User").Range("xMaterialInex2").Value = 1.345
    ElseIf Range("xMaterialInex") = "Glass" Then
        Sheets("Emission Factor_User").Range("xMaterialInex2").Value = 0.2103
    End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
  'UserForm2.ComboBox2.Value = Worksheets("INPUT_STANDARD").Range("cb_Liner_Body1_1")
  With Worksheets("Emission Factor_User")
    .Range("xMaterialInex") = UserForm1.ComboBox2
    .Range("xMaterialInex2") = UserForm1.TextBox3
  End With
    Unload Me
End Sub