Pregunta en
Microsoft Excel
Agregar a esta macro la hora, para no pisar la foto anterior
Necesitaría agregar a esta macro la hora, para no pisar la foto anteriormente hecha. Sub TomaFoto() ' Código para TOMAR FOTO ActiveSheet.Unprotect Password:="1" Application.DisplayAlerts = False On Error Resume Next Sheets("FOTO1").Activate Dim Izq...
Pregunta en
Microsoft Excel
Cuando en una celda sea el valor inferior a un rango de celdas
Con las opciones de excel, no me deja. Habría alguna fórmula para que cuando: "A7" Cambiase el color de la celda Cuando el valor sea inferior a todas las celdas de rango: "C7:Q7"
Pregunta en
Microsoft Excel
Celda personalizada que salga el cero
Necesitaría que solamente en una celda determinada que me interese, le salga el cero, cuando en la operación sea cero. No me interesa que se haga en toda la hoja
Pregunta en
Microsoft Excel
En esta macro cambiar nombre agregando día de ejecución y destino
En esta macro: Sub Guardar_como_Complemento() 'Guardar como Complemento 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook ruta = l1.Path & "J:\MODULOS\" arch = l1.Name nomb = Left(arch,...
Pregunta en
Microsoft Excel
Añadir a esta macro, pegado especial y guardar Word
En esta macro: On Error Resume Next Dim Wordapn As Object 'el archivo Word se guarda en la misma ruta que el archivo Excel DatoFechador = Format(Now(), "dd-mm-yyyy") + " " + Format(Now, "H M Am/Pm") 'establecemos una variable para la fecha ruta =...
Pregunta en
Microsoft Excel
No puedo acoplar esta fórmula de otro libro
Necesito acoplar esta fórmula de otro libro: =SUMA(SUMAR.SI('Cuenta'!$C$3:C$2022;"Abono";'Cuenta'!$E$3:$E$2022)) El nombre de la hoja es: Cuenta Y el libto donde se encuentra es en el libro: Libro1.xlsm
Pregunta en
Microsoft Excel
Agregar a continuación del nombre de la hoja la fecha
En esta macro: Sub Tomar_Foto() ActiveSheet.Unprotect Password:="1" Application.DisplayAlerts = False On Error Resume Next Sheets("FOTO1").Activate Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Application.DisplayAlerts = False...
Pregunta en
Microsoft Excel
No soy capaz de acoplar esta macro en hoja
Tengo esta macro en la hoja: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Set r = Range("D136:D450") If Not Intersect(Target, r) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub ' cuenta =...
Pregunta en
Microsoft Excel
Al escribir en un rango de celdas, que me detecte si hay duplicado
Al escribir en este rango de celdas: Range("D136:D450").Select Me detecte si hay un duplicado al escribir en alguna celda de ese rango
Pregunta en
Microsoft Excel
Ajustar esta macro a los parámetros nuevos
Tengo esta maro: Private Sub Worksheet_Activate() 'Por.Dante Amor ActiveSheet.Unprotect Password:="1" Application.EnableEvents = False Set h = Sheets("Diario Venta") 'limpiar colores h.Range("D4:AH15").Interior.ColorIndex = xlNone...