Dante Amor

No es necesario cambiarse a la "hoja de trabajo", solamente hay que hacer referencia a la hoja. Pon lo siguiente para llenar tu combobox1 Private Sub UserForm_Activate() 'Cargar hojas en el combobox1 For Each h In Sheets ComboBox1.AddItem h.Name Next...

En excel hay varios formatos de txt Guarda tu archivo con cada una de esas opciones, revisa el archivo para ver cuál es el que necesitas. Una vez identificada la opción, regresa a excel, activa la grabadora de macros, guarda el archivo utilizando la...

¿Tienes la carpeta protegida contra escritura? Probé tu macro y no tengo problemas. Prueba con esta otra versión Private Sub Exportar_a_Txt() 'Por.Dante Amor nFileNum = FreeFile nombrearchivo = "batch" rutaarchivo = ThisWorkbook.Path & "\" &...

Pon la siguiente fórmula en la celda G2 de la hoja "RECETADO" =Si(Si.Error(Coincidir(C2;Cartera!$C$2:$C$5000;0);"")="";"";Sumaproducto(Max((Cartera!$C$2:$C$5000=C2)*(Cartera!$A$2:$A$5000)))) Si tus datos en la hoja "Cartera", son más de 5000, cambia...

Envíame tu archivo con los datos originales, también me anexas otros 2 archivos de excel con 2 usuarios como ejemplo para ver cómo quieres la salida. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “idaira aleman” y...

Te anexo la macro para actualizar el libro2, cambia en la macro por los nombres de tu libro y de tus hojas. Sub Comparar() 'Por.Dante Amor Set l1 = ThisWorkbook 'libro1 con la macro Set h1 = l1.Sheets("Hoja1") 'hoja1 del libro1 Set l2 =...

Tendrías que enviarme un archivo y explicarme qué quieres copiar y en dónde lo quieres pegar. Envíame un archivo con 2 hojas, en la primera hoja me pones qué quieres copiar y en la segunda hoja me pones en dónde lo quieres pegar. Es decir, trata de...

Prueba con esta opción Crea una hoja llamada "temp". Los títulos deberán estar en la fila2, y cada título de B2 hasta F2 deberán tener un título diferente y sin títulos vacíos. Private Sub TextBox1_Change() 'Act.Por.Dante Amor Set h1 =...

Tal vez si pusieras el código de una macro te pueda ayudar a corregir el código. Te pongo un ejemplo. Supongo que tienes algo parecido a esto en tu macro: Sub codigo1() Sheets("enero").Select Range("A1").Select Selection.Copy...

Revisa que en la celda Range("AS111").Value tengas un número, revisa que efectivamente sea un número, puede ser que tengas un texto, o puede ser que la celda está vacía. Borra el contenido de la celda, revisa que el formato de celda sea General o...