Sebas Torres

Sub CopiarRangos() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ encaOrigen As Excel.Range, _ rngDestino As Excel.Range Application.ScreenUpdating =...

Prueba sacar el libro de H1 y cuando vayas a usar la macro en lugar de poner "h1" pones "L1.H1"

¿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

Usa esta fórmula si te sirve Office 2010 ( el que yo uso) =SIERROR(CONSULTAV(G1;B1:B5;1;FALSO);SIERROR(CONSULTAV(G1;C1:C5;1;FALSO);SIERROR(CONSULTAV(G1;D1:D5;1;FALSO);" "))) versiones mas recientes...

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 =...

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 =...