Hola, tengo el siguiente problema: lo que quiero es saber si pueden ayudarme con este archivo, la idea es que con una macro poder copiar los datos de destinatario, factura, n° factura, cantidad de bultos y proveedor de la hoja 2 en la hoja 3 antes de poder imprimir la hoja de forma automática hacia abajo sin q se copien encima una a otras ya que serán de varios clientes los q quiero guardar, de antemano muchas gracias Reparto.rar

Buenas, tengo una duda de si se puede hacer o no con un listbox. Quisiera seleccionar un celda de un listbox dandole click para poder editarlo. Lo único que consigo seleccionar es la fila pero no una columna en concreto

Saludos a todos los del foro, He buscado en todo el foro y no he encontrado algo que se le parezca, por lo cual pido a todos Uds. Su ayuda. Y de su conocimiento. Esto lo trate de elaborar con el reportador que trae integrado, pero no tiene la suficiente capacidad de poner la letanía ya que solo acepta 255 caracteres. Se trata de generar un reporte por rangos, en la hoja de sorteados, al poner ubicación inicial y la final, haría un filtro de que solamente es lo que se va a imprimir con formato de salida según la hoja de reporte y los datos o base de datos serian tomadas de la hoja de participantes Gracias por su atención y de su ayuda. generar reporte asistencia.xls

Buenas a todos y gracias de antemano, hacia tiempo que no pasaba por aqui. Resulta que tengo una macro que genera unos datos e importa un PDF con OLEObject, para que aprovechando la impresion de doble cara de la impresora, imprimir por una cara los datos y por la otra el PDF insertado, pues bien, funciona a la perfeccion pero tengo un gran problema con la calidad de la importacion ya que baja considerablemente y apenas son legibles los textos mas pequeños cuando lo imprimo (si imprimo directamente el PDF se ve perfecto). Ante esta situacion cambie de estrategia y cree (con ayuda de algun codigo encontrado por hay) una macro para imprimir el PDF directamente, pero me es i…

Buenas tardes colegas. Espero se encuentren bien de salud. Colegas, en este pequeño Proyecto pretendo trabajar el Comprobante de Operaciones de las Nóminas de los trabajadores de mi empresa y he creado un grupo de "herramientas" para facilitar mi trabajo y un grupo de informaciones que debo brindar, pero para completar o "redondearlo" necesito convertir un archivo .xlsx en .dbf. He estado preguntando si existe alguna manera de hacerlo, si alguno de ustedes conoce un medio o método que me pueda ayudar, por lo pronto yo lo que pretendo hacer es lo siguiente: 1.- Crear un archivo (puede ser .xlsx o .xls) con nombre Comprobante Nomina, que debe ser el que se en…

agradeceria ayuda, necesito que al momento de oprimir el boton de guardar y salir, se cree una carpeta con el valor de la celda J9, pero a la vez se cree un archivo pdf de la hoaj activa que quede grabada en la carpeta creada con nombre de la celda J7, y quede el libro trabajado en formato habilitado para macros grabado en la carpeta y nombrado con el valor de la celda J8 para excel 2013 por favor Libro1.zip

Buenos días, soy nuevo en esta comunidad y quisiera pedirles su ayuda con la programación de este código, el cual estoy utilizando para crear números correlativos en las hojas de asistencia de mi trabajo, pero el cual me da un conflicto cuando quiero realizar las fechas correlativas. ¿Alguien me podría decir como solucionarlo? La lógica del código se basa en los rangos de inicio y fiscalización para la impresión X26 y x27 son para los codigos y x28 y x29 son para las fechas que se presentaran en las impresiones Sub ImprimirCorrelativos() Dim lnI As Integer Dim Resp As Integer Dim Ini As Integer Dim Fin As Integer Dim i As Integer Dim FIni As Date Dim FFin As Date…

Estimados amigos, os cuento, como puedo imprimir cerrando el formulario en primer plano. Para entenderlo mejor os dejo el archivo y cuando entreis en admin 123 como se puede imprimir, muchassssss gracias labohoy23.xlsm

Hello everyone, my name is Maurizio And my Problem is this: 1) On Excel Sheet 2 In Column (C) I will insert dates 2) While in column (D) I will insert the corresponding day of the week belonging to that date. Now my question is this: Would There Be a Way To Make That Using the Function Written in VBA Of The Construct (Concatenate and Text) I go to insert everything in the single column (C8: C) of Sheet 1 using the empty line every time. That's all. Thank you in advance for all the help or suggestions you would like to give me about it. (P.S) I personally tried this and it works very well. The Problem is that I would like to extend it to the entire Co…

Buenos días colegas. Espero se encuentren bien de salud. Hace algunos días comencé un nuevo proyecto para llevar la Contabilidad en un Negocio que es de mi hermano. Apenas comienzo, pero tengo varios problemas a pesar de ser Contador (pero no programador). El tema que me ocupa hoy es el siguiente: Tengo una Hoja (Plan de Cuentas) donde tengo el Catálogo, pero es necesario agregar Cuentas nuevas a medida que el Negocio avance como son Proveedores, Clientes, Bancos, Ingresos, etc... Tengo una macro que he creado, pero no me ORDENA como requiere el Catálogo, Me inserta bien los datos (Jerarquía, Numero de cuenta, Titular y Naturaleza), pero lo ordena de m…

Buenos días a tod@s; Esto liado con una consulta SQL de Excel a Excel y me ha surgido una duda que supongo que no se podrá pero….por si acaso se puede para que me ayudéis. La consulta es una consulta básica en el que filtro por un campo ( situación ) pero en los datos que me reporta, en uno de los campos ( Numero ) necesitaría que solo me reportara los primeros 6 caracteres. Query = "Select Artículo, Casa, Numero from [" & "Musica$" & "] where Situación= 'Ok' " En el campo Numero tengo 12 caracteres. Ejemplo: 123456SA0014 Solo necesito 123456 He probado con substring(Numero,1,2) pero da error método open de objeto recordset. …

Quiero facilitar el llenado de un formulario que sirve para pre calificar a las personas en el Infonavit, pero no se como hacer para copiar y pegar los datos de una tabla (en base al numero de la fila) en los campos de la pagina, así como hacer que la macro modifique en la pagina los campos entidad y municipio. soy nuevo en esto no se que mas datos se necesiten. gracias!!! Precalificación.xls

Buenas tardes, a ver si me podéis echar una mano porque estoy acabando con mi paciencia. Estoy haciendo una macro sirviéndome de las librerías de ADO, y tengo un problema en una sentencia SQL que no sé cómo resolver. No sé si el problema viene dado por el tipo del campo en la hoja excel o en la propia sentencia SQL. Me gustaría coger los campos que tienen un valor superior a 1000 y la siguiente instrucción, me falla: SQL = "select count([APPThroughputUp]) from [LLAMADAS$] where [APPThroughputUp] not in ('-') AND [APPThroughputUp]> CInt(1000) '" La instrucción se ejecuta pero no filtra bien, cuenta todos los campos y no sólo los que son mayores que 1000. ¿Alguna …

Hola cómo están? Les comento que muy amablemente en este foro me ayudar a ponerle un buscador al estilo google a mi lista de precios, pero tengo un problema, cualquier persona que la abre que tiene excel 2003 y le deshabilita las macros diciendo problemas de seguridad, hay alguna manera de que esto no pase y que lo puedan abrir sin problemas? Muchas gracias.

Hola buen día, en una planilla de seguimiento de ventas, la columna B debe registrar el estado de la venta a través de dos iconos un triángulo rojo ( pendiente) y un triangulo verde ( cancelado o pagado). Necesito que al clickear el botón "debe" la macro copie el triangulo de la celda F1 y lo pegue en la celda activa( que puede ser dentro de la columna A) y al clickear botón "pago" la macro copie el triangulo de la celda F2 y lo pegue también en la celda activa. No debe ir a una celda fija. Desde ya muchas gracias por la ayuda. ventas.xls

Hola amigos, estoy haciendo un formulario que busque en archivos una hoja y celda especifica. Lo intento mediante con este archivo adjunto, pero al parecer hay algo que no estoy haciendo bien, ya que al buscar la primera ruta, se abre el archivo y puedo seleccionar la celda requerida y luego lo cierro. Luego al intentar ingresar la siguiente ruta (ruta2) se abre el archivo, pero se queda pegado y no hay forma de poder darle la referencia de la celda que deseo colocar. Nunca esta demas decir, que si hay una forma mas optima de hacer esto, haganlo saber. Espero sus comentarios. prueba_ruta.zip prueba_ruta.zip

Gracias a Macro Antonio que me creo una macro, quisiera seguir evolucionándola pero mis conocimientos de macros es muy pobre, quisiera mejorarla que la celda que está cortada diagonalmente vuelva a su estado sin borro la celda donde pone Din_Astm y si lo pone que el 50 lo coloque según el ejemplo y si pone cualquier dato diferente la celda de referencia sea ASTM, DIN, API el dato que ponga este centrado a la celda como el ejemplo y en la celda de la columna R también la corte diagonalmente como el ejemplo. Si pone API_ASTM corte diagonalmente la celda de la columna P y si borro los datos de API_ASTM deje la celda en estado original. …

Buenas tardes, Necesitaría resolver una duda que tengo. En el fichero que adjunto tengo una columna con datos que se repiten y el resto de las columnas no, necesitaría ponerlos en columnas dependiendo del dato que se repita para solo tener una fila por registro. Gracias PRUEBA_TFG_2.xls

Hola a todxs, Simplemente os quería consultar una cosilla, ¿existe la posibilidad de depurar el siguiente código aun más? (He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...) ... With Range(Cells(5, 20), Cells(5, 20).End(xlDown)) .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -16776961 End With .FormatConditi…

Buenos días a todos; Estoy intentado pasar datos de un listView a un archivo txt y no me acaba de ir del todo bien. Cuando selecciono los items para exportar me repite el primero y el último no lo envía. También tengo creada una función que cuando no seleccione ningún item me pase todos. La he desactivado porque active o no siempre pasa todo y con el mismo fallo (envía todos los items pero repite el primero y no envía el último). Agradecería si es posible vuestra ayuda. Saludos. MEtList.zip

el rango de celdas es variable así que lo debería tomar de la celda A1 por ejemplo y el directorio y nombre donde se grabe el nuevo libro estaría en A2 de la hoja activa gracias por la ayuda que puedan brindar

Buenas tardes, bueno mi dificultad es en cuanto consultas con tres criterios, haciendo uso de los checkbox con criterios y la generación en el listbox. la expiación de la siguiente manera: SI checkbox1(fecha) = fecha 1 <= fecha2 ENTONCES Me genera reporte entre un fecha determinada - (esto funciona) SI checkbox2(cliente) = criterio ENTONCES Me genera reporte de un cliente determinad - (esto funciona) SI checkbox3(tipo pollo) = criterio ENTONCES Me genera reporte de un tipo de pollo determinad - (esto funciona) SI checkbox4(Fecha, Cliente, Tipo de Pollo) = fecha, cleinte, tipo de pollo ENTONCES Me genera r…

Hola a todos, gracias por su atencion de antemano. Bueno tal cual y como dice el nombre del post necesito hacer una suma condicional en un codigo de VBA si es posible. El asunto es que tengo 1 encabezado por cada 3 columnas las cuales son horas requeridas, kt(kilotoneladas) y equipos requeridos. Lo que quiero obtener es que en una nueva hoja, copie los encabezados que no se repiten con sus respectivas columnas(3), y los encabezados que se repitan se unan en 1 solo (sumar cada columna con su simil). Debo agregar que el numero de encabezados pueden ser muchos (100 o mas) y no 5 como lo muestro en el archivo adjunto. Esperando que me puedan ayudar. Saludos - - - - - Me…

Buenas a todos. Desde antes gracias por su ayuda. Tengo un codigo para insertar una imagen cuando cambia la celda "E5" la imagen la inserta segun el valor de la celda "G3". Pero quisiera que me insertara la imagen que se llama "Imagen no encontrada" cuando la imagen no exista dentro del directorio. Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = "$E$5" Then Exit Sub On Error Resume Next 'Control de errores Me.Shapes("Foto").Delete ActiveSheet.Shapes.AddShape(msoShapeRectangle, 432.3077165354, 1, _ 118.8461417323, 105).Select Selection.ShapeRange.Name = "Foto" Selection.ShapeRange.Fill.Visible = msoFalse Se…

Como va? tengo un problema que no lo he podido resolver bien por una cuestión de lógica. Tengo un listbox que toma los datos de otro listbox, el dato que quiero modificar se trata del precio unitario de productos que corresponde al precio de venta en EFECTIVO. Partiendo de ese dato una vez cargada toda la factura requiero de poder cambiar el valor del precio de venta en efectivo por el valor del precio de tarjeta que es igual al precio de venta + el 30%. La forma de pago se cambia a través de un combobox. Si en efecto el combobox a través del evento change se posiciona en "TARJETA" debe sumarle a toda la columna de precio unitario un 30% y si se vuelve a elegir forma d…