Macro para seleccionar valores

26/12/2003 - 18:01 por Marcelo Paz | Informe spam
Hola a Todos.

Lo que busco es una macro que me permita seleccionar
valores de un rango determinado y que los vaya copiando en
otra columna de otra hoja. Digamos de arriba para abajo.
Entonces, que cada vez que active la macro, vaya a la
primer celda vacia de la columna donde copié los datos
(ej. si el último valor copiado fue en A12 que vaya a A13)
y copie los nuevos valores y así sucesivamente de modo de
que en esa columna vayan quedando registrados los datos de
cada una de las operaciones que realicé.

Preguntas similare

Leer las respuestas

#1 Benito Merino
30/12/2003 - 13:50 | Informe spam
Hola Marcelo.

La siguiente macro hace lo que tu indicas.
Hoja2 es la hoja donde copia los resultados
Range("A65536") se posiciona en la última celda de la
columna A y sube hacia arriba hasta el primer valor vacío.
Ajusta la letra a la columna que te interese.


Sub seleccionar_rango()
Dim Rangoseleccionado As Range
Dim Celda As Range
Dim hoja As Worksheet
Dim celdaseleccionada As String
Dim numerodevalores As Integer
Set Rangoseleccionado = Application.InputBox("Seleccionar
Rango", "Marcar Celdas a Incorporar", , , , , , 8)
Set hoja = ActiveWorkbook.Sheets("Hoja2")
celdaseleccionada = hoja.Range("A65536").End(xlUp).Offset
(1, 0).Address
For Each Celda In Rangoseleccionado
hoja.Range(celdaseleccionada).Offset(numerodevalores,
0).Value = Celda.Value
numerodevalores = numerodevalores + 1
Next Celda
End Sub

Atentamente,

Benito Merino


Hola a Todos.

Lo que busco es una macro que me permita seleccionar
valores de un rango determinado y que los vaya copiando


en
otra columna de otra hoja. Digamos de arriba para abajo.
Entonces, que cada vez que active la macro, vaya a la
primer celda vacia de la columna donde copié los datos
(ej. si el último valor copiado fue en A12 que vaya a


A13)
y copie los nuevos valores y así sucesivamente de modo de
que en esa columna vayan quedando registrados los datos


de
cada una de las operaciones que realicé.
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida