Dante Amor

Te anexo la macro Sub Buscar_Datos() 'Por.Dante Amor f = 10005 Do While Cells(f, "I") <> "" Set b = Range("C6:C10001").Find(Cells(f, "I"), lookat:=xlWhole) If Not b Is Nothing Then Cells(f, "A") = Cells(b.Row, "A") Cells(f, "B") = Cells(b.Row, "B")...

H o l a: Tengo las siguientes dudas. 1. ¿En cuál fila están los encabezados? 2. ¿En cuál fila empiezan los datos? 3. ¿En el libro además de las 27 hojas y de la hoja "consolidado" tienes más hojas? ¿Cómo se llaman? 4. ¿En la hoja "consolidado" tienes...

H o l a: No veo las filas de excel en tu imagen, pero opción puede ser, si quieres eliminar los datos después de la primera coma. Entra al menú Datos, Texto en columnas, Delimitados, seleccionar la casilla de la "Coma" y Finalizar. Listo, con eso te...

Va la macro de búsqueda Private Sub ListBox1_Click() 'Busca coincidencias If cargando Then Exit Sub ListBox2.RowSource = "" h4.Rows("2:" & Rows.Count).Clear fila = Buscar_Coincidencias(ListBox1.List(ListBox1.ListIndex, 0), 2) If fila = 1 Then...

Te anexo la macro, deberás ajustar la macro con los nombres de archivo, hojas y columnas En la macro van unos comentarios para que sepas qué datos debes completar Sub Buscar_Numero() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja3")...

Envíame tu archivo y me explicas con ejemplos. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “José Luis Junco”

Te anexo la macro, pon todo el siguiente código en tu formulario Private Sub anular_Click() 'Act.Por.Dante Amor If TextBox1 = "" Then Exit Sub ' Call Actualizar("BASE DE DATOS FACTURACION", "12345", "C", "A", "O", "O") Call Actualizar("BASE DE...

Envíame tu archivo de excel con el formulario y el archivo txt de ejemplo Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “nico gaspar” S a l u d o s . D a n t e A m o r

[H o l a Te anexo el código para las 3 hojas Private Sub anular_Click() 'Act.Por.Dante Amor Set h = Sheets("BASE DE DATOS FACTURACION") h.Unprotect ("12345") Set b = h.Range("C:C").Find(Trim(TextBox1.Value), LookIn:=xlValues, lookat:=xlWhole) If Not...

¿Qué más dice el mensaje de error? Dice "no coinciden los tipos" Si en la celda donde buscas tienes una fórmula, y resultado de la fórmula es un error, entonces, prueba con lo siguiente: Dim Valor As String Valor =...