Moviemiento de celda
Publicado por CyRuS (33 intervenciones) el 07/04/2008 17:38:52
Hola:
Quiero hacer lo siguiente en una macro pero no lo consigo.
Tras filtrar una columna por un campo determinado (esto lo haría a mano), quiero:
1º Ponerme en la primera fila y copiar el dato
2º Ir a la segunda “sheet” y en una columna buscar el dato copiado.
3º Tras buscar la fila en la que está, irme a la columna de la derecha y escribir un “*”
4º Volver al primer “sheet”, bajar a la siguiente línea y copiar el dato. etc
Range("A10").Select ‘primera fila de las filtradas
Selection.Copy ‘copia el nº 7021001012
Sheets("sheet2").Select
Range("A1”).Select
Cells.Find(What:="7021001012).Activate
Range("B44").Select ‘me he movido a la columna de la derecha
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "*" ‘escribo el asterisco
Sheets("sheet1").Select
Range("A25").Select ‘la segunda fila de las filtradas
Selection.Copy
Problemas:
- ¿Cómo le digo que What:=”Selection.Copy”, en vez del nº? Porque lo que intento me lo llama “verdadero”
- ¿Cómo me muevo una columna para la derecha? No existe algo del tipo ActiveCell.Field + 1?
- ¿Cómo me muevo una fila para abajo si ya están filtradas? Porque si estoy en la A10 y le digo ActiveCell.Row + 1, el pc piensa que la siguiente es la A11, cuando es la A25?
Gracias por vuestro tiempo.
Quiero hacer lo siguiente en una macro pero no lo consigo.
Tras filtrar una columna por un campo determinado (esto lo haría a mano), quiero:
1º Ponerme en la primera fila y copiar el dato
2º Ir a la segunda “sheet” y en una columna buscar el dato copiado.
3º Tras buscar la fila en la que está, irme a la columna de la derecha y escribir un “*”
4º Volver al primer “sheet”, bajar a la siguiente línea y copiar el dato. etc
Range("A10").Select ‘primera fila de las filtradas
Selection.Copy ‘copia el nº 7021001012
Sheets("sheet2").Select
Range("A1”).Select
Cells.Find(What:="7021001012).Activate
Range("B44").Select ‘me he movido a la columna de la derecha
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "*" ‘escribo el asterisco
Sheets("sheet1").Select
Range("A25").Select ‘la segunda fila de las filtradas
Selection.Copy
Problemas:
- ¿Cómo le digo que What:=”Selection.Copy”, en vez del nº? Porque lo que intento me lo llama “verdadero”
- ¿Cómo me muevo una columna para la derecha? No existe algo del tipo ActiveCell.Field + 1?
- ¿Cómo me muevo una fila para abajo si ya están filtradas? Porque si estoy en la A10 y le digo ActiveCell.Row + 1, el pc piensa que la siguiente es la A11, cuando es la A25?
Gracias por vuestro tiempo.
Valora esta pregunta
0