Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/01/2009, 12:09
Avatar de VBMAN
VBMAN
 
Fecha de Ingreso: enero-2009
Mensajes: 2
Antigüedad: 15 años, 3 meses
Puntos: 0
Ayuda para modificar una MACRO que copie e incerte con base al comando Cells.Find

Buenos días a todos, gracias de antemano por la gran ayuda que cada uno ofrece, pues en esta ocasión pido su amable ayuda con respecto a una MACRO en EXCEL que he estado modificando constantemente para hacerla mas eficiente, y me encuentro actualmente estancado tratando de modificar un paso.
La MACRO en uno de sus procesos le hemos diseñado para que se desplace a la hoja 1, después copia la fila 24:24 seguido la inserta desplazándose una celda hacia arriba de donde localice la celda que contenga el nombre "OPERADORES DE MAQUINARA" la programación es la siguiente:
'ir a la hoja 1
Sheets(1).Select
'Desproteger la hoja 1
ActiveSheet.Unprotect "RSO"
'Copiado de la fila a incertar
Rows("24:24").Select
Selection.Copy
'BUSCAR OPERADORES DE MAQUINARIA
Cells.Find(What:="OPERADORES DE MAQUINARIA", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.Insert

la Macro actualmente esta funcionando bien pero hasta cierto limite, lo que en si quiero modificar y espero me ayuden a encontrar una solución viable es en 'Copiado de la fila a incertar' la selección a copiar no sea la fila 24 sino que sea toda la fila que se encuentre "arriba" de "OPERADORES DE MAQUINARIA", he intentado modificarla utilizando Cells.Find.... en lugar de Rows ("24:24)Copy, de esta manera encuentro puedo ubicar la celda que esta "arriba" de "OPERADORES DE MAQUINARIA", pero no se como hacer para que seleccione toda esa fila para posteriormente continue el proceso de la macro...
Gracias de nuevo y estamos al pendiente....