exportar datos de un listbox a pdf con una una ruta especifica de una carpeta por favor es urgente gracias

Hola. Estoy declarando una variable de una ruta al abrir un libro para después utilizarla en varios módulos. La pruebo con MsgBox y la variable queda bien declarada pero al tratar de utilizarla en otro módulo su valor (también probado con una msgbox) queda en blanco. ¿por qué me pasa esto? No soy muy experto por lo cual agradezco una explicación relativamente simple. Muchas gracias A continuación la declaración cuando se abre el libro: Option Explicit Public ImpPredeter As String Public RutaData As String ----------------------------------------------------------------------------------------- Private Sub Workbook_Open() Application.ScreenUpdating …

Que tal amigos, soy nuevo en este tema y me gustaría que me ayudaran con una macro que haga lo siguiente: que busque un valor numérico en un rango especifico, una vez que lo encuentre que me seleccione la linea completa con un color distinto para resaltarlo y que una vez encontrado si cambio de celda se quite el color y la linea quede nuevamente en el color por defecto, ademas que me avise si el valor buscado no esta en el rango especifico, este es el código que tengo hasta ahora: Sub buscar() valor_buscado = InputBox("Factura a buscar", "Busca folios") On Local Error Resume Next If valor_buscado <> "" Then Range("D5:d100000").Select Selection.Find(What:=valo…

Hola, Mi problema es que tengo 100 archivos que contienen información y quisiera agrupar toda esta información en una solo a hoja de excel. Todos los archivos están en un mismo directorio, tienen nombres que van en secuencia 4127, 4128, etc. Lo que quiero es realizar una Macro, que abra cada uno de los libros y me copie la información de la Hoja "Resumen" (Hoja Nro 2 del libro) y la vaya pegando una debajo de la otra en un solo archivo. La información que contienen los archivos es parecida... Esta hoja, es un resumen de una venta cargada en otra hoja, que tiene distintos subtitulos Nombre Cliente, Nro de Item, Importe, Sucursal, etc. Soy usuario novato en estos d…

Los datos que tengo fijos son: ruta = ActiveWorkbook.Path & "\Archivos\" Archivo="2021-11-22-4-1" La extension del archivo No es fija, puede ser (XLS, DOC, PPT) pero solo hay uno con ese nombre Pregunta: Que instrucción debo de escribir para que abra el archivo Gracias

buenas tardes, tengo este código que me permite cargar en el ComboBox1 información de la hoja1. Así, también, me permite poner en los textbox's información también de la hoja1 y también me permite ver en un ListBox1 la información de la hoja2 según corresponda. Private Sub ComboBox1_Change() For i = 2 To 1000 If ComboBox1 = Hoja1.Cells(i, 1) Then Exit For End If Next TextBox1 = Hoja1.Cells(i, 2) TextBox2 = Hoja1.Cells(i, 3) TextBox3 = Hoja1.Cells(i, 4) Call Lista End Sub Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize() Cargo End Sub Sub Cargo() For i = 2 To 1000 If Hoja1.Range("A" & i) = "" Then Exit For End If ComboBox1.AddItem Hoja1.Ran…

Es que tengo una hoja de excel en la que e hecho una macro que trabaja todos los datos de excel y me genera en una columna las coordenadas concatenadas con comas después yo copio los datos de esa columna y en autocad ejecuto otra macro que me trabaja los datos copiados dibujando la poligonal y poniendo los puntos en cada vértice... es algo bastante repetitivo que poco a poco lo e ido automatizando.. mi pregunta es si es posible unir estas dos macros en la macro de excel y ejecutar toda la macro con un botón.... ya que autocad también trabaja con vba me imagino que es posible.. y ademas e visto aplicaciones así en la web... espero sus repuestas gracias de ante mano

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")

Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$b$5" Then Exit Sub Application.ScreenUpdating = False 'Actualiza las tablas ActiveSheet.PivotTables("TD1").PivotCache.Refresh 'Actualiza el año de todas las tablas dia = Hoja3.Range("B5") ActiveSheet.PivotTables("TD1").PivotFields("Dia").CurrentPage = _ dia ActiveSheet.PivotTables("TD2").PivotFields("Dia").…

Hola amigos me gustaría que completen mi trabajo tengo límites en vba, tengo un formulario que tiene varios textbox y combobox y checkbox quiero grabar todos los puntos que elijo segun el checkbox estos quiero que se graben todos a la vez en una hoja de excel solo he avanzado de grabar uno a la vez y si piensan que se puede mejorar seran bien venidas sus ideas de expertos. Gracias de antemano amigos de Ayudaexcel CargarDatos.xlsb

Hola, tengo esta macro que da formato a un reporte en excel, pero aun no me queda al 100 tiene algunos errores cuando separa las lineas que son diferentes aveces no lo hace, supongo que la validacion esta mal, y el encabezado aun no se como insertarlo, adjunto los archivos de antes(como se genera el reporte antes de la macro) y despues(como debe quedar) espero me puedan apoyar ya que soy nuevo en esto, Gracias Sub eliminartotal() ' Seleccionar celda A2, *primera línea de datos*. Range("A2").Select ' Configurar el bucle Do para que se detenga al llegar a una celda vacía. Do Until IsEmpty(ActiveCell) ' Inserte el código aquí. ActiveCell.SpecialCells(xlLastCell).Sel…

Escribo a esta pagina para que me puedan brindar una ayuda. Tengo una base de datos la cual la importo a una hoja denominada "orden de trabajo". para ser imprimida según el rango de filas de la base de datos. si la base de datos tiene 50 filas considerando que la columna A sea el valor 1 y la siguiente 2 y asi sucesivamente... he estado importando los datos con formulas buscarv dependiendo de un campo de consulta desde la hoja de orden de trabajo. el problema que me envian base de datos de 400 filas y estar colocando el valor de busqueda para que se importen los datos 1 a 1 y mandar a imprimir 1 a 1 me toma mucho tiempo. Hay una manera para que los datos sean importados…

Buenas noches, Me dirijo a uds con la siguiente consulta: 1. Lo que necesito es vincular los valores de las celdas C1, C2,....., Cn a las casillas de contenidas en la siguiente página web (http://www.gebweb.net/optimap/) como si al ingresar los valores en C1 y C2, Cn automáticamente se ubiquen en las casillas mencionadas de la página web para hacer la consulta respectiva 2. Posteriormente, quisiera que se clickee automáticamente el botón "Calculate Fastest Round Trip", o " Calculate Fastest A-Z Trip"(contenida en la misma página web) y me arroje el resultado correspondiente. 3. Una vez calculada la ruta mas corta, importar el dato, y si es posible la…

Estimados amigos del foro saludos cordiales luego de buscar algo parecido a lo que requiero encontre un ejemplo, al cual he tratado de adaptar y ya casi funciona. En el archivo de ejemplo que subo no estan todas las hoja para abreviarlo,... pero alli se encuentra una hoja de BD del mes de octubre en la que se acumularan los registros solo de ese mes para cualquier año... luego de una busqueda con los combobox del formulario para reporte se muestra el resultado en el listbox, el mismo que debera mostrarse tambien en la hoja Info_Temas, ..alli es donde surge el problema pues se borra el encabezado del cuadro y ademas la informacion no se ubica en la linea luego del enc…

Buen día a toda la comunidad del foro, En esta ocasión les escribo ya que debo crear aproximadamente 100 hojas dentro de un mismo libro, cada hoja debe ser igual, únicamente cambiando una celda de acuerdo a una base predefinida anteriormente (Hoja: "Listado" celdas C3:C102). En cada una de estas celdas existen textos de la siguiente manera: Hoja1, Hoja2, Hoja3 ... Hoja 100. C3: Hoja1 C4: Hoja2 ... C102: Hoja100 Tengo una Hoja: "Base" en la cual busco que se duplique tal y como esta, lo único que debe cambiar es la celda C5 por el valor en C3 de la hoja "Listado" y la hoja debe llamarse "H1" según está formulado en la celda C1. Posteriormente …

Buenas, A ver tengo un problema que me está volviendo loco. Estoy intentando desde Excel 2007, grabar una macro y que me aparezca el código pero no se si he desactivado alguna opción o que, en Excel 2010 en otro pc si lo hace correctamente. Abro un libro nuevo, le doy al menu "programador" botón grabar macro: Voy al menu insertar - Imagen, selecciono cualquier imagen del disco duro, se inserta, paro la macro, Alt+F11 y me crea el modulo, la macro, pero no tiene ningún código ! En Excel 2010 hago exactamente lo mismo, y me aparece el codigo: por ejemplo: Activesheet.InsertImage() [/CODE] Qué puede estar pasando? Hay alguna opción que tenga que activar, porque jur…

Hola buena tarde tengo un problema estoy realizando una macro que me copie solo las celdas visibles despues de filtrar aqui la cuestion es que quiero si es que se puede que sobreescriba en la misma hoja y borre todo lo que no me sirvio del filtro buscando en internet parece que no se puede, estuve checando el foro y encontre una solucion [solucionado] Macro para copiar las celdas visibles | Ayuda Excel que a mi me sirve en ocasiones y en otras me arroja un error 1004 como solucionar eso? y otra cuestion es como copiar solo los datos que me arrojo la formula concatenar obviamente igual mediante macro? pienso utilizar la funcion Range(ActiveCell, ActiveCell.End(xldown)).Se…

Buenas, Lo primero decir, que me parece genial este foro, que hace poco que empecé con esto de las macros y de la programación en VBA y me habéis ayudado mucho leyendo el foro. Mi problema es el siguiente; Resulta que tengo un libro en excel PERSONAL.XLS donde tengo 3 botones de macro creados. Cada uno con su código y bien enlazados a cada botón. A mi en mi usuario me funciona perfectamente claro. Pero la idea es que estas macros le aparezcan a el resto de usuarios de la empresa. Para ello creamos un recurso compartido (una carpeta en red) llamada Macro y ahí he metido el archivo PERSONAL.XLS y el archivo Excel11.xlb que es la barra de herramientas con los botones. E…

Buenos días foristas, uso una macro "pasa depósitos" para copiar un rango de datos ( V21:AH35 ) de la hoja "pol ing" e irlos acumulando en la hoja "depositos", solo que en el rango señalado hay formulas que si no cumple con requisitos las celdas se quedan en blanco, y al momento de irlas acumulando va dejando filas en blanco, me gustaría saber de que manera puedo corregir mi código evitando los espacios entre datos acumulados e irlos pegando debajo cada que los acumulo, anexo el archivo del que les comento, de antemano gracias. FORMATO COPIA DEPOSITOS.rar

Hola a Tod@s y gracias por adelantado, puedan o no ayudarme. Estoy preparando un libro de Excel dedicado fundamentalmente a presentaciones de análisis económicos, y en muchas ocasiones, los números deben ir expresados en textos y los textos en números, y en otras muchas ocasiones, en un mismo texto aparecen de ambas maneras. He dado con un código para pasar de números a letras, el cual comparto por si a alguien le viene bien y digo que, al menos mi experiencia con él es buena. El código es este: …………………. Public Function Num2Text(ByVal value As Double) As String Select Case value Case 0 : Num2Text = "CERO" Case 1 : Num2Text = "UN" …

Hola: Imagina que en B1 y B2 escribo dos fechas: 01/01/2014 y 01/05/2014, y al ejecutar una macro me inserta en A las fechas que faltan entre ambas, incluídas las anteriores, es decir: 01/01, 02/01,... 05/01). Ahora escribo en B3 y B4 otro par, vuelve a ejecutar y me inserta las faltantes a continuación de las anteriores. Lo que pretendo es, de un solo golpe, insertar varias fechas en la columna B y me inserte en A todas las que faltan entre cada una de ellas. Os pongo el resultado en la hoja 2 del archivo. Saludos. Fechas.rar

Hola, Un compi me ha ayudado a crear una macro para reenviar los datos un excel por correo. La macro parece que funciona, ya que en función del valor de un una columna, filtra los datos y va a buscar un correo electronico en una hoja adjunta. El problema, es que cuando envio el correo funciona, pero me he dado cuenta que cuando me reenvian el correo desaparece el filtro y se ven los datos de todas las agencia... Lo cual es un problema. Os copio el código por si podéis ayudarme. Gracias, Option Explicit Private Sub btnBuscarExcel_Click() Dim sNombreFichero As String On Error GoTo Control_Error Dim fd As Office.FileDialog…

Buenos dias, estuve viendo algunos temas sobre mi problema y no pude solucionarlo. Les dejo el archivo para que lo vean, la idea es que el dato que se llena en el textbox IVA sea numerico del 1 al 4 y que se guarde como numero. Porque después hago una evalucaion dependiendo de ese resultado y no la puedo hacer porque me lo toma como texto. Agradezco si alguien me puede dar una mano con esto. Muchas gracias - - - - - Mensaje combinado - - - - - Perdon la molestia, ya lo solucione. Lo que si, me gustaría validar el textbox "cmptel1" que sean solo números del 1 al 4. Muchas gracias Facturacion.zip

Buenas Tardes antes que todo agradecer cualquier ayuda o sugerencia. Bueno les comento tengo un combobox donde al elegir una opcion me despliega una serie de datos, dentro de esos datos tengo una ficha tecnica de un producto en particular, mi idea es que luego de mostrar esos datos la celda que contenga el nombre de la ficha tecnica que en forma de link y que me permita abrir la ficha. Estas fichas estan en formato pdf. Estuve haciendo algunas pruebas con codigo: Sub CrearHyperlink() Dim FolderName As String FolderName = "C:\Users\Juan G\Desktop\Cristian\pdf\" ActiveSheet.Hyperlinks.Add Anchor:=Hoja1.Range("C20"), Address:= _ FolderName & Hoja1.Range("C2…

Hola a todos, Una duda que no he sabido resolver y es como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento. Igual no se puede, sí es así hacérmelo saber. Sé la que el código para la última columna es: uC=Cells(1,1).End(xlToRight).Column Pero en el le estamos indicando las coordenadas (fila,columna). He puesto el ejemplo (1,1) pero puedo tenerla en cualquier parte de la hoja. Saludos.