xafel

Ya lo he resuelto, he encontrado este código en una página lo he adaptado y me funciona perfectamente If Target.Column = 4 Then [K3] = Cells(Target.Row, 3)

Adjunto la macro que crea y nombra las nuevas hojas por si alguien lo necesita, Sub CREAR() Application.ScreenUpdating = False Worksheets("0").Visible = True 'Worksheets("1").Copy After:=Sheets(Sheets.Count) Worksheets("Relación").Visible = False Dim...

Solo por si alguien lee la pregunta y necesita la respuesta, adjunto la manera en que funciona bien año = TextBox1 'Acumulamos For x = 5 To Range("A" & Rows.Count).End(xlUp).Row If año = Year(Range("A" & x)) Then Mes = Month(Range("A" & x))...

Tema resuelto cambiar range por cells a base de probar Me.TextBox1.Text = Sheets("cumple").Cells(final, 3)

Exactamente no entiendo lo que necesitas pero te adjunto un código por si te sirve: ListBox1.RowSource = "tabla" Este lo tengo colocado en UserForm_Activate() y pone todos los datos de la tabla al abrir el form.

Si numentrada es un textbox en formulario y es un numero que va aumentando cada entrada puedes usar este código adaptándolo TextBox11 = hoja1.Range("a65535").End(xlUp).Value + 1

Lo he resuelto probando cositas os lo cuento por si a alguien le puede ser útil. He activado de nuevo el setfocus del textbox1 con lo cual se llena, antes se me bloqueaba el combobox pero he puesto esto y se me vuelve a activar Saludos Private Sub...

Prueba a adaptar esto a tu hoja Hoja4.Cells(Final, 2).NumberFormat = (00.00)

Yo uso este código en un form en el textbox13 pongo el numero del expediente y se me pone la imagen de la portada en un cuadro de imagen, mira a ver si lo puedes adaptar al tuyo Saludos Private Sub textBox13_change() 'busco i coloco la imatge 'el...