Katinga

Bueno, no voy con mucho tiempo, pero prefiero ir poniendo algo a ver si mientras voy aclarando conceptos. Lo que intento es buscar varias macros, relacionadas con el BuscarV - La macro correspondiente a CurrentRegion, no soy capaz de que funcione, - Tampoco soy capaz de ejecutar la que lleva el codigo con "Find" He mirado lo que me indico "mjofra" sobre CurrentRegion, y si lo entiendo pero no soy capaz de hacerla funcionar en macro. Curiosamente si lo hice en otra tabla, pero no se porque en esta no va. Subo el archivo, para irlo completando y asi poder tener todos los códigos en orden

Re: pegar textbox numerico con formato numero Carai Logastur, estas al acecho Casi me quedo con la segunda opción, es algo mas absurda pero menos compleja en cuanto a código, ya que la primera habria que darle formato a B6 para que registrara decimales. Gracias de nuevo

Ya estoy aca de nuevo. Me sucede una cosa curiosa, que desconozco el porque lo hace. Subo un archivo para que lo veais. Si doy formato número a todo el rango B y pongo en el textbox1 un número introducido a mano en la celda B4, al ejecutar la macro me pega el número en la celda B6 pero con formato texto. Por muchas vueltas que le de no soy capaz que siga respetando al rango B4 como formato numero Os vuelvo a dejar el enlace en megaupload: http://www.megaupload.com/?d=3CQ4OXTS

Ok. Tambien funciona. MyRango = Sheets("Hoja2").Range("B4:F" & Sheets("Hoja2").Range("B" & Rows.Count).End(xlUp).Row) Sheets("Hoja1").Range("B8").Value = _ Application.WorksheetFunction.VLookup(Hoja1.[b5], MyRango, 5, False) Ciertamente son dos formas distintas de buscar un valor. A tu juicio ¿Cual de las dos es la mas correcta?

Hola Logastur!! Ultimamente te tengo atareado. Le he pasado un vistazo a tu código y es perfecto. Eres un fenomeno. A pesar de todo ya se en que fallaba mi código pero no se como solucionarlo. El problema lo tenia con el CurrentRegion. Asi no funciona: Sheets("Hoja1").Range("B8").Value = _ Application.WorksheetFunction.VLookup(Hoja1.[b5], Sheets("Hoja2").Range("B4").CurrentRegion, 5, False) Pero asi si: Sheets("Hoja1").Range("B8").Value = _ Application.WorksheetFunction.VLookup(Hoja1.[b5], Sheets("Hoja2").Range("B4:F11"), 5, False) Si acoto el rango de busqueda funciona perfectame

Me esta pasando algo curioso. Intento buscar en la hoja2 el precio de lo que pongo en la celda B5 de la hoja1 y me da error. He modificado el codigo para que la busque en la hoja3 y funciona, pero en la hoja2 no va ¿Que estoy haciendo mal? Como no puedo subir el archivo, os dejo un enlace de Megaupload http://www.megaupload.com/?d=EJWPQFE1 Graciñas

Re: Advertencia Seguridad: Vinculos Ha funcionado perfecto. Ahora ya se porque me aparece. Supongo que como todos para ir probando macros, estas las desarrollo primero en un archivo tipo prueba, y si funcionan las exporto al archivo principal. Y lógicamente aunque no tenga que recoger ningun dato del archivo primitivo "prueba" crea los vinculos con él. Muchas gracias Logroastur

Desde hace unos días, que estoy trabajando en un archivo con macros, me aparece en la parte de arriba del excel 2007, el siguiente texto: Advertencia de seguridad: Se ha deshabilitado la actualización automática de los vinculos Tengo que darle a Opciones y seleccionar habilitar para que desaparezca. Y esto cada vez que abro el archivo. He buscado informacion al respecto y solo soy capaz de solucionarlo si entro en: Opciones de excel - Centro de confianza - Configuracion del centro de confianza - Habilitar actualizacion automatica de todos los vinculos del libro (no recomendado) Ciertamen

Me respondo a mi misma en esta pregunta chorra, pero la verdad es que me esta dando un juego impresionante: ActiveSheet.Shapes(1).TextFrame.Characters.Text = vbCrLf & "Esto funciona"

Ok. Chicos muchas gracias Tengo un poco desierto de codigos esta parte que corresponde a los cuadros de texto. Pongo el código completo para quien le haga falta: Sub prueba() ActiveSheet.Shapes(1).TextFrame.Characters.Text = Empty ActiveSheet.Shapes(1).TextFrame.Characters.Text = "Hola a todos" End Sub ¿ST a que te refires con solo agregar? ¿Hay otras posibilidades a parte de solo escribir? En serio que pense que en Excel con cuadros de texto, habia pocas posibilidades de combinaciones. Hasta igual existe un codigo para insertar y borrar ese mismo cuadro de texto. Y ya puestos: ¿

Ya me parecia que cuando hice referencia a los cuadros de texto lo confundiríais con los Textbox. Me refiero a cuadro de texto al puro y duro cuadro de texto. Adjunto documento. Tiene que existir una macro para seleccionarlo y que escriba automáticamente el texto que quieras dentro de él. [ATTACH]16390.vB[/ATTACH] Libro1.zip

Hola chicos: Hace tiempo que no pongo un post, así que me voy a animar!!! No he tenido mucho tiempo para buscar por la red, pero necesito una macro que me seleccione un cuadro de texto, existente dentro de una hoja de Excel e inserte en él una frase cualquiera. Seguro que vosotros ya sabeis algo sobre esto. Muchas gracias a todos.

Respuesta: Imprimir en PDF No esta mal. Pero me parece demasiado compleja Quizas teniamos que pulirla para que fuese mas directa.

Respuesta: Imprimir en PDF Eso precisamente es a lo que me referia, supongo que tiene que no tiene que ser tan complejo. Seguire trabajando en ello, pero realmete ahora mismo estoy un poco atascada, ando buscando el codifo que generamo cuando combinamos dos PDF, de este modo podremos generar 3 archivos independientes y combinarlos en uno solo. Un saludo ST