Buenas a todos, primero que nada gracias por molestarse y ver este post. Mi problema, es que yo tengo una macro que genera un archivo .csv, el problema está , que en el archivo se genera en el último registro (o fila), un espacio en blanco, como si se diera un ENTER, desde la última fila con información. Estoy utilizando la instrucción Print para ello. He estado buscando durante horas como eliminar ese espacio con una macro, o evitar que ese espacio se genere, pero no lo he logrado conseguir. Espero que alguno pueda ayudarme. Muchas gracias!

Hola buenos días, Llevo un tiempo intentando realizar búsqueda en mi ListBox con varios criterios y lo que mas se asemeja a lo que necesito es un archivo que descargue de @Antoni. Mi idea inicial es poder filtrar los registros con un Combobox que me permita seleccionar el concepto que necesite (títulos de cabecera de mi tabla) y con el otro combobox realizar la búsqueda según el concepto que haya seleccionado. Eso seria lo ideal para mi pero no lo consigo de ninguna manera... Así que si no es posible realizar lo comentado antes, el código de @Antoni me podría valer. He intentado adaptarlo a mi libro pero no consigo que me funcione y no se a que se de…

[h=2]Buscar 2 valores numericos digitados por el usuario y que arroje los encontrados[/h] Cordial saludo y buenas a todos Mi inquietud es la siguientes: Necesito hacer en VBA un formulario con dos campos numericos para digitar dos números y que al digitarlos me arroje los resultados de esos numeros digitados y sus correspondientes filas. Ejemplo del problema: Esta es la tabla con los datos: Campos: Numero de Documento, Nombre, Marca, Modelo, Placa. 1 10.48756.0 Pepito Mazda 1978 AB1205 2 XXXXXXXX XXXXX XXXX XXXX …

Buenos días. Tengo una macro programada para que ejecute una actualización de los datos. El problema es que, dependiendo de los datos, a veces salta un mensaje de error y hasta que no se pulsa aceptar en el mensaje de rror, no continua calculando. Hay alguna forma de hacer que "pulse" el aceptar de forma automática? Gracias.

Hola amigos expertos, quisiera que me apoyen en la realización de una macro que me permita mover mis datos de una hoja a otra y generar un reporte...para que me entiendan mejor y yo también ir entendiendo el código quisiera ir paso a paso, desde ya les agradesco su ayuda profesional, quiero señalar que trabajo con excel 2003 y bueno tengo pocos conocimientos de programacion. 1. Quisiera saber como hago para que mediante un Nº de serie me busque hoja por hoja y al encontrar la serie me muestre los datos de esa serie en el resto de celdas, y en local actual me muestre en que hoja está. esto seria lo primero, reiterando mi agredecimiento por su apoyo, les adjunto mi archiv…

Tengo un libro “Presupuesto de Obra", el Cual tiene una Hoja llamada Presupuesto, que contiene las Columnas: Ítem, Descripción, unidad, Vr unitario y Vr Total. También tiene una hoja llamada: “1.1” (su nombre hace referencia a los datos de la celda (A9) de la Columna Item, para Hacer esto, necesito una macro o modulo que Copie la Hoja “1.1” y tome su nombre de los datos de las celdas siguientes en la Columna Item de la Hoja Presupuesto. Luego de llenar los datos en la Hoja Copiada, lleve el resultado a la celda (I50 Subtotal APU)correspondiente de la columna Vr unitario de la hoja presupuesto. Gracias por su apoyo. Presupuesto de Obra.zip

Buenas tardes. Estoy varado en este dilema, tengo una rutina para copiar 2 hojas de un libro de 30 y se abra el dialogo de mover o copiar hojas a un nuevo libro y al aceptar se abre el dialogo de guardar como , después se exporta el archivo a PDF y por ultimo se cierra el libro nuevo creado,.......mi problema es que si le doy cancelar (por que me equivoque en algo) al dialogo de mover o copiar hojas, la macro sigue corriendo y me crea un caos, me borra vínculos etc..... como puedo detener la rutina si le doy cancelar a ese dialogo??, es posible??? Esta es mi Rutina: Sub ImprimeCot_10() Application.ScreenUpdating = False Sheets(Array("Forma10", "NP10")).Select Sheet…

Buenos días, Tengo una tabla en una hoja y estoy intentando saber cual es la ultima celda vacia por la derecha de cada fila. Puede haber filas que estén completas (con datos en todas sus columnas o no) Estoy utilizando este código que supuestamente me da el numero de columna que no está vacia, pero parece comportarse erroneamente, ya que siempre me lee la ultima celda de la fila aunque esté vacia. Creo que puede ser por la propia definicion de tabla en excel? UltCol = Datos.Cells(3, Datos.Columns.Count).End(xlToLeft).Column Siempre me da la posicion 33 que es la columna AG. Alguna idea ? Gracias

Hola: Necesitaría una macro para importar varios txt en un directorio a un mismo archivo excel. Buscando en el foro he encontrado este hilo, y el archivo excel con la macro que se indica me funciona bien: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pasar-varios-txt-al-mismo-libro-diferentes-hojas-24406/ El único problema que tengo es que necesitaría que los txts los importa con la opción de separación por espacios y no por comas. Esta opción la puedo elegir si importo un txt únicamente mediante la barra de herramientas común, pero en el caso de la macro no se si se pudiera cambiar, bien modificando el código, o bien modificando alguna opción general del …

Hola distinguidos expertos. Necesito su apoyo para completar con macros un programita para control de tarjetas de cobro. Se trata de “Copiar, buscar y pegar”. Estuve buscando en este foro algo parecido y me encontré con uno pero no he podido adaptarlo, me manda un error de compilación “La clave ME no es válido” y estoy tratando de aprender a armarlos aunque confieso ya he podido con otros códigos un poco sencillos. Es aquí que necesito su apoyo. A continuación trataré de resumir el código que requiero. 1- El contenido de las celdas “E3”, que es para consulta, es un folio de 4 dígitos y el de “D3” que corresponde al Status de ese folio, es una de 4 palabras (A…

Buen Día, de su colaboración con indicarme cual es el error, ya que he generado la macro importando un archivo .csv, el cual me haga la tabla dinámica y grafique la información, pero me sale un error, les agradezco de que me puedan indicar cual es el error y poder hacer esta macro, ya que cada vez que cargue un archivo .csv (actualizado) me genere la gráfica de la tabla dinámica. quedo atento a comentarios. PD: adjunto el archivo .csv Y LA MACRO HECHA. gracias atte. CAPAF RTWP Y PISO AL RUIDO.xlsm RTWP.csv

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos

Hola Compañeros, En un determinado formulario tengo un Txb donde debo introducir un nombre, si este nombre existe en una casilla, me devuelve los demás datos para que pueda modificarlos. Hasta aquí todo bien, pero al introducir un nuevo nombre me sale un error que desconozco. Adjunto el código. Creo que es algo relacionado con el Else, no se que debo introducir ahí para que me deje el formulario en blanco y pueda seguir insertando datos para un nuevo registro. Muchas gracias Private Sub NomA_Exit(ByVal Cancel As MSForms.ReturnBoolean) Set c = ActiveCell Cells.Find(NomA, LookAt:=xlWhole).Activate If ActiveCell.Value = NomA Then Set c = ActiveCell nivel = c.Offset(0…

saludos. estoy desarrollando un formulario en los deseo calcular varios textbox y mostrar el resultado en otros, el problema radica cuando los coloco con formato de miles los cálculos no funcionan; por favor si alguien me puede dar una ayuda o indicarme el procedimiento. ya he utilizado el cdbl(replace((.. obteniendo el mismo resultado. adjunto enlace. https://drive.google.com/drive/folders/1mPjlo-c7rCrwALgK9pF20e3J-XQG8Wk6?usp=sharing muchas gracias por su pronta colaboración.

Pasar datos de un ListBox a diferentes TextBox Soy nuevo en tema y estoy tratando de hacer este sistema de facturación, el caso es el siguiente Tengo un userfrom con varios textbox ordenados por filar (textbox1-textbox2 etc), lo que necesito es que al hacer doble click en un textbox se despliega en listbox doble click y se cargan los datos en los textbox de la fila 1 pero también se cargan en la fila2 en la fila 3 Private Sub Codespecies_Click() Formvtas.Cod1 = Codespecies.List(Codespecies.ListIndex, 0) Formvtas.Esp1 = Codespecies.List(Codespecies.ListIndex, 1) Formvtas.Portainj1 = Codespecies.List(Codespecies.ListIndex, 2) Formvtas.Tinj1 = Code…

Buenos Días compañeros, Se me presenta un problema con la ejecucion de una macro que estaba armando para que los graficos me cambien de color, los graficos me cumplen la condicion si el relleno de cada barra lo dejo con el color que necesito , pero a la hora de cerrar y abrir el archivo y ejecutar la macro, las barras con porcentaje 0% cambian su relleno en automatico, dejando las barras de color azul.El codigo actual es el siguientePrivate Sub Mes_Click()' Datos a Mes Abril''Muestra Hojas Para Realizar CambiosSheets("Dashboard").SelectSheets("Tablas").Visible = TrueSheets("Dashboard").Select'Cambia Formulas de AcumuladosApplication.ScreenUpdating = FalseRange("B24:C25").…

Hola, he estado buscando por toda la web la forma de solucionar lo siguiente: Tengo un archivo que utiliza Macros y Filtros Avanzados para registrar los pendientes que hay. Ahora lo que quiero conseguir es que cada semana se genere un archivo en PDF para cada una de las personas con las que tengo un pendiente y se les mande por correo. ¿Alguien sabe si esto es de alguna manera posible?

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS; NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR Sub GrabarReg1() Dim conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim MiBase As String If frmFORMULARIO.ComboBox5 = "" Then MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje" 'frmFORMULARIO.ComboBox5.BackColor = &HFF& …

Saludos amigos Estoy obligado a desarrollar algo conVB de E-2007, y comencé a chocar con algunas cosas que me obliga a molestarlos para intentar resolverlos. La máquina que uso para el desarrollo, tiene WXP y sólo E-2007, ni rastros del 2003. Caso 1 Estaba probando y salió un enorme cartel que comenzaba diciendo, “Microsoft Office Excel detectó un problema y debe cerrarse…”,… se cerró y se activó la restauración del libro. El mismo cartel salió en otras ocasiones donde yo no estaba haciendo pruebas, tan sólo estaba mirando la pantalla pensando en como resolver algo. También apareció en la PC donde correrá lo que estoy haciendo,… apareció solito, no se estaba usando…

En excel 2003 era posible grabar una macro incluyendo la insercion de una forma como una linea o un rectangulo, sin embargo en la version 2007 no queda grabada en la macro las instrucciones para dibujar una forma en la hoja de calculo.

Estimados, buenas, soy nuevo en VBA y al correr mi formulario me aparece el siguiente error en referencia por favor alguien me puede ayudar con la sintaxis de como solucionar el error 1004 adjunto info de como esta ingresado en la programacion Vb: Private Sub LISTA_Click() Dim modelo As String modelo = LISTA.List(LISTA.ListIndex, 7) Me.txt_modelo.Value = modelo End Sub Private Sub txt_modelo_Change() Dim modelo As String modelo = txt_modelo Me.txt_service = Application.WorksheetFunction.VLookup(modelo, Sheets("BD").Range("A:Y"), 20, 0)

Hola, Necesito ayuda con un código y agradecería mucho si alguien me echara una mano. Necesito dos cosas y después de horas no hay manera de conseguirlo, soy un negado para la programacion. 1. Hacer que cada vez que el codigo de proveedor cambie inserte una fila entre los dos. 2. Hacer que cada vez que haya una fecha que sea anterior a la fecha de sistema se ponga en color rojo. A lo que habia llegado es a : Sub () Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Range("A2").Select Do Until IsEmpty(ActiveCell) If ( ? ) Target.EntireRow.Interior.ColorIndex = 42 End If ActiveCell.Offset(1, 0).Select Loop End Sub Cualquier ay…

Hola a todos! Mi pregunta es si se puede enviar un nombre de usuario y contraseña a cualquier sitio web desde excel o solamente a ciertos sitios web. He estado buscando macros que hagan esta función y he encontrado unas pocas, el problema es que sólo una de ellas funciona en mi navegador y no lo hace para todos los sitios web. También he encontrado un link en el sitio web "eHow" donde ofrecen unas instrucciones para poder programarlo personalmente (Cómo enviar un nombre de usuario y contraseña a un sitio web con el Código VBA de Excel | eHow en Español) Yo lo he intentado pero no lo consigo. ¿Alguien podría ayudarme? He intentado programarlo para poder ingresar en el fo…

Buenos días tengais Vereis, con esto de no poder tocar el documento mientras está activado el userform, me preguntaba si sabías de algún modo de poder recorrer un documento como la celda activa a través del userform. Aquí os dejo un ejemplo de como lo había pensado (Las ideas son bienvenidas) Había pensado poner un scrollbar dentro del userform y al clickar que la celda activa fuera bajando hasta el final del documento. Además de agregar dos botones para ir tanto al principio (Pone en el botón A1, asumiendo que el texco comienza en ese punto) y otro que apunte a la última fila ocupada. grácias por vuestra ayuda, saludos. Scroll.zip

estimados amigos me podrían apoyar con crear macros que mé, al capturar en la primera pagina al dar anexar actualizara la pagina gdo 1, dependiendo de la fecha de captura y del bloque que este trabajando. agradesco, su apoyo, inserto el archivo. calificaciones dd.xls