Marcial C. C.

Coloca al principio de las macros esta instrucción: If ActiveSheet.Name <> "Ingreso" Then Exit Sub Esto hace que cuando se vayan a ejecutar estas macros, si la hoja activa, no es Ingreso, sale de la macro y no hace nada. Si te ha valido la respuesta.

Lo más probable es que en los ordenadores que abres ese archivo con macros, no tengan las mismas referencias que tienes en el que lo has creado. Para solucionarlo, mira en el editor de VBA en el menú Herramientas, la opción Referencias Las...

Jose Luis, ¿no te vale con una fórmula en la columna C? De todas formas si lo que necesitas es código, aquí lo tienes: Sub sumar() 'Por Marcial Castro' For f = 5 To Range("G" & Rows.Count).End(xlUp).Row Cells(f, 3) =...

Para los pares menores que 62, utiliza en validación de datos: =Y(A1<60;RESIDUO(A1;2)=0) y para los impares =Y(B1<79;RESIDUO(B1;2)=1) Debes ponerlo en fórmula personalizada. Si te ha valido la respuesta.

Asocia esta macro a un botón para ver su uso. En vez de "/" o "." utiliza "\" para que no tengas problemas en que se confunda con una fecha. Private Sub CommandButton21_Click() con1 = Val(Mid([a1], 1, InStr(1, [a1], "\") - 1)) con2 = Val(Mid([a1],...

Coloca esta instrucción al principio de tus macros Application.ScreenUpdating = False y esta al final Application.ScreenUpdating = True Si te ha valido la respuesta.

Hazlo así: Sub desfiltrarColumnas() If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End Sub Si te ha valido la respuesta.

Coloca esto en el evento Terminate del formulario Private Sub UserForm_Terminate() Application.Visible = True End Sub Mediante Apis, se puede poner un botón de minimizar al formulario, pásame tu correo y te mando el código para hacerlo. Si te ha...

Te he subido este archivo en el que tienes más de 500. Son los que yo utilizo, espero que te valgan. https://www.dropbox.com/s/x7gal6j0038mg7a/Iconos.rar?dl=0

Esta macro hace eso: Private Sub Worksheet_Change(ByVal Target As Range) 'Por Marcial Castro' If Not Intersect(Target, Range("D:D")) Is Nothing Then Range("B" & Target.Row) = Date End If End Sub Si te ha valido la respuesta.