............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para buscar siguiente

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para buscar siguiente

Mensaje por Ji01 el Jue Ene 30, 2014 2:31 pm

Hola, tengo montada una macro que con base en un dato me trae a una hoja los valores que necesito asociados a ese dato, pero necesito insertar un botón que en caso de duplicados me traiga los valores del siguiente registro, me haga un: Buscar siguiente. La macro que temgo es esta:

Sub Buscar()
Dim WS As Worksheet
Dim rBingo As Range
Borrar_Form
For Each WS In ThisWorkbook.Worksheets
If WS.Name Like "Base*" Then
Set rBingo = WS.Cells.Find(What:=[Codigo], LookAt:=xlWhole)
If Not rBingo Is Nothing Then Exit For
End If
Next WS
If rBingo Is Nothing Then
' No encontrado
MsgBox "Descripción " & [Codigo] & " no encontrada", vbInformation
Else
Copiar_datos WS, rBingo.Row
End If
End Sub

Sub Borrar_Form()
Dim rCell As Range
Set rCell = [Datos]
Do While rCell <> ""
rCell.Offset(0, 1).Value = ""
Set rCell = rCell.Offset(1, 0)
Loop
[Nota].Value = ""
End Sub

Sub Copiar_datos(ByRef queWS As Worksheet, ByVal queFila As Long)
Dim rCell As Range
Set rCell = [Datos]
On Error Resume Next
Do While rCell <> ""
rCell.Offset(0, 1) = queWS.Cells(queFila, queWS.Rows(1).Find(rCell.Value).Column)
Set rCell = rCell.Offset(1, 0)
Loop
On Error GoTo 0
[Nota].Value = " " & Format(queFila - 1, "#,##0")
End Sub


Mil gracias por la ayuda.

Ji01

Masculino Cantidad de envíos : 1
Edad : 36
Ciudad - Pais : Bogota
Version de Excel : 2010
Fecha de inscripción : 30/01/2014

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.