Excel Macros - formulario label que se llene automáticamente al ingresar datos en un textbox

Estoy desarrollando un formulario en VBA excel de las ventas de una empresa, pero quiero que al ingresar el código del cliente (textbox), aparezca automáticamente sus nombres en un label, desde una hoja donde tengo registrados todos los clientes, y si es nuevo que en el label diga "no existe".

He tratado de armarlo pero no he podido, solo tengo la macro para enviar los datos a una hoja excel, por favor ayudenme, gracias de antemano

Option Explicit
Private Sub CommandButton2_Click()
Dim fila As Long
Dim duplicados As Boolean
Dim i As Long

'Obtener la fila disponible
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 2
MsgBox fila
duplicados = False
'Validar si se han ingresado datos duplicados
For i = 8 To fila
If Cells(i, 6).Value = Fcompra.TextBox5.Value Then 'RUC
If Cells(i, 3).Value = Fcompra.TextBox2.Value Then 'TCOMP
If Cells(i, 4).Value = Fcompra.TextBox3.Value Then 'SERIE
If Cells(i, 5).Value = Fcompra.TextBox4.Value Then 'NUMERO
'Se encontraron datos duplicados
MsgBox "Datos duplicados en la fila " & i
duplicados = True
End If
End If
End If
End If
Next i
If Not duplicados Then
'Insertar datos capturados
Cells(fila, 1).Value = Fcompra.TextBox1.Value 'fecha emision
Cells(fila, 3).Value = Fcompra.TextBox2.Value 'tipo comprobante
Cells(fila, 4).Value = Fcompra.TextBox3.Value 'serie
Cells(fila, 5).Value = Fcompra.TextBox4.Value 'numero
Cells(fila, 6).Value = Fcompra.TextBox5.Value 'RUC
Cells(fila, 7).Value = Fcompra.TextBox6.Value 'moneda
Cells(fila, 8).Value = Fcompra.TextBox7.Value 'op1
Cells(fila, 9).Value = Fcompra.TextBox8.Value 'baseop1
Cells(fila, 10).Value = Fcompra.TextBox9.Value 'igvop1
Cells(fila, 11).Value = Fcompra.TextBox10.Value 'op2
Cells(fila, 12).Value = Fcompra.TextBox11.Value 'baseop2
Cells(fila, 13).Value = Fcompra.TextBox12.Value 'igvop2
Cells(fila, 16).Value = Fcompra.TextBox13.Value 'fecha_Anexo
Cells(fila, 17).Value = Fcompra.TextBox14.Value 'serie_anexo
Cells(fila, 18).Value = Fcompra.TextBox15.Value 'numero_anexo
Cells(fila, 21).Value = Fcompra.TextBox16.Value 'F_detrac
If Fcompra.TextBox16.Value <> "" Then
Cells(fila, 20).Value = 1 'cod detrac
End If
Cells(fila, 23).Value = Fcompra.TextBox17.Value 'n_detrac
Cells(fila, 22).Value = Fcompra.TextBox18.Value 'M_detrac
Cells(fila, 22).Value = Fcompra.TextBox19.Value 'm_percep
Cells(fila, 24).Value = Fcompra.TextBox20.Value 'cta_percep
Cells(fila, 14).Value = Fcompra.TextBox21.Value 'cuenta
Cells(fila, 15).Value = Fcompra.TextBox22.Value 'cont_cred
Cells(fila, 25).Value = Fcompra.TextBox23.Value 'glosa
Cells(fila, 26).Value = Fcompra.TextBox24.Value 'observaciones
'Limpiar cajas de texto
Fcompra.TextBox1.Value = ""
Fcompra.TextBox2.Value = ""
Fcompra.TextBox3.Value = ""
Fcompra.TextBox4.Value = ""
Fcompra.TextBox5.Value = ""
Fcompra.TextBox6.Value = ""
Fcompra.TextBox7.Value = ""
Fcompra.TextBox8.Value = ""
Fcompra.TextBox9.Value = ""
Fcompra.TextBox10.Value = ""
Fcompra.TextBox11.Value = ""
Fcompra.TextBox12.Value = ""
Fcompra.TextBox13.Value = ""
Fcompra.TextBox14.Value = ""
Fcompra.TextBox15.Value = ""
Fcompra.TextBox16.Value = ""
Fcompra.TextBox17.Value = ""
Fcompra.TextBox18.Value = ""
Fcompra.TextBox19.Value = ""
Fcompra.TextBox20.Value = ""
Fcompra.TextBox21.Value = ""
Fcompra.TextBox22.Value = ""
Fcompra.TextBox23.Value = ""
Fcompra.TextBox24.Value = ""
'Notificar al usuario
Dim rpta As Integer
rpta = MsgBox("Datos insertados en la fila, Desea Continuar?")
End If
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

2 Respuestas

Respuesta
1

Carlos Llerena,

Adjunto enlace archivo excel con un ejemplo el desarrollo de tu consulta para su revisión.

Rellena los Textbox automaticamente cuando se ingresa un valor en otro textbox.

Espero que te sirva de ayuda y este acorde a tu necesidad. Cualquier consulta estaré pendiente.

Por favor no olvidar de valorar las respuestas. Muchas gracias!

Formulario Label que se llene automáticamente al ingresar datos en un textbox

ANDER GS

Ander Gracias por ayudarme, la macro funciona bien, pero el cuadro lo ejecuto en una hoja llamada "ventas", y los códigos de los clientes están en otra hoja "ruc", la macro no logro adecuarla para que funcione con datos de un hoja distinta

Carlos Llerena,

Adjunto el archivo modificado para su revisión y adaptación a tus necesidades.

Espero que ahora este acorde a tus necesidades. Cualquier consulta estaré pendiente.

Por favor no olvidar de valorar las respuestas. Muchas Gracias!

Formulario label que se llene automáticamente V2

Ander GS

Respuesta
1

Pon el siguiente código en un botón para validar lo captura en el textbox

Nota: El código es un ejemplo, debes poner tus datos reales, nombre de hoja, nombre de textbox, nombre de label, columna donde se busca, etc

Private Sub CommandButton1_Click()
'Buscar código de cliente
    Label1.Caption = ""
    Set h = Sheets("Hoja1")
    If TextBox1.Value = "" Then
        MsgBox "Captura un código de cliente"
        Exit Sub
    End If
    Set b = h.Columns("A").Find(TextBox1.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        Label1.Caption = h.Cells(b.Row, "B")
    Else
        Label1.Caption = "no existe"
    End If
End Sub

.

.

Estimado Dante, muchas gracias por tu respuesta, pero al ejecutar la macro no se actualiza el label con la información de la hoja de excel

Pero lo que yo te puse es un ejemplo, tienes que adaptarlo a tus datos.

Si me dices todos los datos, te ayudo a adaptar el código.

Eso para empezar.

Cómo funciona, primero tienes que tener un tu userform, un textbox, un label y un commandbutton.

Escribe algo en el textbox, presionas el botón y la macro te va a regresar un resultado. Si encuentra el nombre en la hoja1, en la columna A, te llena el label con el dato de la fila encontrada y la columna B, si no encuentra el nombre te regresa un mensaje.

Si lees la explicación, creo que podrás adaptarlo a tus datos.

De cualquier forma, si tienes dudas de cómo adaptar los datos, entonces envíame tu archivo para adaptar el código.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “carlos llerena”

Te faltó poner el commandbutton

Private Sub CommandButton4_Click()
    If TextBox5 = "" Then
        MsgBox "Captura el ruc"
        TextBox5.SetFocus
        Exit Sub
    End If
    ruc = IIf(IsNumeric(TextBox5.Value), Val(TextBox5.Value), TextBox5.Value)
    Set h = Sheets("RUC")
    Set b = h.Columns("A").Find(ruc, lookat:=xlWhole)
    If Not b Is Nothing Then
        Label28.Caption = b.Offset(0, 1)
    Else
        MsgBox "El ruc no existe"
    End If
End Sub
'
Private Sub TextBox5_Change()
    Label28.Caption = ""
End Sub

.

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo separo dos números que se encuentran en una sola celda de excel?

En una celda de excel se encuentran dos cantidades separadas por un guion. Quisiera separar el primer número en una segunda celda y el segundo número en una tercer celda. Ejemplo: A 1 48,264 - 65,371 2 55,555 - 66,666 3 . . . Debería quedar así: A B...
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Como evitar que se duplique un dato en la base de datos

Trato que al ingresar los datos a la base de datos si en la columna "B" DNI es una cifra que ya esta en dicha base me lo indique en un Msgbox "El Dato ya existe" Esta es la macro que tengo en el botón Aceptar Private Sub Aceptar_Click()...
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
8 respuestas

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas