All Activity

Prueba y comenta111 Prueba2.xlsm

Muchisimas gracias, que rapido que le ha dado solución. Me imagino que lo podre adaptar a mas cuestionarios y a mas preguntas. Para el numero de orden de las respuestas no ha sido necesario el colocar una columna con los numeros, así desde luego mucho mejor. La estructura de la macro que ha enviado me imagino que el planteamiento mas o menos ha sido buscar las respuestas por cada una de las preguntas en la Hoja de cuestionario horizontal y que le diera a la respuesta el numero de orden en la que se encontraba.? Estoy comenzando y esto de las macros lo veo complicado, cada vez menos, pero me es complejo. Le repito mi agracecimiento. Saludos

Abre el adjunto y pulsa sobre la flecha azul. Observa que he cambiado el diseño de la hoja Cuestionario Horizontal. Ejemplo (1).xls

Como te lo indicaron antes, manualmente o con macros / programación VBA Una idea es que una vez tengas todo actualizado creas una copia en .xlsx y lo compartes Saludos

Hola @JSDJSD, La idea es que el registro se modifique cuando pulso de botón (oculto) de modificar. El que presionas tu es para hacer una entrada nueva. A parte me he dado cuenta de que el botón de eliminar ha dejado de funcionar. Saludos,

Prueba y comenta 111(04082021).xlsm

Puedes entrar por Aquí saludos, Silvia

Te agradezco, eso ya lo había cambiado. gracias. Y dime, donde o con quien tengo que dirigirme para ser miembro de paga?

hola Se me ha pasado algo: Cambia el 7 por mes(D3) =SI(INDICE(MES(Hoja1!D$5:D$9)=MES(D$3),COINCIDIR(B6,Hoja1!B$5:B$9,)),INDICE((Hoja1!D$5:D$9,Hoja1!E$5:E$9),COINCIDIR(B6,Hoja1!B$5:B$9,),,SI(C6="i",1,2)),"")

Voy a revisar no le deja la página subir un archivo nuevo Subí el libro equivocado eso no es lo que ocupo .. Deja busco el libro correcto y comentarte lo que ocupo.. Te agradezco mucho tu ayuda libro alumno maestro.xlsmmuchas gracias por tu apoyo

Buenas tardes, tengo una duda y no estoy sabiendo como resolverla. El caso es que abro una imagen dándole una ruta al código y cada vez que ejecuto la macro esa imagen se carga con un nombre diferente por lo que para poder trabajar con ella es un problema. Me interesaría que una vez he cargado la imagen poder renombrarla para poder manipularla. La ruta que utilizo para abrir la imagen es algo así mydocument.Shapes.AddPicture FileName:="D:\Usuarios\prueba.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _ Left:=100, Top:=100, Width:=270, Height:=270 Saludos

Perfecto!!!! Muchas gracias!!! Lo único que buscaré después es como Editar y poder hacer la búsqueda en el libro REGISTRO SHAREPOINT1 en vez de en la hoja DB del libro Registros Pricing_v.3. Todo lo demás está perfecto! Muchísimas gracias!!!

Hola a tod@s, He creado un codigo para poder modificar los datos de mi tabla y mi listbox. El codigo funciona bien pero el problemas es que me crea un duplicado del registro al modificarlo. Saben porque me sucede esto? Saludos, 111.xlsm

Estimada Silvia, gracias, es justo lo que necesitaba. Gracias nuevamente!.

Hola Leandro; He cambiado lo que me comentas pero veo que no hace nada. Te voy a adjuntar la macro por si hay alguna cosa que esté haciendo mal. Le comentaba también a Antoni si transparencia era igual a opacidad no vaya ser que lo que yo quiero conseguir sea "opacidad" en vez de "trasparencia" He insertado un shape "Cuadadro" y después le inserté la imagen y veo que no hace nada. Si no le es mucha molestia lo prueba y me comenta. Un abrazo y muy buena la macro que has creado. Editar Imagenes.xlsm

Gracias Antoni; Disculpa pero no he podido probar antes. También me ha contestado Leandro. Estoy a vueltas y de momento no he conseguido nada. Le voy a enviar la macro a ver si hay algo en lo que me equivoco. Él me cuenta que se puede hacer con el truco "agregar un shape (forma) con un relleno de imagen," pero algo debo estar haciendo mal. Una duda trasparencia=opacidad ?? Lo digo porqué en Photoshop se utiliza el termino OPACIDAD y no vaya ser que estemos hablando de cosas distintas. Saludos y buen día Antoni.

Buenos Días Me ha surgido una complicación al tener que trabajar con datos y necesito ayuda con este problema que tengo, ya que mis conocimientos de Macros son casi nulos, estoy empezando a raíz de que me ha surgido este problema. Se trata de lo siguiente: tengo que hacer unas encuestas (más de 100 cuestionarios cada vez) que constan de mas de 70 preguntas con sus respuestas correspondientes, las respuestas no están siempre en el mismo orden ni son iguales, las respuestas están en formato texto, pero si que tienen orden con un valor numérico (1,2,3,4,5, ….). La cuestión es la siguiente, la aplicación de encuestas me genera un fichero Excel en el que en la primera fila pone todas las preguntas y hacia abajo las contestaciones de todos los encuestados, pero con su valor literal. Lo que necesito es pasar ese valor literal a un valor numérico según el orden asignado a cada respuesta. En principio he utilizado una función condicional en cada pregunta y luego arrastrando hacia abajo he cambiado los valores de texto por números. Claro esto es un poco farragoso hacerlo para cada una de las más de 70 preguntas, cada función seria distinta puesto que el orden de las respuestas es distinto. ¿Cómo sería posible automatizarlo con macros? ¿En principio he pensado si poniendo en una hoja aparte todas las preguntas, respuestas texto y nº de orden de las respuestas, se podría hacer algo como la función Buscarv y que dependiendo de cada pregunta me seleccionara la respuesta y me devolviera la respuesta en formato numérico?). Envío archivo ejemplo Gracias Ejemplo.xls

Buenos Días. Soy usuario con un manejo medio de Excel. Me ha surgido una complicación al tener que trabajar con datos y he empezado estos días a aprender el manejo de las macros y es así como he llegado a este foro. Saludos a todos.

A ver si esto es lo que buscabas. Nota: He añadido un par de códigos para evitar tener que seleccionar el box cuando vas a realizar un registro nuevo. El archivo REGISTRO SHAREPOINT debe estar cerrado, sino te saltaran errores. Saludos, Registros Pricing_v.3.xlsm REGISTRO SHAREPOINT1.xlsx

Muchas Gracias @Puche!! ahí va el enlace! DropBox https://www.dropbox.com/sh/lnqxaanqleiexpc/AACYAgDj5HjZ_RcoJG1om4iXa?dl=0 o por Google Drive https://drive.google.com/drive/folders/1J-jYM9Xb-4wTXNAu71Mb6W7GqsiyIuuq Una vez mas, Gracias!!!! Un saludo.

Hola @ffernando, Puedes compartírmelo por Drive. Saludos,

¿Cuantas veces más vas a subir el mismo archivo sin datos y sin explicar que es lo que quieres, cuando hay que hacerlo y en que formulario? 🙁

Hola @Puche!! Muchísimas gracias por tan rápida respuesta. Perdón por la ignorancia, pero no he encontrado la manera de compartir el los archivos contigo. Si no es mucho pedir, podrías explicarme y te los envío? De todas formas intentaré poner el código que has pasado en el botón Agregar de mi formulario. Una vez mas, muchas gracias por tu ayuda!!! Un saludo!

Hola las imágenes en Excel no tienen propiedad para cambiar la transparencia (canal alpha) , pero si se puede hacer el truco de agregar un shape (forma) con un relleno de imagen, y a esta si se le puede modificar la transparencia tal como lo marca Antoni mas arriba, seria cuestión de agregar un nuevo scrollbar con un Max = 100 Private Sub ScrollBar6_Change() If CancelEvent = True Then Exit Sub ActiveSheet.Shapes(ShapeName).Fill.Transparency = ScrollBar6.Value / 100 ImportImage End Sub y para tomar su valor en el UserForm_Initialize ScrollBar6.Value = ActiveSheet.Shapes(ShapeName).Fill.Transparency * 100 no va a arrojar error si es una imagen y no un shape, solo que si es una imagen no vera cambios en su transparencia.

Subí el libro equivocado eso no es lo que ocupo .. Deja busco el libro correcto y comentarte lo que ocupo.. Te agradezco mucho tu ayuda libro alumno maestro.xlsmmuchas gracias por tu apoyo