Jump to content

Archived

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

Enrique_chuc

Modificar archivo

Recommended Posts

Buenas tardes

Solicito de su apoyo para mi pequeño problema, tengo una macro que me busca el codigo puesto en la hoja "VERIFICADOR" y me dice en que hojas del libro se encuentra dicho dato, si trabaja como se debe, pero lo hace cuando son muchos codigos, cuando solo busco un codigo la macro se traba, esto es debido a que tiene un .End(xlDown), si yo le quito eso la macro funciona, pero solo para buscar un codigo, mi solucion es hacer dos macros, una para solo un codigo y otra para varios, pero quisiera saber si hay forma de modificarla para que haga las dos funciones y no tenga que hacer dos macros en el mismo libro.

Sub BuscarCedula_Libro_GP()

Application.ScreenUpdating = False

Dim hoja As Worksheet

Dim vc As Range

With Range("A2").CurrentRegion

.Offset(1, 4).Resize(.Rows.Count - 1, 3).ClearContents

End With

For Each hoja In Sheets

If hoja.Name <> "VERIFICADOR" Then

For Each cedula In Range("A3", _

Range("A3").End(xlDown))

Set vc = hoja.Columns("B").Find(What:=cedula, _

LookIn:=xlValues, Lookat:=xlWhole)

If vc Is Nothing Then GoTo ira:

Cells(cedula.Row, "B") = Cells(cedula.Row, "B") & hoja.Name & " - "

If Cells(cedula.Row, "B") <> "" Then

End If

ira:

Next

End If

Next

Set vc = Nothing

Application.ScreenUpdating = True

End Sub

Codigo.xls

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy