Buenas. Tengo un problema con el separador de miles y decimal en un textbox Poniendo este codigo me muestra correctamente en los label pero en los textbox me salen tanto para el separador de miles como para el decimal un punto "." Por mas vueltas que le doy no consigo que se muestre correcto. Ni con un replace ni con nada. Me.lblImporteTarifa = Format$(Tarifa, "#,0.00") Me.lblImporteNeto = Format$(Neto, "#,0.00") Me.txtDescuento = Format(Tarifa - Neto, "#,0.00")

Buenas tardesa todos Solicito de todos de sus finas atenciones, ya que yo soy nuevo en esto, tengo poca o casi nula experiencia en VBa para Excel y poco a poco estoy creando un programa, ya tengo nos Userform logrados y me falta un tercero, en el cual quisiera extraer la informacion de una base de datos de excel, utilizando un userform y filtrando como si fuera los autofiltros de excel despues tenerlos en un resumen (como fuese) y despues crear ese resumen un pdf para poder mandarlo por pdf. Espero con la breve explicacion que coloque se entienda. Anexo tambien el userform del modulo de consulta que me necesito por favor me ayuden a realizar. Creo con estos datos y s…

Hola solicito ayuda ******* por favor, tengo dos textbox a los cuales les di el siguiente formato: Private Sub Textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Format(TextBox1, "### ### ###") End Sub Private Sub Textbox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = Format(TextBox2, "### ### ###") End Sub cuando quiero sumarlos no sale, dice que no coinciden los tipos de datos en: Label1.caption = cdbl(textbox1)+cdbl(textbox2) Como lo puedo solucionar?

Hola, Tengo que crear Frame con OptionButton dentro, como no se la cantidad de Frame que tengo que crear, lo configure con el bucle For "i", el problema es que, al querer crearlos no me deja, me tira un error. este es el codigo: [FONT=Courier New]For n = 1 To i : t = t + 1 : g = g + 1 With Me.Controls.Add("Forms.Frame.1") .Name = "Name" & t: .Name = t .Top = 82.5 + ((n - 1) * 60): .Height = 49.5 .Left = 12: .Width = 246 .Add ("Forms.OptionButton.1") .Name = "Value" & g: .Value = False .Top = 18: .Height = 17.25 .Left = 12: .Width = 57 End With[/FONT] next[/CODE…

Estimados Mi problema es el siguiente, Tengo una planilla de excel con un formulario para ingresar datos, estos se guardan en una fila hacia el lado, usando varias columnas. Estos datos están registrados según un número "orden de taller" (OT). Hay varias OT con cantidad de piezas mayor a 7. Por lo que tendría que ingresar la cantidad de veces, según piezas tenga la OT (los mismos datos). Realize un nuevo número de OT para este problema. N°OT - correlativo - Cantidad de piezas. EJ: N° OT: 45102, Cantidad pieza:3 N°OT: 45102-1-3; 45102-2-3; 45102-3-3. A mi me gustaría ingresar los datos solo una vez en el formulario y que al decir que son “x” cantidad, se genere …

Buenas, me encuentro con el siguiente inconveniente: Tengo un archivo con diferentes hojas, las cuales quiero imprimir en PDF es un orden diferente, por lo cual cree un codigo para ello, donde puedo definir el orden de impresion segun se requiera, y asi mismo, seleccionar el rango de impresion. El problema que cuentro que es quiero que se genere un solo archivo PDF, con el codigo que desarrolle imprime N cantidad de archivos en PDF. Sub Imprimir() Dim Hoja As String Dim Rango As String Dim i As Integer Application.Dialogs(xlDialogPrinterSetup).Show For i = 1 To 5 Hoja = Worksheets("Print").Range("A" & i) Rango = Worksheets("Print").Range("B" & i) Workshe…

Hola: El archivo lo adjuntó Macro Antonio en otro tema sobre el que quiero preguntar dos cosas: 1) ¿Por qué al añadir una ruta a la lista de imagenes no se actualiza la lista de validación incluyendo dicha ruta (previamente he modificado el código para que la tenga en cuenta, en este caso ya está modificado para que incluya 7 líneas en vez de las 6 que había)? No sé si es problema mío o que es no funcionaba desde fábrica. 2) Si en vez de ajustar por completo la imagen a la celda (desproporcionándose), se puede ajustar solo al alto de celda, y que el ancho sea automático aunque invada -o no- su celda derecha. Saludos. Private Sub Worksheet_Change(ByVal Target As Ran…

Buenas Maestros Tengo una duda eh visto la macro de importación de imagen a excel, pero mi pregunta es si existirá un código donde la Imagen de Macro VBA puede ser importado a IMAGEN (Control ActiveX) ya así sea manejable la imagen en el excel (Manejable en sentido de tamaño), espero su respuesta maestros. gracias. Imagen desde formulario.rar

Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais. Gracias y un saludo a todos. Pablo Sub MacroIberdrola() ' ' MacroIberdrola Macro ' ' Sheets…

Hola, Estoy buscando como resolver este tema. Actualmente para importar archivos de texto, estoy utilizando esta macro: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/convertir-varios-archivos-texto-concentrar-sola-hoja-excel-28481/ Mi problema es que necesito que en los archivos de texto, todos tienen la primer fila con los nombres del campo, lo cual no deseo importar más que una sola vez, y por otro lado, necesito poner el nombre del archivo de donde viene ese registro en un campo de cada uno de los registros. Primero estoy importando los archivos a excel, pero despues los importare desde access para manejarlos en una bd. Alguna sugerencia? Saludos !

buenos dias, me pueden colaborar indicándome como hacer lo siguiente, yo tengo una base de datos y a esta realizo una serie de informes con la ayuda de dos tablas dinamicas ubicadas en hojas diferentes y lo que quiero hacer es que el usuario pueda en una casilla seleccionar un rango de fecha las cuales deben ser de quincenas, es decir del 01 al 15 de julio o del 15 de julio al 15 de agosto y que automáticamente las tablas dinámicas carguen los datos de esas fechas. gracias por su ayuda:welcoming:

Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro Sub Macro4() ' ' Macro4 Macro ' ' ActiveCell.FormulaR…

Estoy trabajando en una macro de forma que me permita extraer de una pagina de ofertas de empleo americana la información de ofertas según el código postal y la zona. Creo que la macro está bien pero cuando intento ejecutarla, nada más empezar, en el módulo 2 me subraya en azul la linea Macro 1 y aparece un aviso diciendo "error de compilación, No se ha definido Sub o Funcioo" He revisado la hoja de excel y no sé donde puedo equivocarme. La macro del módulo 1 es la que tendría que activarse si funcionase bien la macro Aquí tenéis el codigo de programacion del módulo 2. Pongo en rojo la línea donde excel se detiene y aparece el mensaje antes indicado -----------------…

Hola he mirado de ocultar ciertas filas segun la informacion de una celda, pero ahora quiero que al cambiar de valor se vean de nuevo las celdas que no se refieren a la variable o que se vean todas si es un valor diferente a cualquiera declarado. Gracias por su ayuda oculta_celdas.zip

Hola, tengo un libro excel con varias hojas y quiero hacerlo atractivo. Quiero empezar por cambiar los botones sosos creados con vba, para eso estoy creando auto formas atractivas, mi problema viene al darle la orden a esa auto forma para que ejecute por ejemplo un formulario creado con VBA, pues le doy a asignar macro pero ya no se como continuar. si por ejemplo el botón que actualmente tiene esa misión tiene este código: Private Sub CommandButton1_Click() UserForm18.Show Worksheets("formulario").Select End Sub ¿Que deberia escribir en "asignar macro" de la auto forma creada para que funcione y pueda abrir el userform18? Gracias.

Estoy trabajando en una macro de forma que me permita extraer de una pagina de ofertas de empleo americana la información de ofertas según el código postal y la zona. Creo que la macro está bien pero cuando intento ejecutarla, nada más empezar, en el módulo 2 me subraya en azul la linea Macro 1 y aparece un aviso diciendo "error de compilación, No se ha definido Sub o Funcioo" He revisado la hoja de excel y no sé donde puedo equivocarme. Aquí tenéis el codigo de programacion del módulo 2. Pongo en rojo la línea donde creo que está el problema ---------------------------------------- Sub test() Dim eROW As Long Dim ELE As Object Set STH = Sheets("SHEET1") Ro…

Buenas. Vereis quiero realizar una macro que, cuando el usuario clickee el botón de guardar como aparezca en el diálogo un nombre de archivo, a modo de sugerencia, distinto al que posee el propio archivo. He intentado lo siguiente: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).show ("Nombre sugerido.xlsx") End Sub [/CODE] pero lo que obtengo es que, una vez guardado el archivo, me pide volverlo a guardar y me gustaría evitar eso. También había pensado en, por medio de la macro, guardar el archivo en alguna parte (windows/temp por ejemplo) con el nombre que yo sugiero y luego hacer aparecer …

Tengo 10 filas en las que quiero agrupar unos 1000 valores en grupos mas o menos uniformes de 100, pero no siempre va ser posible porque a veces un mismo valor se repite supongamos unas 200 veces. Yo tengo una macro para cada fila que es algo como esto los valores alto y bajo dependen si hay mas de 125 y menos de 75, pero si tengo 200 nunca va saltar "bien" y la macro se queda en el mismo punto Sub Porcentajes() Do If Range("af24").Value = "Bajo" Then Range("ao24").Copy Range("u24").PasteSpecial xlPasteValues End If If Range("af24").Value = "Alto" Then Range("an24").Copy Range("u24").PasteSpecial xlPasteValues End If Loop Until Range("af24").Value = "Bien" E…

(Solucionado)Copiar Filas en Respectiva Hoja Hola a todos , les escribo porque hace un tiempo que estoy buscando solucion a mi problema y no encuentro como solucionarlo. Estoy haciendo una planilla de Gastos y quiero q copie en otra Hoja de calculo toda la fila para sacar el total de "x" apartado. Ejemplo. Tenngo varios grupos . Uno de ellos es Cigarrillos , quiero que la fila cigarrilos se copie en la Hoja cigarrillo. Adjunto la planilla excel. Y a ver si alguno con mas conocimiento puede darme un poco mas de luz en este tema. Saludos y Gracias Jon julio.rar

Buenos Dias Esta es una consulta a todos, me gusta harto excel a nivel formulas y tablas dinamicas me manejo bien, se que estoy aun debil en entender la logica de como operan las macros, programarlas. mi consulta tiene relacion con que los que ya son kapos en macros , de a poquito den tips de como entender la programacion de macros. nose como ejemplo hoy aprenderemos como movernos uando comando de vb : ejemplo celda a1: moverse hasta celda j1 de a poco dar sub rutinas basicas para ir comprendiendo y explicando como se hace , que es lo que significa en mundo macros vb lo digo por que la idea no es hacer un copy paste de una duda, la idea es aprender y entender lo …

Buenas Tardes, mi consulta es la siguiente ,tengo una secuencia en macros para que realize una copia de una hoja en otro libro y la guarde en una determinada ruta, este me funciona perfectamente con el boton de Formulario, pero al realizar este mismo macros en un boton Activex me lanza un error de compilacion. Por favor su ayuda , no puedo subir el archivo porque es demasiado pesado , este es el macros... Sub Macro1() Application.ScreenUpdating = False Range("D8").Select Selection.Copy Sheets("Liquidacion").Select Range("F11").Select ActiveSheet.Paste Sheets("Detalle").Select Range("E8").Select Application.CutCopyMode = False …

Un placer saludarlos, estimados foristas. Estoy realizando un proyecto de un kardex y estoy buscando la forma de insertar formulas con una macro, he buscado en el foro y no encuentro algo que se ajuste a mi necesidad. Adjunto un archivo en donde hay una hoja con el nombre de EJEMPLO ahi en las columnas "H" y "N" hay formulas que estan resaltadas en rojo, cada formulas como podran ver se ajustan a los rangos de cada articulo. Tengo mas de mil articulos y necesito aplicar las formulas a cada articulo que son los costos promedios y los saldos de la cantidad. Cada articulo estan separados por dos filas en blanco y establecen rangos propios. En la hoja2 esta la hoja de tr…

Que tal: tengo este documento con un formulario que me carga datos de la hoja de calculo, lo que necesito es que el dato que seleccione en el listbox, al dar clic en eliminar se elimine de mi hoja de calculo. saludos!!!! Listbox.rar

Buenas Tardes, Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar. Muchas gracias de ante mano. Sub enviar() Sheets("Envios_mail").Select ufila = Range("a" & Rows.Count).End(xlUp).Row For i = 1 To ufila If Cell…

Generar una hoja nueva con contenido de otras hojas en ella. Edito todo el post: Por fin he logrado introducir dos fechas y que cuente los dias entre una y otra atendiendo a los colores. Ahora necesito colocar en otra hoja un boton para generar una hoja nueva, esta hoja tiene que crear con diversos datos, entre ellos, una copia del archivo adjunto. A ver si me podeis ayudar, un saludo. Libro1.xlsm.zip