Dante Amor

Puedes poner tu macro.

H o l a: La macro funciona bien, habría que revisar cómo tienes los datos en la hoja. Puedes enviar tu archivo que tiene el problema para revisar los datos en las hojas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

H o l a: Pon la siguiente macro en tu botón: Sub Zoom() 'Por.Dante Amor If ActiveWindow.Zoom = 100 Then ActiveWindow.Zoom = 50 Else ActiveWindow.Zoom = 100 End If End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)

H o l a: Puedes enviarme tu archivo con tu formulario y explicarme con un ejemplo lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “” y el título de esta pregunta. ':) S a l u d o s . D a n t e A m o r

H o l a: Te anexo la macro Sub Insertar1() 'Por.Dante Amor On Error Resume Next cs = Array("Y20", "AR20", "BK20", "CD20", _ "F42", "Y42", "AR42", "BK42", "CD42", _ "F62", "Y62", "AR62", "BK62", "CD62", _ "F84", "Y84", "AR84", "BK84", "CD84", _...

H o l a: Te anexo la macro Sub Reporte() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("REPORTE") h1.UsedRange.Offset(2, 0).ClearContents u2 = 3 For Each h In Sheets If h.Name <> h1.Name Then umax = 3 For j = 1 To...

H o l a: No entiendo por qué envía el error. Lo estuve probando y lo que pude detectar es que hay que poner los mismos parámetros en ambos métodos. Cambia esta macro Sub ProgramaCuentaRegresiva2() CuentaRegresiva2 = Now + TimeValue("00:00:01")...

H o l a: ¿Pero cómo sabes que tiene datos? Envíame tu archivo para revisarlo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Manuel Escalona” y el título de esta pregunta.

Te anexo la macro actualizada Sub autosuma() 'Act.Por.Dante Amor 'Autosuma Macro Range("L2:L" & Range("H" & Rows.Count).End(xlUp).Row) = "=+RC[-1]+RC[-4]" End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)

H o l a: La idea sería cargar todos los registros en un listbox que en la columna B tengan "SI", pero también tienes que cargar en el listbox el número de fila de cada registro, esto para saber cuál registro se cargó. Luego capturas tus datos en los...