Amigos, Buenas Tardes... Quiero Pedirles ayuda con una planilla para generar finiquitos, quiero hacerla lo mas automatizada posible, para que cuando la usen otras personas en la oficina, no intervengan en la estructura de la planilla ni de la combinacion de correspondencia con word... El Problema: tengo un codigo para abrir un documento "x" que tome de aca y adapte para usarlo en mi planilla, el problema es que cuando aplico la macro, abre el documento, pero sin la combinacion de correspondencia, lo que inutiliza la planilla completa, que modificacion se puede hacer para que al abrir el ".doc" mantenga la combinacion de correspondencia que yo le asigne?, les dejo el cod…

Hola amigos primeramente gracias por aceptarme en este foro, soy nuevo tengo un problema con una planilla de sueldos en una hoja de calculo pero quiero automatizarla y crear un comprobante de pago de cada uno de manera que al ingresar un dato me vaya creando cada comprobante para cada uno... gracias y espero me ayuden Junio 2013.xls

Estimados, muy buen dia. Les comento que estoy trabajando a una macro, la cual consiste en buscar datos de otro libro de excel, mediante el comando ActiveWorkbook.Path. Necesito que busque 5 archivos distintos, los cuales están nombrados con números del 1 al 5. Para hacer esto, copie 5 veces el código ActiveWorkbook. El problema es que si un día solo tengo 3 archivos, la macro arroja un error al no encontrar el cuarto archivo. Probe utilizando el comando On Error GoTo "primero" , y al final primero: Funcionó con el primer codigo, pero el segundo utilice On Error GoTo "segundo, y no lo considera. Sub TEST() ' ' TEST Macro Dim wbDestino As Workboo…

Buenas tardes me pueden colaborar con este problemita que tengo: Tengo que realizar 440 graficos o mas en excel de una tabla. La macro que tengo los realiza pero en diferentes hojas del libro pero me solicitaron que mejor sea en varias hojas pero en cada hoja esten 50 graficos en dos columnas la macro que tengo es: [COLOR=#333333][FONT=arial]Sub principal()[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim fila As Integer[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim Rango As String, Rango1 As String[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Range("A3:A3").Select[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Selection.End(xlDown).Select ' Ubico el último registro de la col…

Buenos días, Tengo un problema puesto que he ocultado una serie de celdas y necesito crear un botón que cuando lo presione me las muestre (si la celda que le he indicado está en blanco). Las filas que necesito que me muestre son de la 62 a la 153. No sé bien como hacerlo porque soy nuevo en esto, he tratado con: Sub Macro1() ' ' Macro1 Macro Dim i As Integer If Range("J37").Value = Empty Then Rows("62:153").Select Selection.EntireRow.Hidden = False Else i = 62 + Range("J37").Value * 13 + 1 Range("A153:O" & i).EntireRow.Hidden = False Range("A153:O" & i).EntireRow.Hidden = True End Sub [/CODE] Me funciona la parte en la que introduzco el dato y s…

Hola amigos: Disculpen que los moleste, quisiera saber si es posible resolver lo siguiente: por medio de un macro importar los datos de una tabla de access remotamente mediante IP publica a una hoja de excel; es decir via internet me he encontrado algunas macros para hacer ese trabajo pero en una red local, pero esta vez quisiera hacerlo remotamente, las condiciones de la infraestructura que tengo montada son las siguientes: Servidor windows server 2003 Tiene habilitados escritorios remotos con usuario y contraseña IP publica 190.xxx.xx.xxx base de datos access (.accdb) con contraseña y lo que deseo hacer es como lo que hace este macro (me lo encontre en internet) …

Hace un tiempo pedí ayuda para que me ayudaran a resolver un problema con una nomina realizada en excel, lo cual he resuelto por mi cuenta y les dejo el archivo para quienes deseen consultarlo, puede ayudarle a alguien, el código lo he tratado de reducir siempre más y más, ya que hacia uso de muchos (IF) cosa que elimine con los Case rompiendo los ciclos y casos, les dejo el archivo alojado en mediafire, para quienes gusten checarlo. Simple File Sharing and Storage. El archivo esta realizado con Macros por lo cual tendrán que activar las macros en excel, el código es accesible sin protección y confiable, puede alargarse para más empleados o acortarse, también se ha de p…

Hola a todos y gracias por anticipado por echarme una mano... Estoy trabajando con la API de JavaScript para Excel a través de Script Lab (esto no es muy importante) Estoy tratando de cambiar el ancho de una columna... Rango.format.columnWidth=100,81; Mi pregunta es, Ese 100,81 ¿a qué medida hace referencia? porque cuando lo veo al cambiar el ancho de la columna manualmente muestra 18,29 y en cm muestra 3,78 cm ¿Alguien sabría decirme en que unidades están esos 100,81? Debe ser una medida americana. Saludos Jose

Hola Chicos, Nuevamente solicitando su gran ayuda...! Tengo una macro y quisiera que me ayuden en perfeccionarla. Antes, recomiendo ejecutar la macro para ver el funcionamiento y sobretodo tomar en cuenta el desplazamiento de las celdas. Realizada la prueba de la macro, (ingreso del cliente y colocación de la hora de inicio) necesito que la macro ejecute el desplazamiento de la celda hacia la fila de abajo de la columna C (Orden) para colocar en forma manual el numero de Orden y luego usar la tecla direccional para mover hacia la derecha y seguir usando la macro. Los otros datos son ingresados con un scaner de codigo de barras y en forma manual. Mil gracias por sus p…

Hola amigos foreros, Necesito una macro que me saque los cumpleaños que tengo en un determinado tiempo. Me explico, tengo una hoja con una base de datos con los nombre, apellidos, fecha de cumpleaños...... y en otra hoja me gustaría tener un par de calendarios con las fechas que quiero que me filtren los cumpleaños, Ejemplo del 5-Mayo al 15-Mayo --> me cumplen años María Díaz 10-Mayo. No se si me explicado... si hay algún problema me lo decís. Si no se puede poner dos calendarios que tiene que ser uno y se va seleccionando la fecha no pasa nada. O si con calendario no funciona pues algo que me ponga la fecha. Soy novato en esto y no sé si será posible. Para cualqui…

Buenas tardes. Me podrían apoyar por favor en darme una guía de como puedo obtener lo siguiente: tengo una macro que recorre la fila 1 hasta el último dato.. ejemplo A1 hasta AA1. Lo que trato de hacer es que si el valor es mayor a 3 letras entonces me limpie el contenido, pero cuando se encuentra con celdas combinadas me marca error. No puedo eliminar las celdas combinadas, porque me descuadraría mi archivo. Sub Eliminar_texto() Dim lc As Long, col As Long lc = Cells(1, Columns.Count).End(xlToLeft).Column For col = 1 To lc If Len(Cells(1, col).Value > 3) Then Cells(1, col).ClearContents Next End Sub Gracias por la ayuda y su tiempo. ☺️ MiEje…

Buenas tardes, recién estoy iniciandome en VBA y quisiera saber si alguien me podría dar una mano con este pequeño inconveniente que tengo. Resulta que tengo una tabla matriz de compras de la que se exportan datos a otras tablas. Estas tablas las tengo filtradas de diferentes maneras por lo que al modificar datos en la tabla matriz tengo que actualizar manualmente los filtros para que quede de la forma que deseo. Encontré una manera de hacerlo, pero me parece que esto tiene que ser aplicado para cada tabla: With ActiveWorkbook.Worksheets("HOJA").ListObjects("TABLAX") .AutoFilter.ApplyFilter End With Mi duda es si de alguna manera se podría actualizar l…

Hola gente soy nuevo y estoy tratando de adaptar un programa vba a mi necesidad pero al momento de ejecutarlo me da el erro 3709 Option Explicit Public CN As ADODB.Connection Dim Cod_Prod, Nombre, Existencia Dim Fila, Final As Integer Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean Set CN = New ADODB.Connection On Error Resume Next With CN .ConnectionString = "Provider=SQLOLEDB.1;" & _ "Password=" & Pass & ";" & _ "Persist Security Info=True;" & _ "User…

hola amigos les queria pedir ayuda, como obtengo en una variable la fecha actual? en un formato como año-mes-dia + la hora con los minutos y segundos? saludos

Muy Buenas Tardes, Estuve indagando y hasta ahora no he podido solucionar mi problema, se trata de un filtro que necesito hacer a una data que esta en una hoja, y mostrarlo a un listbox , lo que sucede es que este libro tiene 12 columnas y deseo que se muestren en un listbox luego de hacer el filtro necesario con los siguientes criterios que son "Customer", "Fecha desde" "Fecha hasta" . y al realizar la consulta me filtre de manera automática los digitado en cada uno de los textboxes que tengo en mi Formulario. Espero su pronta respuesta. Saludos Facturacion_de_Boletas_CAS_Updated.rar

Hola, amigos. Seguro que me van a poder ayudar en este tema. He creado una macro para guardar un documento con el nombre que se contiene en una celda. Mientras que la ruta donde guardarlo nos lleve a un espacio del disco duro, no hay problema. La coas se complica cuando intento guardarlo en una biblioteca de Sharepoint, ya que aunque no me da ningún error al ejecutar la macro, el archivo no llega a destino Gracias de antemano por su ayuda El código es el siguiente: Sub Guardar_Ficha_Cliente() Dim nombre As String nombre = Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "/Users/andreu/Desktop/" &…

Saludos, intento simplemente crear un macro para copiar y pegar celdas de dos hojas diferentes desde la ultima celda vacia.. "es mi primer macro" Sub nuevos() Dim ultimafila As Long ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 Sheets("FORMATO").Range("K13").Copy Sheets("Hoja2").Cells(ultimafila, 2).Select en esta linea presenta el error Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FORMATO").Range("K15").Copy Sheets("Hoja2").Cells(ultimafila, 4).Select Selection.PasteSpecial Paste:=xlPa…

Hola a todos, He buscado importar .log y he visto cosas interesantes, pero necesito que sea en tiempo real me explico. Yo tengo un fichero (hola.txt ubicado en el escritorio, el nombre y ubicación lo puedo cambiar como a donde quiera). Al cual desde un GPS le llegan en tiempo real cada 0,2 sg una línea con información (en el fichero adjunto se ve la información). Y lo que quiero es que excel "coja" esa información y me pase esa linea (que esta separada por comas) a un celda de excel, el primer numero hasta la coma a A1, despues de la primera coma hasta la segunda a A2 y así hasta el final de la línea. Importante en tiempo real es decir cuando grabe en hola automaticame…

Estimados. Estuve leyendo varios post y no logro encontrar especificamente con una solución. En primer lugar necesito mandar un email con una macro con un contenido de excel. Logro armar los distintos emails para cada destinatario especifico, ponerle un subject, pero no logro poner el cuerpo del mensaje. NO necesito enviar una celda sola, ya que con .body = Range (Celda) lo envia, sino que necesito que envie toda una tabla entera. Probe varias formas y no logro dar con la correcta. .body= Range("A1:I11") .body= Range("A1:I11").Value .htmlbody=... También he intentado con lo siguiente: Sub EnviarEmail(Destinatario As Variant) With ActiveSheet.MailEnvelope …

Hola que tal, un saludo a todos. Mi consulta creo que es muy sencilla (cuando se sabe claro), y es que tengo una hoja donde importo datos de otro libro pero que no conozco el nombre, ya que es un reporte del banco y cada vez me lo da de distinta forma. La cuestión es que necesito saber cual es la última fila de ese libro con datos para poder copiarlas todas y pegarlas en el libro de destino, que es el que tiene la macro. Por razones de "afinamiento" del código no quiero seleccionarlo, sinó que, quiero consultar simplemente, porque me he dado cuenta que aunque se tenga el "Application.ScreenUpdating = False" da un pequeño pantallazo. La línea que he puesto me da …

Buenas tardes Quisiera saber como podria agregar una columna en un listbox donde pueda digitar cantidades segun la lista de materiales que aparecen en el listbox... EL formulario aparece al hacer click en el botón "Liquidación de Materiales" Gracias por la ayuda. Sistema de Inventarios.xlsm

buenos dias, mi nombre es pablo tengo tabla de excel donde tiene varias hojas: listado de participantes carrera 1 carrera2 resultados todo funciona bien, yo añado en la lista de participantes los corredores que van a participar. cuando hago la carrera, tengo que anotar los numeros de dorsal en su casilla y correcto, el programa me pone el resto. los tiempos tengo que anotarlos a mano. hay posibilidades de añadir un cronometro en la hoja carrera1 de manera que cuando yo ponga el dorsal, ademas de ponerme todos los datos, tambien me ponga el tiempo realizado ??? nota: tengo el formato office mac y no me lo deja subir, he intentado pasarlo a excel97 y me dice que es …

Hola, Tengo una duda a la hora de evaluar una expresión booleana, siempre para saber si es verdadero o falso, directamente pongo (if Variable) a secas, sin =, pero sin querer le puse = True y no entraba en la condición, tras quitarle el true ya entraba. Sé que el valor verdadero de un boolean es -1, pero entonces, ¿por que cuando pones (if NumeroInteger) sin =, cuando NumeroInteger<>-1 & <>0, lo toma como -1? ¿Sabéis qué tipo de conversión ha realizado por sí sola la función IF? y en caso de "Si", ¿Podríais indicarme cual es esta función de conversión booleana? Sub PruebasBoolean() Dim VarInteger As Integer VarInteger = 100 If VarIntege…

Hola a todos y todas. Como otras veces hice, acudo a este foro para solventar una duda, porque hasta ahora, me habéis ayudado rápidamente y siempre dando en el clavo. Tengo un libro de excel y quiero que con una macro se copie la hoja en el mismo libro y con el nombre de unas celdas en concreto. La hice y hasta ahí todo bien. La dificultad se presenta cuando vuelvo a ejecutar la macro. Al intentar crear otra hoja con el mismo nombre, me da un error. Si le doy a depurar me resalta lo que sigue: **************************************************** Sub Guardar_copia_convalor_celda() ' ' Guardar_copia_convalor_celda Macro ' ' Sheets("Hoja1").Select Sheet…

Hola buenos dias, ando buscando de su ayuda. Tengo el siguiente anexo donde en un userform puedo filtrar los articulo y el resultado aparece en un ListBox al dar click sobre cualquier articulo filtrado me carga datos en los Textbox, hasta ahi todo bien. El problema radica que el articulo seleccionado no coincide con lo cargado en los textbox, alguien me podrá echar la mano o decirme en que ando mal. Anexo archivo, gracias por su ayuda Buscar y Modificar.rar