modificar rango
Publicado por Juanito (1 intervención) el 30/08/2018 17:17:25
Baje una macro con un CombBox que se autompleta con una lista, haciendo una búsqueda en base a lo que se escribe sin importar el orden de las palabras y las letras. a la cual no le pude modificar el rango que es de a1 ;a131 si alguien pudiera ayudarme por favor.
Código para mostrar el formulario al elegir una celda:
Código para mostrar el formulario al elegir una celda:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es B13:B18 se muestra el Formulario.
If Not Intersect(Target, Range("B9:B14")) Is Nothing Then
UserForm1.Show 'En todo caso no se muestra.
Else
End If
End Sub
Código del formulario:'1)Al iniciar
Private Sub UserForm_Initialize()
Me.Height = 83
End Sub
'2)Al escribir texto en el TextBox
Private Sub TextBox1_Change()
If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then
Me.Height = 83
Else
Me.Height = 160
Dim rng As Range, eSet Lista = Range("lstProductos")
With Me
.ListBox1.Clear
For Each i In Lista.ValueIf (i <> "") * (i Like "*" & .TextBox1.Value & "*") Then
.ListBox1.AddItem i
End If
Next i
End With
End If
End Sub
'3)Aceptar el valor elegido y capturarlo en la celda activa
Private Sub CommandButton2_Click()
Cuenta = Me.ListBox1.ListCount
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) = True Then
ActiveCell.Value = Me.ListBox1.List(i)
End If
Next i
Unload Me
End Sub
'4)Cerrar el formulario
Private Sub CommandButton1_Click()
Unload Me
End Sub
Valora esta pregunta
0