Filtro que busca por comunidad
Disculpa que te moleste otra vez
Estoy tratando de modificar el filtro para buscar por comunidad pero no se donde esta el error.
Te envie el archivo
Y esto es lo que estoy tratando de modificar
Private Sub CommandButton2_Click()
Set hm = Sheets("datosm")
'
hm.Cells.Clear
Sheets("datos").Rows(1).Copy hm.Rows(1)
hs = Array("datos", "datos2", "datos3", "datos4")
For h = LBound(hs) To UBound(hs)
hoja = hs(h)
For i = 2 To Sheets(hoja).Range("A" & Rows.Count).End(xlUp).Row
For j = Sheets(hoja).Columns("B").Column To Sheets(hoja).Columns("B").Column Step 2
If Sheets(hoja).Cells(i, j) = Val(TextBox4) Then
u = hm.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(hoja).Rows(i).Copy hm.Rows(u)
hm.Cells(u, j).Interior.ColorIndex = 4
End If
Next
Next
Next
u = hm.Range("A" & Rows.Count).End(xlUp).Row
With hm.Sort
.SortFields.Clear
.SortFields.Add Key:=hm.Range("B2:B" & u), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange hm.Range("A1:X" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ListBox1.RowSource = Empty
ListBox1.RowSource = hm.Name & "!A2:X" & u
Para hacer el filtro yo ingreso el nombre de la comunidad en el textbox4 y luego con el CommandButton2 ejecuto el filtro.
1 respuesta
gracias
Buen día
tal vez podes hacer que me reconozca mayúsculas y minisculas en la búsqueda
Gracias
Para buscar por comunidad solamente tienes que buscar en la columna B, te anexo el código
Private Sub CommandButton2_Click()
Set hm = Sheets("datosm")
'
hm.Cells.Clear
Sheets("datos").Rows(1).Copy hm.Rows(1)
hs = Array("datos", "datos2", "datos3", "datos4")
For h = LBound(hs) To UBound(hs)
hoja = hs(h)
For i = 2 To Sheets(hoja).Range("A" & Rows.Count).End(xlUp).Row
'For j = Sheets(hoja).Columns("B").Column To Sheets(hoja).Columns("B").Column Step 2
If UCase(Sheets(hoja).Cells(i, "B")) = UCase(TextBox4) Then
u = hm.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(hoja).Rows(i).Copy hm.Rows(u)
hm.Cells(u, "B").Interior.ColorIndex = 4
End If
'Next
Next
Next
u = hm.Range("A" & Rows.Count).End(xlUp).Row
With hm.Sort
.SortFields.Clear
.SortFields.Add Key:=hm.Range("B2:B" & u), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange hm.Range("A1:X" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ListBox1.RowSource = Empty
ListBox1.RowSource = hm.Name & "!A2:X" & u
End Sub
