POR Q NO ME RESPONDEN?

si Hector no contesta puede ser por varios motivos: está ocupado y no puede
dedicarle tiempo a esto, o está muy desocupado, osea de vacaciones. Hay
otras posibilidades.

Tal vez si hicieses la consulta sin personalizar alguien podría ayudarte.





"MARCO6325" escribió en el mensaje
news:
Hola Héctor, te mande una copia de mi archivo, pero no me has
respondido, dandome cabezazos encontre algo, pero necesita mejoras que
no logro arreglar, necesito que los valores de 2 columnas sean
identicos para copiar la fila en otra hoja, y de esta hoja a un
userform...
este es el código que tengo por ahora

Para comparar (((LO MALO ES QUE SÓLO COMPARA LA COLUMNA 1 CON EL
TEXBOX1, NECESITO QUE SE EJECUTE SÓLO SI AMBAS COLUMNAS "a y b"
COINCIDEN CON LOS TEXTBOX1 Y TEXTBOX2 RESPECTIVAMENTE"""OJO NO SON LAS
COLUMNAS COMPLETAS, SINO VALORES EJEMPLO= QUE A3 COINCIDA CON TEXBOX 1
Y B3 CON TEXBOX 2""""""""""))) Además este código copia las FILAS CON
coincidencias en la Hoja3, si hay varias, las copia en las filas 1,3,5
etc.

Private Sub CommandButton1_Click()
copiada = 1
CS = 0
Sheets("Hoja1").Range("A2").Select
final = Range("A2").End(xlDown).Row
For fila = 2 To final
If Cells(fila, 1) = TextBox1.Value Then
CS = CS + 1
ActiveCell.EntireRow.Copy Destination:=Sheets("Hoja3").Cells(copiada,
1)
ActiveSheet.Next.Cells(fila, 1).EntireRow.Copy
Destination:=Sheets("Hoja3").Cells(copiada + 1,
copiada = copiada + 2
End If
Range("C3") = CS
ActiveCell.Offset(1, 0).Select
Next
End Sub

y este código copia los resultados
desde el userform llamado búsqueda con un CommandButton

Private Sub CommandButton3_Click()
Hoja3.Select
TextBox1.Value = Range("a1")
TextBox2.Value = Range("b1")
TextBox3.Value = Range("c1")
TextBox4.Value = Range("d1")
TextBox9.Value = Range("e1")
TextBox10.Value = Range("f1")
TextBox6.Value = Range("g1")
TextBox7.Value = Range("h1")
TextBox8.Value = Range("i1")
TextBox5.Value = Range("j1")
TextBox11.Value = Range("k1")
TextBox12.Value = Range("f9")
End Sub

OTRO PROBLEMA ES QUE COMO LAS COINCIDENCIAS SON COPIADAS EN VARIAS
FILAS CREE UN CommandButton LLAMADO SIGUIENTE COINCIDENCIA PARA VER EN
EL USERFORM SI HAY MAS DE UNA COINCIDENCIA, LA QUE SIGUE, PERO SÓLO LO
SE CORRER CON LA FILA QUE SIGUE, COMO HAGO PARA QUE LO HAGA HASTA QUE
NO EXISTAN MAS FILAS CON DATOS EN LA HOJA 3? Y ME DE EL MENSAJE QUE
COLOQUE ABAJO ("No Hay Más Coincidencias")?

Private Sub CommandButton4_Click()
If TextBox12.Value > 1 Then
Hoja3.Select
TextBox1.Value = Range("a3")
TextBox2.Value = Range("b3")
TextBox3.Value = Range("c3")
TextBox4.Value = Range("d3")
TextBox9.Value = Range("e3")
TextBox10.Value = Range("f3")
TextBox6.Value = Range("g3")
TextBox7.Value = Range("h3")
TextBox8.Value = Range("i3")
TextBox5.Value = Range("j3")
TextBox11.Value = Range("k3")
TextBox12.Value = Range("f9")

Else
MsgBox ("No Hay Más Coincidencias")

End If

End Sub

hola, Marco !

revisa tu correo ;)

saludos,
hector.

Gracias, ya leí la página de sugerencias y pido disculpas por el
sinfin de errores que he cometido, han sido por mi ignorancia en las
reglas de los foros.empezare de nuevocolocare en otro mensaje
tratando de corregir todo
Héctor Miguel ha escrito:

hola, Marco !

revisa tu correo ;)

saludos,
hector.