Actividad pública reciente
Ha valorado "Excelente" la respuesta
Como usar la funcion filedatetime en varias celdas a la vez.
No me queda tan claro tu dilema pero entiendo que en la columna "A" tienes las rutas completas de archivos y quieres aplicarles "FileDateTime" y que el resultado aparezca en la columna "C" en la fila correspondiente. De ser así lo primero que debes...
Ha valorado "Excelente" la respuesta
Saber si existe PDF, Por Valor dado en una celda de excel.
H o l a: Te anexo la macro. En las celdas deberás tener el nombre del archivo con todo y extensión, por ejemplo: "facturas.pdf" Cambia en la macro "\\DAMOR\Users\damor\Documents\Docs\Soporte expertos\Blog\Archivos\" Por tu ruta de red. La macro...
Voto positivo a la respuesta
Actualizar cambios en un libro compartido
Sigue las Instrucciones para poner la macro 1. Abre tu aarchivo de excel 2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11 3. En el menú elige Insertar / Módulo 4. En el panel del lado derecho copia las 2 macros Sub guardar()...
Voto positivo a la respuesta
Notificaciones de excel por correo
Ha empezado a seguir a
Ha valorado "Excelente" la respuesta
Como crear un evento para que al guardar un archivo y exista ese nombre, me de una alerta de reemplazar.
Te anexo la macro para revisar si existe el archivo, si ya existe, te pregunta si quieres reemplazarlo. Sub SaveWithVariableFromCell() Dim SaveName As String SaveName = ActiveSheet.Range("L6").Text ruta = "C:\Users\pc-01\facturas\consecutivo\" If...
Ha valorado "Excelente" la respuesta
Como copiar el valor de dos celdas(ejm: A1,B2) al cambiar el valor de una en especifica (ejm C3).
La macro copia las celdas G16 y B5, solamente seleccionando la celda G3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(False, False) = "G3" Then If Target.Count > 1 Or Target.Value = "" Then Exit Sub ' uc = Cells(2,...
Ha valorado "Excelente" la respuesta
Como crear un bucle para una celda en especifica.
H o l a: Pon la siguiente macro en un botón: Sub Consecutivo() 'Por.Dante Amor Set celda = Sheets("Hoja3").Range("C3") If celda.Value >= 10 Then celda.Value = 1 Else celda.Value = celda.Value + 1 End If End Sub Sigue las Instrucciones para un botón y...
Ha valorado "Excelente" la respuesta
Como crear una macro, para imprimir por una impresora no predeterminada y luego regresar a la predeterminada.
H o l a: Te anexo el enlace para establecer impresoras, en la respuesta encontrarás las indicaciones para establecer las impresoras. Cómo establecer una de las 2 impresoras en una impresión con vba excel? Otra opción más práctica y más sencilla; pon...


