Sebas Torres

No se a quien va dirigida la pregunta pero si en tu macro seleccionas la hoja no podrás usarla a menos que este visible Por al comienzo de tu macro Sheets("NombreHoja").visible=true y al final de tu macro Sheets("NombreHoja"). Visible=False Recuerda...

¿Lo qué quieres es esconder hojas de un libro dependiendo de un combobox? De ser asi pegale una ojeada a la respuesta de James Bond en esta pregunta como esconder las-hojas en excel Quizas el pueda darte una mano a adaptar su ejemplo a tu trabajo...

Se puede buscar por los últimos 4 dígitos sin problema, el tema es que la macro que me enviaste no sirve =/ nisiqueira funciona . ¿Mañana cuándo llegue a la oficina te creo una macro para que busque en el registro por el Tag y te devuelva las otras 5...

Tienes 2 maneras de ocultar las hojas 1- Click derecho sobre la pestaña de la hoja y das click a ocultar 2- Entrando a Vba y creando en un modulo una macro el cual seria algo así Sub HojasBienOcultas() Hoja2.Visible =xlSheetHidden Hoja3.Visible...

Yo no probé la macro pero si te funciona bien así como está armada sólo cambia esto If Cells(i, col1) > 0 Or Cells(i, col2) > 0 Then Por esto If Cells(i, col1) > 0 Or Cells(i, col2) > 0 Or Cells(i, col3) > 0 Or Cells(i, col4) > 0 Then

Podrías en lugar de Agruparlas/DesAgruparlas simplemente hacerlas Ocullas/Visibles asignando el rango que deseas ver o ocultar en un Imputbox Sub AgruFilas() On Error GoTo Fin ActiveSheet.Unprotect "excel" Valor =...

En tu misma imagen te decía que SP usaba .. Usa SP1 debe estar ahí el error tendrás que quitar el SP que instalaste y volver a instalar el SP1 Aquí te dejo un vídeo para que veas los pasos https://youtu.be/Mixcg3thng8

Podría ser algo así Sub Pregunta1() Set m = Sheets("menu") Set p1 = Sheets("Pregunta1") fila = p1.Cells(1, 3) If p1.Cells(fila, 1).Value <> "" Then m.Range("G2").Value = p1.Cells(fila, 1) p1.Cells(1, 3) = fila + 1 Else p1.Cells(1, 3) = 1...

Prueba creando esta macro Sub Impresion() Application.PrintCommunication = False With ActiveSheet.PageSetup .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("A1:K34").Select ActiveSheet.PageSetup.PrintArea =...

La función buscarv( búsqueda vertical) funciona así =BUSCARV(A1;[@Descrip];2;FALSO) A1 sería la celda de referencia de tu búsqueda [@Descrip] es la matriz 2 sería la columna de tu matriz que va a devolver FALSO sería para que devuelva un valor exacto...