Set mirango = Workbooks("Libro1").Sheets("Hoja2").Range("B7:B12")
For Each mirango In Selection.Cells
Sheets("Hoja2").Select
Range("B7:B12").Select
Selection.Copy
Sheets("Hoja3").Select
Range("B13:B18").Select
ActiveSheet.Paste
Next
End
End Sub
TENGO EN LA HOJA 2 LO SIGUIENTE
EN EL RANGO B7:B12 TENGO UNA COLUMNA DE NOMBRES ASI SIN TITULO DE ENCABEZADO
hoja2 hoja 3
PEDRO PEDRO
MARIA
JOSE
PEDRO PEDRO
MARIA
JOSE
con el codigo anterior me copia todo el rango en la hoja 3, pero yo quisiera validar al comparar un valor que yo le doy en este caso "pedro", me copie las celdas que son iguales a este valor en la hoja 3 y no todos los nombres, estoy atento a su colaboracion.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Sub Macro2()
'
Dim valor As String
valor = "pedro"
Set mirango = Workbooks("Libro1").Sheets("Hoja2").Range("B7:B12")
For Each mirango In Selection.Cells
Sheets("Hoja2").Select
Range("B7:B12").Select
Selection.Copy
Sheets("Hoja3").Select
Range("B13:B18").Select
ActiveSheet.Paste
Next
End
End Sub
TENGO EN LA HOJA 2 LO SIGUIENTE
EN EL RANGO B7:B12 TENGO UNA COLUMNA DE NOMBRES ASI SIN TITULO DE ENCABEZADO
hoja2 hoja 3
PEDRO PEDRO
MARIA
JOSE
PEDRO PEDRO
MARIA
JOSE
con el codigo anterior me copia todo el rango en la hoja 3, pero yo quisiera validar al comparar un valor que yo le doy en este caso "pedro", me copie las celdas que son iguales a este valor en la hoja 3 y no todos los nombres, estoy atento a su colaboracion.