Jump to content

MOSTRAR VALOR DE CELDA A TEXTBOX USERFORM


Recommended Posts

En 26/7/2021 at 2:09 , Antoni dijo:
TextBox6 = Sheets("La hoja que quieras").Range("C10")

 

Ya lo hice así y me lo mostró y después ya no ..

También lo intente así textbox6.text=hoja1.Range("C10").text

 

 

 

Link to comment
Share on other sites

Hace 7 horas, JSDJSD dijo:

Algo como esto es lo que buscas ?, prueba y comenta

GIF.gif

libro alumno maestro.xlsm 26.35 kB · 0 descargas

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

Hace 19 horas, JSDJSD dijo:

Sube tu archivo

libro alumno maestro.xlsmmuchas gracias por tu apoyo

Link to comment
Share on other sites

Hace 6 horas, Antoni dijo:

¿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? 🙁

Hace 6 horas, Antoni dijo:

¿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? 🙁

Voy a revisar no le deja la página subir un archivo nuevo :(

Hace 21 horas, JSDJSD dijo:

Algo como esto es lo que buscas ?, prueba y comenta

GIF.gif

libro alumno maestro.xlsm 26.35 kB · 0 descargas

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

En 2/8/2021 at 21:30 , JSDJSD dijo:

Sube tu archivo

libro alumno maestro.xlsmmuchas gracias por tu apoyo

Link to comment
Share on other sites

  • 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