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

    • =ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva  
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar,hace mucho que me suscribi a esta pagina y simpre pude subir mi archivo de ejemplo,pero ahora me doy cuenta que si no pago una tarifa de membresia no podre subir ejemplos para que puedan prestar su ayuda 
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar
    • Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos   Sub concatena()     Set DATOS = Worksheets("Verificar Matriz")     Sheets("principal").Select     Range("E15:E5000").ClearContents     rt = 5     RD = 6     RS = 15     Do While DATOS.Cells(RD, 4) <> ""         pasa = 0         For C = 5 To 22             If DATOS.Cells(RD, C) <> "0" Then                 pasa = pasa + 1             End If         Next         If pasa > 0 Then             CADENA = ""             For C = 5 To 22                 If DATOS.Cells(RD, C) > 0 Then                     If Len(CADENA) > 0 Then                         CADENA = CADENA & ","                     End If                     CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34)                 End If             Next             Cells(RS, "E") = CADENA             RS = RS + 1         End If         RD = RD + 1     Loop End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy