Tengo este código que me marca error, su función es autocompletar el texto ubicado en la col M de la 3 a al 50,, pero da error en el for i, dice : no coinciden loa tipos
la i la tengo definida como range
private Sub textBox2_change()
Hoja5. Unprotect
Me. ListBox1. Clear
For i = 3 To 50
If (Range("M" & i).Value) Then
Me.ListBox1.Visible = True
Me.ListBox1.AddItem Range("M" & i).Value
End If
Next i
TextBox2.text = UCase(TextBox2.text)
TextBox2.SelStart = Len(TextBox2)
End Sub
Private Sub ListBox1_click()
TextBox2.text = ListBox1.List(ListBox1.ListIndex)
Me.ListBox1.visisble = False
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo este código que me marca error, su función es autocompletar el texto ubicado en la col M de la 3 a al 50,, pero da error en el for i, dice : no coinciden loa tipos
la i la tengo definida como range
private Sub textBox2_change()
Hoja5. Unprotect
Me. ListBox1. Clear
For i = 3 To 50
If (Range("M" & i).Value) Then
Me.ListBox1.Visible = True
Me.ListBox1.AddItem Range("M" & i).Value
End If
Next i
TextBox2.text = UCase(TextBox2.text)
TextBox2.SelStart = Len(TextBox2)
End Sub
Private Sub ListBox1_click()
TextBox2.text = ListBox1.List(ListBox1.ListIndex)
Me.ListBox1.visisble = False