Hola Tengo una parte de la macro que por MsgBox se tiene que seleccionar un archivo (hasta aquí funciona) Do While Olb <> 1 MsgBox "Selecciona archivo ", , "" Olb = Application.GetOpenFilename If Olb <> "Falso" And Olb <> "" And Olb <> 1 Then Exit Do Loop Pero cuando de ese libro que se ha abierto tengo que seleccionar diferentes hojas y luego copiar, me falla en esta linea: Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3) Me podríais ayudar a encontrar la solución Saludos

hola necesito un codigo que me liste las propiedades de una celda en access tenia algo parecido a esto para las porpiedades de un fomulario, algo como si dim pr As Property For Each pr In Me.Properties Debug.Print pr.Name; "="; pr.Value Next [/CODE] necesito algo parecido pero para las propoedades de una celda en excel grcias

Lo que pasa es que programando en vba puse que la hoja de calculo no me la mostrara. Y que solo me mostrara el formulario al abrir el archivo excel. Ahora cuando abro el archivo solo veo el formulario pero no puedo entrar a la hoja de calculo. Alguna ayuda please.

Qué tal, estoy teniendo problemas intentando eliminar la fila completa si no encuentra el valor en el vlookup, intenté filtrando y eliminando después del vlookup, en la condición del vlookup intenté la función .entireRow.Delete y aunque no me marca error, nunca termina de ejecutar la macro completa. ¿ Cómo puedo eliminar la fila completa del valor que no encuentre en el VLOOKUP ? 'VLOOKUP Dim Celda As Range, z As Long Application.ScreenUpdating = False Range("L:L").Clear For z = 2 To Range("B" & Rows.Count).End(xlUp).Row Set Celda = Sheets("Copia").Range("A:A").Find(Range("B" & z), , , xlWhole) If Not Celda Is Nothing Then …

Buenas Noches a todos, Deseo solicitar su valiosa colaboración, ya que no se como programar en Visual para que una celda determinada en Excel le pida al usuario que confirme lo que haya digitado, esto con el fin de validar que no hubo error en la digitación. Pido disculpas por no anexar ningún archivo pero este lo tengo en la oficina y no lo puedo extraer. Quedo atento a sus comentarios y cualquier ayuda en este tema lo agradeceria mucho. Gracias, Jairo Anibal Segura

Buenos días, Después de estar intentando solucionar este tema por mi cuenta no me queda más salida que pedir ayuda. Caso: Tengo una base de datos que contiene unas sección donde refleja con "X" o "!" errores de cumplimentación de datos. Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni ! (está todo correcto). para poder aislar las que tengan errores. Digo eliminar ya que es la única manera que se me ocurre pero quizá uds conocen otra manera de llegar al mismo resultado. A B C D 1 ! 2 3 X ! 4 X Adjunto un archivo a modo de ejemplo que también contie…

Hola, desde ya agaradesco a todos, tengo unas funciones en un archivo xlam (office 2007), que la ejecuto como complemento, y otro libro xlsx en el cual no puedo insertar ningun codigo ya que es del trabajo, en la funciones del xlam tengo varias cosas que me ayudan a realizar mi trabajo mas rapido, lo que necesitaria es porder obtener los eventos del xlsx (o sea desde fuera del libro xlsx), por lo menos que celda se avtivo asi las funciones del xlam me agregarian cosas en el menu contextual. atte.

Buenas noches a todos: He creado una macro que me abre varios UserForm en los cuales introduzco datos de sustancias químicas tales como nombre, fabricante y algunos aspectos de seguridad: [ATTACH]40261.vB[/ATTACH] Los datos llenados en el UserForm se vacían en esta hoja de excel: [ATTACH]40262.vB[/ATTACH] Me gustaría agregar un botón (o como se diga, soy nuevo en esto) en el userform llamado: "Adjuntar Hoja de Seguridad de la Sustancia" que al darle click me abra una ventana para explorar las carpetas del ordenador y ubicar la Hoja de Seguridad Solicitada, una vez hecho esto que se cree un hipervínculo a ésa hoja en el nombre de la sustancia corre…

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, si me pueden ayudar para crear una macro que lea los valores de la segunda columna (B1:B"X") en Excel y separe en otra hoja los valores que encontró repetidos. Me piden un informe de cuáles son los valores que están repetidos en una BD muy extensa. Les agradecería su colaboración.

Desde ya agradezco por su gentil ayuda en los diferentes ejemplos que me han sido muy útiles y en esta oportunidad recurro nuevamente para un ejemplo en que cual me permita enviar los email por hotmail.

Buenos dias Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto), lo que se pretende es realizar una tabla de amortizacion partiendo de ciertos datos, los datos de la tabla son colocados a partir del rango B15 hacía abajo y hacia la derecha hasta la columna G, todo me funciona bien, excepto cuando el plazo de amortizacion es igual a 1, en la columna C,fila 16, se genera una repeticion de la formula ubicada en C15. Tabla de Amortizacion.xlsm

Buenas tardes; Tengo un problemilla con una formula, he intentado grabarla desde excel pero al ser tan larga y tener tantas "" me da problemas, se podría sustituir las "" de la formula ( en la macro ) de alguna forma. Muchas gracias. - - - - - Mensaje combinado - - - - - Pd: he intentado sustituir las doble comillas por & Chr(34) &, pero me da error 1004.

Hola, les cuento que estoy haciendo una tablero en excel en donde aparecen varios indicadores y necesito lo siguiente: En el tablero puse "conditional formating" de manera de que de que aparezca un simbolo (rojo, amarillo o verde) segun el valor del indicador. Me gustaria que cuando se pase po arriba del icono de color, apareciera una "leyenda" en donde dijera: <5 ROJO >5 y <10 AMARILLO >10 Verde De manera que se sepa que quiere decir cada color en cada caso particular (cada uno de los indicadores tiene un diferente rango para los colores y estos estarían linkeados con otras celdas que cambiarian) . Yo no se nada de programación y no tengo demasiado tiem…

Hola que tal, un Saludo a todos Antes que nada una disculpa por preguntar algo que a lo mejor es muy sencillo pero yo lo ignoro Estoy tratando de modificar el formato del texto que aparece en la barra de titulo de un UserForm, pero no he podido hacerlo, alguien sabe como se puede hacer?, o esto no puede ser modificado. De antemano les agradezco mucho su ayuda Saludos!!!! Arturo

Buenas tardes a tod@s; Esta tarde me ha surgido otro problemita que …..por más vueltas que doy no sé cómo solucionarlo (si se puede, que me está oliendo que no ). Esto haciendo una consulta de Access a Excel por SLQ contando con 2 condiciones, la condición 1 es si tiene el dato xx y la condición 2 es que no tenga el dato xx, el problema que tengo es que en la columna de la condición 2, hay celdas en blanco que debería de contar y no las cuenta, solo cuenta lo que tiene dato. He probado de varias formas pero no doy con ello. Os adjunto la línea que tengo. Query = "Select count (Motivo) from consulta where Motivo ='CIERRE ROTO' And tipo_hnc …

Estoy tratando de armar un catalogo con imágenes, pero las imágenes las insertamos desde muchas ubicaciones con nombres raros y pretendo corregir eso, PERO NO PUEDO !!! Alguien me podría ayudar por favor !!!!! DE ANTEMANO GRACIAS P.D. Adjunto archivo ejemplo.

Hola. Tengo un formulario con la propiedad ShowModal = false. Esta propiedad me permite hacer click en cualquier celda pero necesito también poder desplazarme con las teclas arriba y abajo dentro de la hoja. Muchas gracias

Saludos, Tengo una macro con un formulario de registro en excel, necesito que los campos de número sean numéricos y no de texto como se encuentran en la hoja "TABLAS" estos son los nombres de las columnas que necesito con formato número: (FACTURA-VALOR-DESCUENTO-AVERIA-RETENCIÓN-RETEICA-PAGO), también requiero que en la columna "PROVEEDOR" me deje registrar en la filas nombres repetidos, puesto que la macro no deja repetir nombres en esta columna. Adjunto archivo con la macro. Gracias por su colaboración. Hugalex10 LibroDiario JM.rar

Me gustaria que me explicaran paso a paso este codigo, gracias de antemano. Dim ligne, débutOrg, f, forga, inth, intv, Tbl(), n, d Sub DessineAscendants() Set forga = Sheets("BD") Set f = Sheets("bd") Set d = CreateObject("Scripting.Dictionary") Tbl = f.Range("A2:I" & f.[A65000].End(xlUp).Row).Value n = UBound(Tbl) Set débutOrg = forga.Range("I23") ligne = 0 inth = 60 intv = 40 liginit = ActiveCell.Row - 1 lig = ActiveCell.Row - 1 couleur = IIf(Tbl(lig, 4) = "M", f.Cells(2, 2).Interior.Color, f.Cells(2, 3).Interior.Color) créeShapeP Tbl(lig, 1), couleur, 0, IIf(Tbl(lig, 4) = "M", "AM", "AF"), " " End Sub

Buenos días, tengo una consulta. Tengo una tabla en excel con muchas líneas, la cual se actualiza desde otra en access. El problema es que la tabla de access son muchas líneas (tiene datos de 2010, 2011, 2012 y 2013) y al actualizarse la de tabla excel tarda mucho. Mi consulta es ¿Se puede actualizar la tabla excel con los datos de access, pero solo los datos a partir de una fecha determinada mediante código en VBA? Es decir que solo se actualicen los datos a partir de 2013. PD:Sé que tendría que adjuntar un archivo pero como es una consulta sobre actualizar datos desde excel no sé cómo hacerlo.

Buenas tardes, Que podría hacer en la macro del formulario, para que el textBox con formato de fecha (dd/mm/yyyy), cuando lo lleve a la celda de la hoja lo coloque como número, y no tenga que recurrir a la opción de Datos-Texto en columnas. Gracias. Adjunto archivo prueba.xlsm

Buenos días, ¿alguien sabría decirme si es posible importar datos de una web que tiene un boton para exportar datos a Excel?, al pulsar ese boton se abre el diálogo para efectuar la descarga, hay que aceptarlo y al momento se abre una excel con los datos importados, esto quería hacerlo en automático con Excel, ¿me podríais dar alguna pista de por donde van los tiros? (he utilizado el buscador y he visto muchas consultas sobre importar datos Web, eso es sencillo, pero no encontré nada con un botón de exportar a excel en la web...) Gracias! Un saludo.

Saludos amigos. hoy les escribo para solicitar d eustedes una ayuda en el siguiente problema que tengo. Yo tengo en excel un libro en el cual esta compuesto por diferentes userform. y lo que quiero es que cada uno de esos userform llenen una base de datos en acces y no en excel. por ejemplo al ingresar los datos en el userform2 al clicar en guardar este no guarde los datos en otra hoja de excel sino en acces donde tengo una base de datos con esos mismo criterios. osea lo que yo quiero hacer es que excel solo sirba para entrar los datos y acces sirba como base de dato genarl, pues tambien me gustaria que en los demas formularios como Registro de nuevo usuario, registro de…

Hola, en mi trabajo me pidieron hacer una Macro para un archivo de Excel que bajamos de nuestro Sistema, donde viene todas las deudas de todos nuestro nuestros clientes. Lo que quieren que haga esta macro es que al seleccionar yo cierto cliente, se envien las deudas que este tiene a Outllok para poderlas enviar por correo. He visto muchos temas donde se envian archivos de Excel por correo, pero no me sirven porque yo no quiero enviar el libro completo, solo cierto rango, me podrian ayudar? Les adjunto el archivo ejemplo. Saludos Ejemplo Clientes.xls