Jump to content

Filas y columnas ocultas a criterio de celdas


Recommended Posts

buenas tardes

quisiera ver si me pueden ayudar con esto.

resulta que quiero ocultar automaticamente filas y columnas de base de datos , realiza un resumen

en un reporte, pedo para eso tengo que ir manualmente buscando uno a uno para poder ver lo que nesecito.

quisiera ver si hay forma de realizarlo poniendo, en una celda el valor que quiero que se vea y las demas se oculten

algo como filtro avanzado, pero aplicable de columnas para filas y de filas para columnas.

adjunto un pequeño ejemplo que realize.

gracias

COLUMNAS Y FILAS.zip

Link to post
Share on other sites
Guest
This topic is now closed to further replies.


  • Posts

    • Efectivamente. Lo único que quiero plantear es que yo, por lo que sea, un día decido quitar una fila en naranja, esa ya no se tiene que generar más veces
    • Ahora si que "mas matao", no lo entiendo.  Vamos a intentar definir en palabras lo que hay que hacer. En una hoja, con un número indeterminado de semanas, hay un número indeterminado de códigos resaltados en naranja. Por cada fila resaltada, deben generarse tantas filas como días falten para llegar al fin de la semana corriente y generarse 7 filas en las semanas siguientes. O sea, si tengo 4 semanas y tengo una fila en naranja que es miércoles, se generan las filas de jueves a domingo de esa semana (Jueves,viernes, sábado y domingo) y de lunes a domingo en las siguientes semanas. Si o no.
    • Excelente Gerson, si funciona muchas gracias
    • Hola @Dani2020  Lo que pasa que estas confundiendo las variables, y eso hace que falle Prueba esto, a ver como te va Sub Modificar() Set H1 = Sheets("CERTIFICACION") Set H2 = Sheets("BD") Set BD = H2.Columns("A").Find(H1.[C4], lookat:=xlWhole) If H1.[C4] <> "" Then If Not BD Is Nothing Then Application.ScreenUpdating = False fi = BD.Row H2.Cells(fi, "B") = H1.[C6] H2.Cells(fi, "C") = H1.[C8] H2.Cells(fi, "D") = H1.[C10] H2.Cells(fi, "E") = H1.[C12] H1.Range("C4,C8,C10,C12").ClearContents Application.ScreenUpdating = True Else VBA.MsgBox "Nombre no encontrado", vbCritical, "AyudaExcel" End If End If Set H1 = Nothing Set H2 = Nothing Set BD = Nothing End Sub Supongo que mi código es similar al @tierra_pampa   Saludos a ambos!
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy