Dante Amor

Te anexo otra macro. Sub Libro_de_Salarios() 'Por.Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("Formato") h1.Cells.Clear ' Empleado = InputBox("Nombre del Empleado : ") If Empleado = "" Then Exit Sub For Each h2 In Sheets Select...

Esta sería una opción Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5 Application.Wait Now + TimeValue("00:00:05") Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10 Esta es otra opción Declare Sub Sleep Lib "kernel32" (ByVal...

No entiendo bien lo que necesitas. Si quieres abrir un txt en excel, puedes hacerlo con una macro, puede ser así: Sub Macro9() 'por.DAM ruta = ThisWorkbook.Path Workbooks.OpenText Filename:="archivo.txt" End Sub O lo que quieres es ejecutar un bat y...

Te anexo la macro para que lea todos los libros de la carpeta que selecciones. También va a leer todas las hojas que tenga cada libro. Sumará el valor que tenga cada hoja en la celda C17 El resultado te lo pondrá en la celda C5. Pon la macro en tu...

Podrías enviarme tu archivo con ejemplos de tus 2 hojas, me perdí un poco en tu explicación y la información que pusiste en los ejemplos, no entendí si hay que buscar en la columna A o en la B. También en el ejemplo que me envíes puedes completar el...

Dices que tienes un botón, pregunta: ¿Ya tienes la macro para pedir la fecha? ¿O quieres la macro para que te pida la fecha? Esto que pusiste no lo entiendo: "me gustaría que apareciera un mensaje con ventana que aparezca todo los 31 días del mes y...

Dentro del mismo módulo pon lo siguiente For I = LBound(MiArchivo) To UBound(MiArchivo) + 1 Nombrelibro = LTrim(Mid(MiArchivo(I), 1 + InStrRev(MiArchivo(I), "\"))) Workbooks(Nombrelibro).Close Next Nota: No estoy seguro si debe llevar el "+ 1", pero...

Veo que tienes varios contadores. En primer lugar en UBound(miarchivo), ya tienes el número de archivo seleccionados Después tienes esto Archivo = Archivo + 1, en esta variable ya tienes el total de libros abiertos Seguido de esto: Fin = Archivo, en...

Te anexo la macro, antes de ejecutarla tienes que completar algunos datos. - Cambia "Hoja1" por el nombre de la hoja origen. - Cambia "Libro4Destino" por el nombre del otro libro - Cambia "C:\Documents and Settings\DAMOR\Mis documentos\" por la ruta...

Para lo primero que pides, tienes que aregar la instrucción: parte2. Send, quedaría así Sub correo() Range("m6:o20").Copy Set parte1 = CreateObject("outlook.application") Set parte2 = parte1.createitem(olmailitem) parte2.to = "[email protected]" parte2.cc...