Jump to content

TextBox marca error 1004 si introduzco mas de 910 caracteres


Recommended Posts

Buenas tardes estoy aprendiendo esto de Macros y VB, estoy haciendo una aplicación que capture desde una macro e inserte los valores en una hoja de excel, la verdad es que ahí la llevo solo que cuando llego a un TextBox que debe llevar mucho texto y meto mas de 910 caracteres me marca error 1004 en tiempo de ejecución, error definido por la aplicación o el objeto.

Buscando y buscando en Internet no he encontrado como hacerle para hacer funcionar esto, lo que me interesa es que 2 textbox puedan capturar un texto ilimitado sin marcar error o algo que los sustituya.

el código es el siguiente (aclaro que lo he copiado y modificado de internet):

Private Sub CommandButton1_Click()
Load Datos_Calificacion
Datos_Calificacion.Show
End Sub

Private Sub TextBox1_Change()
Range("AF6").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("AG6").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub

Private Sub UserForm_Click()

End Sub[/CODE]

Les agradeceré me puedan decir como solucionar este problema gracias.

Link to comment
Share on other sites

Archived

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

  • 60 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      167
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    1    0

  • Crear macros Excel

  • Posts

    • Hola de nuevo @JSDJSD. Efectivamente, hay temas con el tema de la tabla al arrastrar (lo hice sin probarlo en tu hoja, y no caí en cuenta que era formato tabla).  Se puede hacer de cualquiera de las dos formas que te muestro: =SI.ERROR(INDICE(FILTRAR(CAMPOS[[Campo]:[Campo]];CAMPOS[[Subfamilia]:[Subfamilia]]=$A2);COLUMNAS($B2:B2));"") =SI.ERROR(INDICE(FILTRAR('CAMPOS'!$C$2:$C$27;'CAMPOS'!$B$2:$B$27=$A2);COLUMNAS($B2:B2));"") Ambas son dinámicas a la hora de aumentar elementos en las tablas.  ¡Bendiciones!
    • Hola  John Jairo V       aplicando tus indicaciones creo que no me funciona y en formulas yo estoy muy crudo, la aportación que me dio Israel Cassales  me vale para solucionarlo pero sería interesante aprender otra formula diferente,  muchas gracias y un saludo. 
    • Private Sub CommandButton1_Click(): Application.ScreenUpdating = False With Hoja1 .Range("D2", "E" & .Range("A" & .Rows.Count).End(xlUp).Row).ClearContents ' Aplicar filtro avanzado en columna A y copiar resultados a columna R .Range("A:A").AdvancedFilter 2, , .Range("R1"), 1 ' Inicializar una variable para almacenar la clave Dim clave As Variant ' Recorrer las filas desde la segunda fila hasta la última fila en columna R For x = 2 To .Range("R" & .Rows.Count).End(xlUp).Row clave = .Cells(x, 18) ' Obtener el valor de la celda en la columna R ' Recorrer la columna A para buscar coincidencias con la clave For Each buscado In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row) If buscado = clave And .Cells(buscado.Row, 2) = "A" Then posicion = buscado.Row ' Almacenar la posición de la coincidencia End If ' Verificar las condiciones y realizar las acciones necesarias If buscado = clave And .Cells(buscado.Row, 2) = "A1" Then .Cells(posicion, 4) = .Cells(buscado.Row, 3) ' Copiar valor a columna D ElseIf buscado = clave And .Cells(buscado.Row, 2) = "A2" Then .Cells(posicion, 5) = .Cells(buscado.Row, 3) ' Copiar valor a columna E Exit For ' Salir del bucle una vez que se encuentre una coincidencia A2 End If Next Next x ' Eliminar la columna 18 (columna R) .Columns(18).Delete End With End Sub   Ejemplo_FORO.xlsm
    • Prueba y comenta CONTROL MEC DENTAL macros.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy