Bueno amigos, necesito su ayuda. tengo este archivo exel para gestionar ligas. La cosa es que en la pestaña "tabla de posiciones" tengo una tabla que se actualiza según los valores agregados en la pestaña FIXTURE, el problema es que cada fila tiene una imagen al lado, pero al momento de actualizar la tabla, tengo que mover las imágenes manualmente. Habra alguna forma de que las imágenes se muevan junto a los datos? Tal ves usando VB o algo, Me podrían dar una Mano. Espero se entienda. Aquí dejo la tabla https://www.dropbox.com/s/56ew0g1rjjpf8yt/2da.xlsx Gracias amigos.

Lo que busco sería posicionarme por ejemplo en A y que a partir de ahí elimine dos columnas, osea B y C, que D la deje intacta y siga con E y F y así sucesivamente. Es para eliminar dos columnas de info que ya no necesito únicamente.

Hola, he creado una funcion en un módulo que en un momento dado tengo que recoger unos datos de una hoja. Esto lo hago de la siguiente manera: Sheets(2).Select Pero no quiero que me muestre la hoja2 en medio del proceso. Es decir, si la funcion salta en la hoja1 no quiero que muestre la hoja2 aunque la funcion tire de ella. No se si me he explicado bien. Si no es así lo vuelvo a intentar. Gracias. Saludos,

Tengo un archivo en excel tipico de ventas (ciudad, vendedor,ventas..etc) esta informacion esta en la hoja1 y quiero hacer una consulta desde visual basic tipo SQL (Select "Ciudad" from Ventas.xlsm where Ventas > 100). El recordset debera llegar a una hoja de excel del mismo libro (Ventas.xlsm) hoja2 Me pueden ayudar con el codigo de coneccion y si se requiere configurar el equipo para poder hacerlo. Envio Archivo .xls dado que la extension xlsm no pude subirla Gracias Ventas.xls

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…

Estoy haciendo una busqueda con macro en base a 2 criterios por dni o por apellido utilizando el siguiente codigo: Private Sub btn_buscardata_Click() Dim contador As Integer Dim s As String Dim i As Integer s = txt_criterio.Text contador = 2 Dim flg As Boolean If rb_dni.Value Then contador = 1 End If If rb_apellidos.Value Then contador = 4 End If lbx_datos.ListIndex = -1 If txt_criterio.Text = "" Then Exit Sub End If For i = 0 To lbx_datos.ListCount - 1 If UCase(lbx_datos.List(i, contador)) Like UCase(s & "*") Then lbx_datos.ListIndex = i fl…

Hola todos Les pido ayuda sobre un tema que no puedo resolver. Utilizo Cuadros de texto flotantes para crear un menú y los asocio a una macro. No encuentro la forma de que cada cuadro le pase parámetros al programa para identificar el origen y definir la ejecución. Les agradezco mucho la ayuda que puedan darme. Daniel

Buenos días Compañeros ocupo de su acostumbrada ayuda, quisiera saber si existe alguna forma de macros en excel de saber si el bios tiene contraseña, no quiero saber la contraseña, ni resetearla, solo saber si tiene password, sera posible? Saludos y muchas gracias....

Buenas tardes chic@s; De que forma puedo juntar 2 o 3 condiciones en una, no que cumpla las 2 o 3 para que realice algo sino que con que cumpla una de las 3 condiciones realice lo que sea, siempre las pongo separadas y es escribir 2 o 3 veces lo mismo. por ejemplo, juntar estas 2 condiciones. If Range("H6") = "" Then If Range("H7") = "insuficiencia" Then muchísimas gracias de antemano

buenas, estoy haciendo unas pruebas con vba, tengo codificados tipos de gastos en la hoja "tipogasto", en la que a cada tipo de gasto se le asigna un número. Lo que quiero es que en la hoja1, cuando en la columna código ponga un número me escriba en la columna c, tipo de gasto, el tipo de gasto que le corresponde a este número según la hoja tipogasto. quiero hacerlo con vba, y lo he conseguido, pero el editor vba se queda colgado ejecutando el código. El archivo adjunto es un pequeño ejemplo, de una base de datos extensa, en la cual debo aplicar este caso en varias ocasiones, para tipos de gastos, proveedores, acreedores, etc....No quiero pensar lo que le puede costar.…

Buenos dias, con todos, por favor me pueden ayudar con una funcion como dice el titulo tiene que contar unicos con diferentes parametros (algo parecedio al contar.si.conjunto) lo que pasa que con la base de datos que trabajo tiene muchos de estos caso y tengo que estar filtrando, borrando, pasando a otra hoja, etc. por favor alguna ayuda o sugerencia. Saludos, Muscaria

Saludos a todos, quisiera saber como crear una macro que haga una lista con una frase y números consecutivos, por ejemplo, que en la primera celda (A1) aparezca "hola 1 fin" en la celda (A2) "hola 2 fin" en la (A3) "hola 3 fin" y así sucesivamente: lo único que cambia es el numero 1,2,3,.... la idea es simple estoy un poco familiarizado con otros entornos de programación y básicamente lo que haría para dar un nombre a la primera celda (A1) seria: Cells(1, 1).Value = " hola 1 fin" y según tengo entendido esto se puede hacer de varias formas por ejm: Cells(1, 1).Value = " hola"+" 1" +"fin" Entonces la idea seria que el 1 aumente consecutivamente. yo queria hace…

Hola, me gustaría saber si existe la manera mediante una macro de excel, de imprimir otro archivo en PDF previamente creado, es decir no archivo excel en sí, si no otro diferente. Gracias.

Hola, a partir de un listado de códigos o lista de palabras clave pre-existente, se trataría de: PRIMER PARTE (FÁCIL) 1. Buscar en una columna con tweets si aparece o no esa palabra o código. 2. En caso de que no aparezca, en otra columna se indicaría '0' 3. En caso de que sí aparezca se indicaría '1'. SEGUNDA PARTE (MÁS COMPLEJO) En el contenido de un tweet pueden mencionarse varios temas. Tenemos un libro de códigos con varios temas. Por ejemplo: 1. Tema 1 2. Tema 2 etc. Se trataría entonces de hacer una clasificación o codificación múltiple. 1. Buscar en una columna con tweets si aparecen o no esa palabras o códigos. Las mayúsculas y minúsculas y las til…

Hola expertos...quiero que le den el último pincelazo a mi aplicación...tengo un formulario que carga datos creando una pequeña base de datos, desde el un form llamo a otro que filtra los datos y los pega en una hoja llamada "Resultados" todo iba bien pero tanto código que metí en verdad me perdí ahora ya no carga los datos a los combobox para realizar un filtro avanzado no se si me podrían dar una manito y si pueden mejorar les agradecería un mundo. Muchas gracias expertos por su colaboración CargaDatosporFechas.zip

Hola estoy intentando hacer una macro para descargar unos datos de una web, con este comando, .Open "GET", URL del sitio , False El programa me funciona, pero quiero hacer que la url la coja, de una celda de la hoja de calculo, y no ponerla fija en el código, suponiendo que la web es mipagina.es/folder/123 En la celda de la hoja de calculo, solo se tendría que cambiar el ultimo numero, 123. El resto de la url es constante para todas las consultas.

Hola Saludos a Todos!!!! Tengo un problema trabajando con texto, estoy usando un textbox y lo que necesito es que si el texto ingresado en este es mayor de determinado numero de caracteres sea repartido en diferentes filas en la hoja de excel, por mas que busco la manera de hacerlo no consigo hacerlo, espero me puedan ayudar el numero de caracteres máximo es de 42 por fila muchas gracias de antemano Saludos Cordiales Arturo

Hola a todos. Mi nombre es Maurizio y mi nuevo problema con la VBA es este: Yo en una hoja de excel gracias a su ayuda Anterior que es esto: Dim rngTarget As Range Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub Private Sub Cmd_Recupera_Immagini_Click() 'On Error Resume Next For I = 1 To 1 Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20")) Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20")) Call GetShapeFromWeb(Foglio1.Range…

Buenas tardes, Estoy elaborando una macro para enviar por Outlook un rango de celdas de una hoja excel, pero necesito que en el cuerpo del mensaje Outlook se mantenga el mismo formato que tengo configurado en la hoja Excel. Adjunto archivo. Concretamente, sería el rango de celdas D11:K15 de la hoja AVIONES. Por favor, si pudierais echarme una mano con esta macro os estaría muy agradecido. Gracias Saludos Macro correo outlook1.xlsm

Buen día a todos, espero me puedan ayudar... Quiero IMPORTAR UNA TABLA DE "OPERACIONES ABIERTAS" unicamente y que se este actualizando cada determinado tiempo, Me marca un error pero no consigo corregirlo, Sub ObtenerDatosDeLaWeb() Dim htmlDeRespuesta As Object Dim contadorFilas As Long Dim contadorColumnas As Long Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxm12.xmlhttp") .Open "GET", "http://www.myfxbook.com/members/MiguelSaucedo/991260/5229397/xXdymdQeIfUEo6S2NORp", False .send htmlDeRespuesta.body.innternal = .responsetext 'MsgBox (htmlDeRespuesta.body.i…

Buenas!!! A ver si me podéis ayudar, por favor! Tenía el siguiente código que funcionaba con pocos datos: busca.Offset(2, -13).Select With ActiveCell .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear End With Pero al ponerlo en práctica real, me aparece error por recursos insuficientes en Excel ? ¿Esto hay forma de arreglarlo o no es posible? Muchas gracias.

GRUPO AYUDA EXCEL DIOS LOS BENDIGA Y TENGAN USTEDES UN EXCENTE DIA TENGO EL SIGUIENTE CODIGO Y EN RANGO DONDE DESEO COPIAR ES HASTA LA COLUMNA N =CopyToRange:=Range("A5:J2000") CAMBIO EL RANGO A "A5:N2000" Y ME SALE ERROR QUE NO ME PERMITE EJECUTAR LA MACRO SI ALGUIEN PODRIA AYUDAR A MEJORAR EL CODIGO O TALVEZ ESTOY OMITIENDO ALGO DE ANTE MANO GRACIAS Sub CONSULTA_DOC() ' ' CONSULTA_DOC Macro ' ' Acceso directo: Ctrl+Mayús+F ' Sheets("DIARIO").Range("A5:N10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Z5:AA6"), CopyToRange:=Range("A5:J2000"), _ Unique:=False Range("A6").Selec…

Buenas tardes, Amig@s del foro quisiera solicitarles el valioso apoyo con la siguiente consulta: como lograr eliminar un modulo por medio de macro cuando el proyecto se encuentra protegido? he revisado que utilizando la siguiente instrucción se elimina el modulo pero si el proyecto no está protegido en su acceso a vba: ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.CountOfLines En el archivo adjunto he insertado un botón en la hoja que llama al formulario, dentro del formulario he agregado otro botón para llamar a la macro, la clave es: PRUEBA, la idea es que en el modulo 2 cr…

Buenas tardes gracias por este espacio. Solicito su ayuda para una macro que imprima solo las celdas que contienen datos. Tengo un botón que me ayuda a realizar un filtro avanzado y me trae los datos que quiero buscar, pero al realizar en el otro botón la impresión para paso a PDF me las convierte todas y solo quiero que se muestre en el PDF las que se consultaron. Tengo el siguiente código en el botón de impresión. pplication.ScreenUpdating = False If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then Dim HResumen As Worksheet Dim Ruta As String Dim Titulo As String Set HResumen = Worksheets("Resumen") …

Hola muy buenos días, por favor me podrían apoyar de como CARGAR un listado a un COMBOBOX, la condicional es la siguiente: Si la columna B tiene X dato, que se cargue lo que tengo en la columna A, Gracias de antemano por tu apoyo!