Buenos días, expertos por favor me pueden dar una mano con una macro donde me debe mostrar un mensaje si la boleta fue impresa con anterioridad, para que me diga por lo menos se esta duplicando con la impresión de dicha boleta algo así, de lo contrario que me imprima normalmente, por favor los agradecería un montón. Adjunto el archivo Planilla-de-remuneraciones-y-boletas-de-pago-1-1.xlsm

Buen día expertos, por favor tengo dos libros una de ella llamado KOREA y la otra BASE, dentro del libro korea tengo dos hojas una de ella llamado data y otra también korea, lo que necesito hacer es desde el libro korea y la hoja korea al pulsar el botón actualizar me actualice a la hoja data del mismo libro y también a la hoja2 de libro base. Dentro del libro korea la hoja data esta oculto la cual me sirve para mostrar los datos a la hoja korea a través de una validación de datos, muchas gracias por sus aportes a cada una de ustedes. Archivos.rar

Quisiera me ayudaran en esto. Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula. Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7. Private Sub maxtxt() Set Lcl = Range("B3") Set rg = Range("C7") rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1) fecha = Format(Now - 1, "mmdd") Application.ScreenUpdating = False Range("C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, …

hola gente del foro,les hago la siguiente consulta:he visto un codigo,con el cual encuentra la ruta del archivo por mas que la cambie de dir o de pc y quiero grabarlo como un archivo pdf en el mismo dir y con el mismo nombre del archivo en uso (pero como pdf)adjunto ejemplo Range("A1:F16").Select 'aca elijo el rango que quiero "grabar" ActiveSheet.PageSetup.PrintArea = "$A$1:$F$16" 'esto tal vez no sea necesario ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ RUta = ThisWorkbook.Path & "\" 'asi hallo la ruta del archivo nombre = "Libro.pdf" 'Nombre del archivo(es necesario?)[/CODE] Libro1.zip

Buenas noches. Necesito ayuda de un asunto que en su día el usuario FGV me ayudó, pero me cambiaron el pc y no soy capaz. Necesito que en una casilla de Excel, reduzca de 10 dígitos a 8 cada vez que cambie de celda y vuelva a meter números en la siguiente. Esto me lo indico FGV:(muy agradecido con el sin duda,,) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Column = 1 Then Target = Left(Target, 8) End Sub Y lo que necesito adicionalmente, es que si por ejemplo estoy en la celda a1, con los 8 dígitos correctos en su casilla, al dar al enter pase a la celda a9 por ejemplo. Que orden se da para sa…

Buenas tardes. Estimados necesito de su ayuda con lo siguiente: tengo una macro que guarda un PDF cada vez que encuentra un salto de Pagina (ActiveSheet.HPageBreaks). Le agregué Subtotales al archivo con el cual estoy trabajando y hay clientes cuyo reporte solo es de 1 página y la macro guarda un PDF con los datos de ese cliente, pero otros tienen reportes que van desde 2 hasta x cantidad de páginas y la macro me guarda tantos PDF como páginas tiene ese cliente. La idea es modificar la macro para que pueda guardar el PDF con la cantidad de hojas que tenga al encontrar un Subtotal (Ubicados en la columna "B") y no al encontrar un salto de página. Acá el código que ten…

Saludos a todos, solicitando su apoyo y/o ayuda para modificar la macro que tengo en el archivo de ejemplo que adjunto, lo que que trato hacer en la hoja Datos columna A tengo varios ID, si coinciden con los ID_2 columna L, copia los datos a la columna F?:I? según ID, hasta ahí funciona bien la macro, el problema es cuando en los ID_2 no existen en la columna A (ID), no se como agregar esa parte del código a la macro para que inserte la fila y acomode los datos. Los ID de la columna A están ordenados. La cantidad de datos es variable. Agradezco de antemano sus comentarios y/o ayuda. Saludos Ejemplo.xlsm

Buenas, estoy intentando crear con una macro a partir de un excel un txt con ancho de campos específico. Necesitaría que las anchuras de las columnas fuera: Columna C:10 Columna C:50 Columna C:5 Columna C:10 Columna C:150 Columna C:150 Se que si doy formato especial al campo y lo pongo del tipo 000000000 te lo coge, pero la gente que lo usará es un poco manazas y preferiría que fuera por programa por si tocan formatos. Muchísimas gracias. Adjunto ejemplo. Cualquier tema me comentais. Muchas gracias

Lo que quiero es que el usuario ingrese el nombre del archivo y se cree un archivo nuevo en una ruta especifica pero que sea la copia de un archivo con macros que ya tengo diseñado, lo que pasa es que todos los meses se ocupara la misma plantilla, pero con los nombres de los mese, espero alguien me pueda ayudar, saludos

Hola foreros Es posible generar una macro en la hoja1 tal que aparezca un cuadro de dialogo y luego se introduzca un numero, ese numero se encuentra en la hoja2. Si no lo encuentra mandar un mensaje de que no existe La cuestión es que en la hoja1 diseñé una planilla, la cual se encuentra como el numero de la planilla, fecha, dirección, etc pero también le añadí unos botones de opciones a elegir, por ejemplo: está casado? Botón opcion1=SI o Botón opcion2=NO. Como veran existen respuestas abiertas y cerradas En la hoja2 están los datos ordenados por columnas, es decir, columna A=Nro de planilla, columna B=Fecha....columna F=Está casado?....Cada fila de la hoja2 represent…

Hola estimados, nuevamente solicitando su ayuda. En este archivo quiero implementar una búsqueda inteligente en un ListBox (Fact1) aplicando entre dos rangos de fechas usando dos TextBox (Fech_InicioFact y Fech_FinalFact), con 2 condiciones; que sean de clase de Documento (DF) y que el Comité no sea Vigente. La busqueda inteligente o normal debe efectuarse al hacer Enter en el segundo TextBox (Fech_FinalFact) Para activar el formulario hay que hacer lo siguiente: Seleccionar celda A4("Cuenta") de la hoja Resumen Cart-Cli para activar UserForm1. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A57”) cargar de registros al UserF…

Buenos días Mi nombre en Miguel Angel Canchala y les solicito amablemente colaboración con una macro para buscar y ordenar valores máximos de varias columnas. Adjunto envío archivo en excel con unos valores de ejemplo y los resultados que deseo obtener. Muchas gracias por su ayuda. Att. Miguel Angel C. DATOS PARA MACRO.zip

Buenos días a todos los expertos: Siguiendo las indicaciones de Macro Antonio he encontrado esta macro a través del google, pero mis conocimientos no llegan a entedender como adaptarla a mis necesidades. La macro es esta: Public Function sendEmail(ByVal senderAddress As String, _ ByVal destinataryAddress As String, _ Optional ByVal subject As String = "", _ Optional ByVal body As String = "", _ Optional ByVal CC As String = "", _ Optional ByVal BCC As String = "", _ Optional ByVal…

Buenos días. Quisiera vuestra ayuda, he creado una macro excel para remitir correo desde una tabla excel, esta macro lee las celdas de excel y según condición envía un correo con el outlook, he conseguido ponerle confirmación de lectura, confirmación de entrega e importancia alta mediante esta macro, pero no encuentro nada y lo he buscado, de como ponerle seguimiento al correo enviado de un día. Les agradecería que me orientarais. Muchas gracias

Hola buen día tengan todos me gustaría me pudieran ayudar y de no ser molestia me puedan dedicar un poco de su tiempo para poder resolver este problema que tengo. quiero controlar la inserción de datos de toda una columna para ello necesito que haga lo siguiente: 1.- Si Al seleccionar la ultima celda vacía de la columna en cuestión necesito que abra el formulario (userform1) que pregunta si es datonumerico o no. (ojo solo para celdas vacías si tienen datos no) 2.- Si Al seleccionar el optionbutton de "dato numérico" que haga un barrido desde el primer registro de la columna hasta abajo determinando el ultimo dato numérico de esa misma columna para que sobre la mi…

Sería posible mostrar todos los formularios de un libro en un listbox ? a ver si alguien me ilumina porque estoy totalmente nublado. Gracias

[TABLE=width: 355] [TR] [TD]0 - 500[/TD] [TD=align: right]0.000231135[/TD] [TD=align: right]12.4%[/TD] [/TR] [TR] [TD]500 - 1000[/TD] [TD=align: right]0.000202582[/TD] [TD=align: right]23.2%[/TD] [/TR] [TR] [TD]1000 - 1500[/TD] [TD=align: right]0.000177557[/TD] [TD=align: right]32.7%[/TD] [/TR] [TR] [TD]1500 - 2000[/TD] [TD=align: right]0.000155623[/TD] [TD=align: right]41.0%[/TD] [/TR] [/TABLE] El valor de la barras es el de la segunda columna y quiero colorearlo basado en la tercera columna. Alguien sabe como hacerlo

Saludos, quisiera saber si puedo desde una archivo de excel crear una macro que lea un archivo de texto realice la búsqueda por un o dos condiciones y si encuentra el registro me copie el código del cliente en la hoja de Excel, el archivo de texto cambia todos los días llega a pesar mas o menos 10 mb, filas 25702 y columnas 48 Adjunto archivo de texto Archivo.csv

Buenos dias, mi consulta es: tengo una Base de Datos (de planetas del sistema solar) en Excel, cuando actualizo los datos del excel tambien quiero que se actualize los datos de esa tabla en Power Point, es eso posible?. Que se creen tantas diapositivas como planetas agrege en la bd con las mismas caracteristicas. Gracias. BD_Sist_Solar.zip

Hola buenas noches, Tengo una Macro que realiza registros nuevos, esta misma macro, tiene varias condiciones el cual si en una columna contiene un valor X debe realizar el registro en 2 hojas distintas. También tiene como condición de que si en el campo "Contacto" el valor introducido no esta en mi base de datos de contactos, me abre un Userform nuevo para realizar el registro nuevo del mismo y posteriormente continua con el registro del "paquete" Si tengo el Contacto registrado, me cumple bien todas las condiciones, el problema es cuando no tengo el contacto registrado, me hace bien el registro en mi base de datos pero no cumple las condiciones antes menci…

Buenas tardes, en el archivo adjunto explico que es lo que debo obtener como resultado, sin embargo, no me arroja error, pero tampoco me da el resultado que necesito Sheets("Alldata").Cells(jLastrow, 3).Select.FormulaR1C1 = "=IF(LEFT(RC[-2],1)<>""3"", ""D"",""N"")" Sheets("Alldata").Cells(jLastrow, 4).Select.FormulaR1C1 = "=MID(RC[-3],3,1)" Agradeceré se sirvan verificar mi macro Gracias, Saludos Jorge desde Perú Copiar columnas jgbh.xls

Buen día a todos Estoy queriendo automarizar a travez de una macro, lo siguiente En la columna "A" tengo unos números de documentos Ej. 3312DCJ1305P(0A1) repetidas veces, en la sfilas 2(dos) hasta la 7(siete), necesito automatizar la eliminación. desde la fila 3(tres), hasta la 7(siete). Y así sucesivamente para este mismo documento 3312DCJ1305P(0B1), solo se diferencian con los datos entre parentisis Adjunto archivo en excel y como debe de quedar en "pdf" Relatorio Foro.xlsx Una Hoja-Foro.pdf

Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R…

Hola de nuevo a todos tengo una pregunta de lo mas tonta, pero no eh dado con la respuesta. Tengo una macro dentro de la cual me hace la resta de una celda y de ahi divide ese resultado entre 10, el resultado es mostrado en %(porcentaje) si hago esta operacion manualmente cuando me posiciono en la celda donde tengo la formula me muestra en la barra de formulas asi =4/10 siendo que la celda me muestra 40%, la macro me hace la operacion automaticamente pero al posicionarme en esta celda solo me aparece en la barra de formulas el 40%, existe alguna forma de hacer que me aparezca como algo asi =4/10, ya copie el formato y lo grabe en la macro pero nada no resulta. Gracias. …

Ola que tal disculpen por la molestia, tengo un inconveniente con unos códigos para lograr insertar al FromUser, para un buscador y filtrador en el Textbox, espero que me brinden su ideas, gracias!! Ante mano les agradezco mucho por su atención. Buscadores.rar