Jump to content

Presentación Rubén Martínez


rmartinez

Recommended Posts

Hola:

Acabo de registrarme en AyudaExcel. Llevo muchos años trabajando con Excel, pero nunca lo he aprendido de una forma estructurada. El uso más avanzado que le doy a Excel son modelos financieros de proyectos de energía renovable. Me considero un usuario bastante avanzado, aunque excluyendo fórmulas matriciales y VBA, temas en los que en alguna ocasión me he asomado pero nunca he llegado a dominar.

Saludos,

Rubén Martínez

Link to comment
Share on other sites

Bienvenido a Ayuda Excel Rubén,

Uno de los principales obstaculos a la hora de aprender a utilizar Excel es hacerlo a través de vídeos y cursos no estructurados. Los vídeos enseñan a utilizar herramientas, hacer el cálculo que necesitas en ese momento o, en definitiva, a quitarnos el problema con Excel de encima.

He tenido oportunidad de trabajar en un proyecto financiero de energía solar y he de confesar que fue todo un reto, pues no conocía nada de ese sector y terminé aprendiendo sobre tramos, franjas horarias y potencias, más de lo que me imaginaba...

Espero que Ayuda Excel te ayude a impulsar tus conocimientos sobre hojas de cálculo.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Muchas Gracias Janlui. Funciona perfecto, veras que he añadido a la macro una última línea que es la que crea el fichero final TXT en una ubicación concreta. Lo que no se es porque una vez generado el TXT la última parte la vuelve a entrecomillar (en la hoja 5 del fichero que adjunto veras un pantallazo del TXT que genera) Repito, muchas gracias por la ayuda Saludos       Ejemplo3.xlsm
    • Observé un pequeño error, espero ya esté bien. Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 7 To 11             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 12 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Disculpa que no te lo regrese en el archivo, pero mi nivel de membresía no me permite completar al 100% el apoyo que solicitan.
    • Copia la macro y el resultado lo pondrá en la Hoja2... Saludos Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 6 To 10             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 11 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Todas tus celdas deberán tener formato numérico.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy