Filtrar inf. De hoja 1 mediante un combobox para (dante Amor)

estimado dante necesito realizar un filtro de la informacion de la hoja1 mediante un combobox y poder copiar la informacion a la hoja2

1 Respuesta

Respuesta
1

Esta es la macro para los filtros

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    h2.Cells.Clear
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    h1.Range("A1:H" & u).AutoFilter Field:=2, Criteria1:=ComboBox9
    h1.Range("A1:H" & u).Copy h2.Range("A1")
    h1.AutoFilterMode = False
    h2.Select
    Application.ScreenUpdating = True
    MsgBox "Registros filtrados y copidados"
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo combino dos macros que hacen lo que necesito?

Tengo que aplicar dos macros a muchos archivos en excel, Pero es laborioso estar haciendo manualmente algunos procesos para las macros. ¿Cómo fusiono estas dos macros? ¿Se requiere de hacer una nueva macro? Me refiero a las macros de las dos...
1 respuesta

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Macro para realizar busqueda en otra hoja,copiar una celda de la fila encontrada si cumple condicion

Tengo 3 hojas. La hoja 1 tenemos producto, destino, bodega y cantidad buscamos en la hoja 3 el distino de la hoja 1 Si esa bodega encontrada tiene stock(el stock se encuentra en la hoja 2) para cumplir lo pedido copiamos a la hoja 1 la bodega de la...
1 respuesta

Macro para juntar la información de 4 archivos de excel en una nueva hoja y de 1 archivo aparte en otra

Tengo un macro que juntas hojas pero no cumple con lo que necesito. Me gustaría un macro que me permitiera seleccionar 4 archivos (cambian cada vez) y junte los datos de las primeras hojas de estos archivos en la primera hoja del libro donde estoy...
1 respuesta