Llevo muy poco con esto del vba así que me cuesta y voy muy lento pero gracias a iniciativas como este foro he conseguido introducirme en este mundillo con más o menos éxito.
Expongo mi problema: tengo un libro con 2 hojas, "registros" y "corrección". Necesito un macro que al activarlo desde la hoja "corrección", busque el valor de la celda K7 o L7 (si pudiera elegir sería perfecto) sólo en su columna correspondiente para agilizar el proceso. Una vez que encuentre los registros, copie toda la fila en la hoja corrección.
Con el código al que he llegado consigo buscar únicamente un registro. Además necesito que la búsqueda respete la posición de la cadena de dígitos, es decir, la celda que encuentre debe empezar por la cadena que aparece en la celda K7 o L7.
Pego mi código y adjunto el archivo de ejemplo
Muchisimas gracias por adeantado y enhorabuena por el foro
Sub Correc_COOR()
Dim C As Range
Dim Busqueda As String
Busqueda = Range("K7").Value
With Worksheets("registro").Range("K:K")
Set C = .Find(What:=Busqueda, MatchCase:=False, LookAt:=xlPart)
If C Is Nothing Then
MsgBox "No existen registros"
End If
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.EntireRow.Copy
Sheets("correccion").Range("A14").Select
Sheets("correccion").Paste
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
End Sub
[/CODE]
Saludos a todos,
Llevo muy poco con esto del vba así que me cuesta y voy muy lento pero gracias a iniciativas como este foro he conseguido introducirme en este mundillo con más o menos éxito.
Expongo mi problema: tengo un libro con 2 hojas, "registros" y "corrección". Necesito un macro que al activarlo desde la hoja "corrección", busque el valor de la celda K7 o L7 (si pudiera elegir sería perfecto) sólo en su columna correspondiente para agilizar el proceso. Una vez que encuentre los registros, copie toda la fila en la hoja corrección.
Con el código al que he llegado consigo buscar únicamente un registro. Además necesito que la búsqueda respete la posición de la cadena de dígitos, es decir, la celda que encuentre debe empezar por la cadena que aparece en la celda K7 o L7.
Pego mi código y adjunto el archivo de ejemplo
Muchisimas gracias por adeantado y enhorabuena por el foro
Ejemplo.xls