Jump to content

Haplox

Members
  • Content Count

    2,974
  • Joined

  • Last visited

  • Days Won

    98

Everything posted by Haplox

  1. El código que buscas es el siguiente. Lo puedes asignar a un botón, o incluirlo en algún módulo Dim ctrl As Control For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "ComboBox" Then ctrl.clear End If Next
  2. ¿Y porqué desde el formulario? Tienes esa opción en los eventos del libro Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  3. @mcisneros, no entiendo tu duda. Dices apellidos pero luego hablas de los nombres... que en tu ejemplo son distintos y no coinciden . Pero es que tampoco coinciden los apellidos Luego en la macro, ordenas una tabla (LisObject) que no existe. No sé, creo que tienes suficientes criterios para que al buscar te discrimine solo un registro. Si no es así, explica qué valor pones para buscar y sobre qué columna de la otra hoja buscas
  4. @jeaa, te dejo una solución. Prueba y comenta Proyecto.xlsm
  5. @luquiluk, te dejo una solución. Ten cuidado, porque está preparada para las hojas que necesites, pero siempre en el formato de rangos que tienes ahora, o sea... que "CASA" esté en B5, si no tendrías que empezar a tocar rangos y deirecciones. Aparte, revis los libros de las casas, por que en uno de los que has subido, los datos totales no estaban en la fila 14, sino en la 13 y entonces "parece" que la macro no funciona Copia de Resumen.xlsm
  6. No todo es tan fácil como piensas... . SI tengo tiempo mañana te subo algo a ver si es lo que necesitas
  7. Si te refieres a que prefieres el cambio por formato condicional, me temo decirte que VBA no es capaz cuándo se produce un cambio en una hoja por un formato condicional. Te dejo una solución, poniendo "x", "X" o dejando vacía la celda A1. La macro se ejecuta automáticamente Libro1.xlsm
  8. Yo no tengo ni idea de amortizaciones, y menos en francés (), pero si explicas bien qué necesitas, se puede crear el código. Me refiero si serían todas fechas relativas a una sola inicial, si sería mensual, anual o cómo... esas cosas
  9. Cambia la línea por lo siguiente: Range("C2").FormulaLocal = "=SUBTOTALES(9;C5:C" & LR & ")" Busca la diferencia entre "Formula" y "FormulaLocal". En resumen, si quieres insertar una función EN TU IDIOMA (vamos, el del SO y Excel), debes usar FormulaLocal (incluido tu separador, coma o punto y coma" "Formula" espera la expresión en el "lenguaje" de VBA... vamos, en inglés
  10. Hombre, al menos sube el Resumen con todos los campos de la tabla que puede tener. Luego ya es buscar la hoja y poner el dato. Si no es un jaleo ir comprobando hoja por hoja si está en la tabla
  11. @luquiluk ¿Porqué no subes un par de esos archivos y el libro base, con un ejemplo en él de lo que quieres conseguir de los otros libros? Si no va ser imposible, al menos por mi parte
  12. Joder, te explicas como esos libros cerrados... ¿Pero lo que quieres es crear una lista de todos los datos de esa celda R8 en un libro base?
  13. Pero en la misma celda R8 ¿El qué? . Explica un poco mejor qué es lo que quieres copiar de cada libro y dónde
  14. @Caballero Rojo , aparte de que es necesario subir el archivo de ejemplo, prueba con Me.LISTA.List(Y, 1) =CDate(Sheets("PLANILLA").Cells(File, 3).Value)
  15. Hello @A.Maurizio. In this case I can not help you (I hve not enough knowledgement about this), but search in the forum for scraping
  16. @jalomiva ,el problema estáen losformatosdedatos que usas. En el combobox siempre vas a tener un string, y sin embargoenla hoja está en formato número. El comando"CStr" convierte a formato String. Cambia esta línea: If CStr(Hoja5.Cells(I, 1)) = Me.ComboBox1 Then
  17. No sé si en realidad te simplificará algo, pero lo que buscas es: Dim contr As control For Each contr In UserForm1.Controls If TypeName(contr) = "ComboBox" Then contr.AddItem = celda2 End If Next contr
  18. Me alegro 👍. Madre mía que mayor eres... 😇. Yo acabé mi carrera a final de los 80 y tú ya llevabas media vida progamando
  19. Si eso dos rangos no son iguales en tamaño, no te va a dejar. <es el comportamiento de Excel. Si lo quieres copiar al final, simplemente selecciona esa celda y pega. SI lo quieres pegar al principio, pues elige esa celda y copia
  20. ¿Pero qué es lo que no consigues? Porque esos son los 2 comandos para proteger la hoja. ¿Has probado piniendo contraseña? Hoja1.Protect contraseña
  21. Te lo dejo ya solucionado, pero lo de la edad no me da el error que dices 🙄 Copia de Copia de COMPARATIVO.xlsm
  22. @ubimur , si te sirve con macros te dejo una solución. Solo tienes que poner el valor y validarlo con enter Copia de COMPARATIVO.xlsm
  23. Madre mía.... 🤣. Seguro entonces que te encanta rememorar viejos tiempos https://eltamiz.com/elcedazo/series/historia-de-un-viejo-informatico/
×
×
  • Create New...

Important Information

Privacy Policy