amigos tengo una macro que al parecer unicamente me esta abriendo un libro, veran intento abrir varios libros que estan almacenados en la columna "I", desde i2 hasta i26.. pero no funciona, me pueden ayudar. Gracias. Anexo codigo: Sub ejemplo() For i = 2 To 24 Workbooks.Open "C:\Users\Gerardo\Documents\EXCEL ARCHIVOS\" & Worksheets("hoja1").Range("L" & i) Next i end sub[/HTML]

Hola amigos. Estoy trabajando esta macro para copir unos datos de excel a texto, mi duda es: ¿habrá forma de que al hacer esta tarea la macro me solicite seleccionar manualmente el rango deseado? En la macro tengo señalado por defecto toda la columa "D", pero en ocasiones lo requiero de "D1:D10" de "D9:20", son rangos variables. ¿se puede seleccionar manualmente el rago deseado? sub PasarATXT() Application.DisplayAlerts = False inihoj = ActiveSheet.Name nomfic = InputBox("Nombre del Archivo de texto") nomfic = nomfic & ".txt" Sheets.Add neohoj = ActiveSheet.Name Sheets(inihoj).Select Columns("D:D").Copy Sheets(neohoj).S…

estoy realizando un programa de contabilidad y me tope con un problema,necesito que guarde una hoja determinada en una carpeta ya creada luego el mismo programa la reescribe y necesito que guarde la mismo hoja peor con un nombre diferente ya que no contiene los mismos datos gracias.

Hola amigos/as. Quiero pedirle nuevamente ayuda para solucionar mi problema. Tengo un TextBox en una HOJA Excel el cual el evento es Private Sub TextVenta_Change(). Puede que el evento no tenga que ser este pero probe con GotFocus que es el que mejor dá pero hace una repeticion cuando cambio de hoja No he podido lograr insertar formula y formato a partir de la 1ª libre. Adjunto libro de prueba en 3 partes una ves que no me acepta el tamaño en uno solo. Son de 60 KB cada De verdad necesito su ayuda. Agradezco una mirada al codigo que tengo su correccion Gracias Editado: Quisiera cerrar o eliminar este tema, preferiblemente eliminarlo porque el tema esta mal expues…

buenas noches como estan por favor nesecito su ayuda he estado buscando una macro para que me copie desde la primera hoja de excel al resto de las hojas que tenga el mismo archivo y en una celda especifica , pero no he encontrado nada que sea parecido en la web y en varios foro alguien me podria ayudar u orientar gracias por su ayuda Libro2.xlsm

Hola a todos los participantes en este foro. Para empezar dar las gracias a todos aquellos que me puedan ayudar en el desarrollo de este proyecto. Mi consula es acerca de lo siguiente: tengo un libro con dos hojas, en la hoja dos esta la BD, en la hoja uno tengo una consulta de busqueda a dicha BD, la cual se realiza a través de filtros avanzados y automatizados por un macro asignada a un botón. Lo que deseo es que cuando un usuario digite alguno de los parámetros de busqueda (documento o nombre), al presionar el botón de consulta se me realice una busqueda en la BD, por ejemplo que si digita el documento 6894785, verifique que en la columna cedula de la BD se en…

Buenas Tardes a todos, Soy nuevo en programación de Excel y he estado realizando un autofiltro con 2 Criterios. Lo que necesito es crear If Then con el primer criterio, si mi criterio1 no existe entonces que se muestre una caja de dialogo, mi codigo es así: For i = 149 To 185 Range("I7:I55").Select Selection.AutoFilter ActiveSheet.Range("$I$7:$I$55").AutoFilter Field:=1, Criteria1:=i, _ Operator:=xlOr, Criteria2:="=TAL" If Criteria1 = False Then MsgBox "No existe Criterio " & i Next Intenté subir mi archivo, pero no me lo permite, espero me puedan ayudar

Hola Amigos, buenas tardes, es posible utilizar la misma sentencia (variables y cadenas guardadas en variables) en varias consultas que debo hacer , ya que imagino debo usar la misma sentencia en cada procedimiento que realice y ya intenté con declarar variables como Public pero no me deja. Estos código los fuí tomando del blog de @avalencia a quien agradezco por compartir https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html es posible realizar lo que deseo? usar la misma conexión e ir variando en cada procedimiento prácticamente la consulta SQL así como los datos de la tabla donde voy a consultar. adjunto imagen! Gracias!!

Buenas tardes, Tengo una base de datos con un total de 20 columnas de las cuales deseo extraer en una hoja nueva del mismo libro únicamente 8 columnas con datos filtrados de una ellas en especifico. En la hoja nueva donde se pasaran los datos que requiero extraer, quiero adicionar 2 columnas más pero las celdas de cada una de ellas arroje un resultado si cumple ciertos criterios. ¿Cuál es el objetivo de esto?´ 1- Filtrar de la columna con el titulo Etapa solo los datos que estén en: Documentación y Formalizado. 2- Copiar únicamente las columnas con títulos (Cliente, Monto Aprobado U$, Tipo De Operación, Ubicación Gtia Tipo Crédito Etapa F. Lib. Gravamen y F. Solvenci…

Buenas tardes a todos.. MI duda ahora es. como poder agregar columnas con un macro, después de un texto en una celda adjunto la hoja donde esta lo que se quiere hacer y lo el original es agregar 2 columnas en blanco o mas dependiendo después de la celda con contenido "Total" agradezco desde ya el tiempo dedicado.. Ayuda.xls

Hola a ver si me pueden ayudar en lo siguiente. Estoy con un excel en donde la columna A me muestra los ficheros que hay en un directorio A B C 1 Equipo Numero Serie 2 1.txt 3 2.txt Lo que me gustaría hacer es que en las celdas , por ejemplo, B2 se ejecute un comando de msdos que sería para la celda B2 --------> find B1 A2 para la celda C2 --------> find C1 A2 y me muestre en las celdas B2, C2, B3 y C3 las salidas de los comandos find... espero haberme explicado, subo un archivo por si se entiende mejor muchas gracias por vuestra ayuda test.xls

Buenas Tarde a Tod@s soy Nuevo con VBA y hablo español muy mal quiero Vuestra ayuda para aprender un poco para mis tareas diarias. lo que necesito de momento es lo siguiente: tengo 2 hoja en el libro de excel y "Sheet1" es hoja principal y "sheet2" es solamente para tareas terminadas en la sheet1 tengo todos los datos (Tareas pendientes") y en esta hoha"Sheet1" en la columna "H" pongo datos cuando esta treminada. lo que quiero, es un codigo que me haga lo siguiente. 1- cuando pongo algo en la columna "H" esta fila me corta de la sheet1 y pega en el "SHEET2" en la ultima fila disponible 2- y de la sheet1 se borra dicha fila de momento eso es todo lo que…

Hola a todos: Estoy intentando manejarme con las macros.. y bueno he conseguido por ahí algún código semejante a lo que quiero hacer pero con el problema de no entenderlo en su totalidad, a la hora de buscar información me cuesta mucho, eso si lo consigo (puede que sea por torpeza) averiguar qué significa el código y quería preguntar si existe en algún sitio alguna especie de guía o referencia para los distintos objetos, métodos, etc.. donde quede reflejado su uso y significado de sus parámetros. Pongo un ejemplo de lo que no he sido capaz de encontrar en el siguiente código: With ActiveSheet.QueryTables.Add( _ Connection:="TEXT;" & sPath, _ …

Hola: Queria saber si es posible generar una macro que me ajuste los altos de fila según esta necesidad: a. autoajuste b. si el alto que resulta de lo anterior es menor a 50 autoajustar a 30 Bueno eso seria Gracias

Hola a todos y a ver si me se explicar, os adjunto un archivo con el cual lo podréis ver si pulsáis el F8 para ejecutar la macro paso a paso. Lo que necesito es que los datos que busca de la columna entidad, y luego los pega en la hoja de "pegar" lo haga de golpe es decir que no tenga que acudir continuamente a la hoja de datos, si no que los acumule y luego los suelte INDIVIDUALMENTE. me han dicho que se podría con redim pero no se como hacerlo, lo necesito porque realmente no acudiría a una hoja excel a soltar los datos si no a un programa externo que por cada tipo y ofi me dará unos datos que volvería yo a importar. Gracias Por cierto lo he tenido que subir en XLS, …

buenas noches, dispongo de esta macro para navegar dentro de una pagina web Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "www.google.com" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End Sub estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo: el texto inicial seria www.google.com/ ce…

Tengo un ListBox con datos, los datos son numéricos con signo moneda Bs 1.234,56 Quiero al dar clic en una determinada línea del ListBox pasar esos datos al TextBox y que también quede en este ultimo con signo moneda también, tal como está e el listBox algún experto me puede suministrar dicha línea o líneas? Gracias

Buen dia. Quisiera hacer la permutaciones o combinaciones en una tabla. Ejemplo tengo la siguiente tabla . . 1 2 3 1 A B C 2 A B C 3 A B C 4 A B C 5 A B C De esta quiero que me muestre combinaciones posibles como por ejemplo: Esto contando como una combinacion . . 1 2 3 1 A B C 2 A B C 3 A B C 4 A B C 5 A B C o también . . 1 2 3 1 A B C 2 A B C 3 A B C 4 A B C 5 A B C Puedo hacer las combinaciones posibles sin formulas pero es muy tardado…

Hola tengo una tarea algo ambiciosa desde mi punto de vista,ver si existe una macro para esto. Usamos Excel 2010 Quiero manejar un libro comparatido aqui en oficina Hay basicamente 4 usuarios y 2 administradores, Cada Usuario y Administradores deben de tener su contraseña unica pero solo para ciertas condiciones o Privilegios. Aqui la descripcion de Privilegios de cada uno. (de cualquier manera marque las celdas con "X" de aquellas columnas, las cuales no podran modificarse por el usuario o propietario de cierta hoja. Usuario 1 Privilegios: - Ingresar datos en hoja "REGISTRO" - Sin restricciones en hoja "ORDEN" - Copiar datos de "REGISTRO" y "DISEÑO" - Pegar…

Hola, tengo un problema al momento de ejecutar una macro que cree un tabla dinamica, en diferentes computadoras. el codigo es el siguiente: Sub Macro1() Dim WSD As Excel.Worksheet Dim WSI As Excel.Worksheet Dim PTCache As PivotCache Dim PT As PivotTable Dim PRange As Range Dim FinalRow As Long, FinalCol As Long Set WSD = Worksheets("Origen") Set WSI = Worksheets("Indicadores") ' Eliminar cada Tabla Dinamica existente en la Hoja---- For Each PT In WSI.PivotTables PT.TableRange2.Clear Next PT '========================================================================================…

Estimados, vengo nuevamente con una consulta, y espero tenga buena acogida. Tengo una rutina en la que habro archivos y rescato datos, le doy formato y otras cosas. El origen de estos datos es de archivos planos pero con extención particular ".mad", que en el fondo puede ser cualquiera pero distinta de ".txt" La cosa es que algunos archivos por sus datos pierden coherencia. Solución posible hacer conección de datos desde archivos de texto. Hago la conección y grabo una macro, pero no puedo modificarla para los parametros que van cambiando, como la ruta de origen del dato. Adjunto Query para aclarar el tema y adjunto archivo plano que intento copiar. Este archivo se sep…

Hola buenas. En lo que estoy buscando una Macro Para 10 números (del 0 al 9) Tamaño 5 y todo lo que encuentro tanto combinaciones como permutaciones al ejecutarlas no da lo que pretendo, lo más aproximado es una Macro de Permutaciones con 2.002 filas y otra del tope de la hoja Excel y más…. Como ejemplo en el resultado que dé tiene que estar como ejemplo 1º NUMERO 2º NUMERO 3º NUMERO 4º NUMERO 5º NUMERO 0 6 2 0 …

buen dia estoy iniciando una empresa de enmarcados, he trabajado intensamente en la elaboracion de la factura y casi la tengo terminada, pero no tengo manera de guardar cada factura de cada cliente que he atendido sino que lo que he hecho es que en el mismo libro he ido guardando varias hojas cambiando el nombre segun lo requiero, otro problemita es que no se como hacer el boton de conteo de dichas facturas para que cada vez que la abra me aparezca el numero que seguiria, muchas gracias

Hola estimados maestros, Buenos lo que quiero hacer es un reporte por N° Pedido junto con los items que contiene cada pedido. Primero: Ejecuto el Formulario (Form_Reportes) en lo cual Hago la Consulta según los criterios de Option Boton y me arroja al ListBox la Informacion de la Hoja "CONSOLIDADO" (lo cual contiene sumas Totales). Segundo: Al Oprimir el Boton "Imprimir" quiero que me genere todo los items del ListBox mas sus detalles (es decir que artículos está incorporado en el N° Pedido), para mas entendimiento a lo que requiero adjunto un Imagen. El problema viene en el Segundo punto, lo cual no encuentro la lógica de como hacer un reporte como l…

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 …