Hi people,
I have big, big problem and i need to fix it very fast.
Every time i run user form and select value in combobox 4 i get run time error 13 type mismatch at part of code witch i will mark in code i post.
could somebody help me please
I have big, big problem and i need to fix it very fast.
Every time i run user form and select value in combobox 4 i get run time error 13 type mismatch at part of code witch i will mark in code i post.
Code:
Private Sub ComboBox4_Change()
[B][COLOR=red][SIZE=3][COLOR=yellow]TextBox12.Text = Application.VLookup(ComboBox4.Value, Sheets("BazaEvidencija").Range("ax6:bd13"), 7, False)[/COLOR][/SIZE][/COLOR][/B]
End Sub
Private Sub UserForm_Initialize()
With Worksheets("BazaEvidencija")
Set Rng = .Range(.Range("ax6"), .Range("ax6").End(xlDown))
End With
Set Rng = Rng
ComboBox4.RowSource = Rng.Address(external:=True)
With Worksheets("BazaEvidencija")
Set Rng = .Range(.Range("au6"), .Range("au6").End(xlDown))
End With
Set Rng = Rng
ComboBox3.RowSource = Rng.Address(external:=True)
End Sub
Private Sub CommandButton1_Click()
Dim red As Long
Dim ws As Worksheet
Set ws = Worksheets("BazaEvidencija")
red = ws.Cells(Rows.Count, 15).End(xlUp).Offset(1, 0).Row
ws.Cells(red, 10).Value = TextBox11.Value
ws.Cells(red, 15).Value = ComboBox4.Value
ws.Cells(red, 16).Value = TextBox1.Value
ws.Cells(red, 17).Value = TextBox2.Value
ws.Cells(red, 19).Value = ComboBox3.Value
ws.Cells(red, 20).Value = TextBox3.Value
ws.Cells(red, 22).Value = TextBox4.Value
ws.Cells(red, 24).Value = TextBox5.Value
ws.Cells(red, 26).Value = TextBox6.Value
ws.Cells(red, 28).Value = TextBox7.Value
ws.Cells(red, 30).Value = TextBox8.Value
ws.Cells(red, 32).Value = TextBox9.Value
ws.Cells(red, 34).Value = TextBox10.Value
ComboBox4.Value = ""
ComboBox3.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
End Sub
Private Sub CommandButton2_Click()
End
End Subcould somebody help me please
