Macro para un dato filtrado
Mi problema es el siguiente, tengo una base de datos y para canalizar la información que necesito filtro la información. El caso es que necesito crear una macro en Excel que me permita cambiar el valor de alguno de esos datos, pero solo los filtrados.. No que me cambie todos los datos, solo por ejemplo si en el filtro me sale que a-b(nombre cualquiera) vale 100 cambiar que a-b valga otra cantidad que yo especifique pero que no me cambie los valores de a-a, a-c etc.. Es decir que modifique solo lo que tengo filtrado... Por sus respuestas y soluciones muchas gracias
1 respuesta
Respuesta de Elsa Matilde
1
Te adjunto un ejemplo para que veas cómo moverte por un rango de celdas filtradas y puedas adaptarlo a tu necesidad.
Está pensada para un botón de la hoja donde está la lista.
Espero te sirva
Private Sub CommandButton1_Click()
Dim midato As Integer
Dim celdita As Range
Dim Unacelda As String
Dim conta As Integer, cantidad As Integer
'se guarda el valor a buscar, que se encuentra en un combo, en una variable
midato = ComboBox1.Value
'se aplica AutoFiltro
'se establece el filtro para la columna 2 (B)
Range("B1").Select
Selection.AutoFilter
'se selecciona una celda del rango para obtener la región
Unacelda = "B2"
'se recorre la región obtenida buscando el dato que será igual al valor del ComboBox
For Each celdita In Range(Unacelda).CurrentRegion.SpecialCells(xlCellTypeVisible)
If celdita.Value = midato Then
'si lo encuentra modifica la celda siguiente y finaliza la búsqueda
celdita.offset(0,1).value = mivalor
Exit Sub
End If
'se repite la búsqueda en las otras celdas
Next celdita
End Sub
Está pensada para un botón de la hoja donde está la lista.
Espero te sirva
Private Sub CommandButton1_Click()
Dim midato As Integer
Dim celdita As Range
Dim Unacelda As String
Dim conta As Integer, cantidad As Integer
'se guarda el valor a buscar, que se encuentra en un combo, en una variable
midato = ComboBox1.Value
'se aplica AutoFiltro
'se establece el filtro para la columna 2 (B)
Range("B1").Select
Selection.AutoFilter
'se selecciona una celda del rango para obtener la región
Unacelda = "B2"
'se recorre la región obtenida buscando el dato que será igual al valor del ComboBox
For Each celdita In Range(Unacelda).CurrentRegion.SpecialCells(xlCellTypeVisible)
If celdita.Value = midato Then
'si lo encuentra modifica la celda siguiente y finaliza la búsqueda
celdita.offset(0,1).value = mivalor
Exit Sub
End If
'se repite la búsqueda en las otras celdas
Next celdita
End Sub
