Retroceder   Foro Ayuda Excel > Dudas y consultas sobre Excel > Macros y programación VBA
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
LinkBack Herramientas Desplegado
  #1  
Antiguo 11/08/08, 18:25:59
Principiante
 
Usuario desde: ago 2008
Versión de Excel: Excel 2007
Conectado desde: Chile
Mensajes: 18
Predeterminado macro para ir a la celda al final de la lista de datos

hola, estoy haciendo una macro que saca informacion de otras hojas y la va pegando una abajo de la otra, el problema que tengo es que no se como hacer para ir a la primera celda en blanco al final de los datos existentes.

Lo que estaba probando era ir al final de la lista de datos y despues apretar la flecha para abajo, pero esto no me sirve, porque al grabar la macro esta "piensa" que yo quiero seleccionar esa celda en particular y no la que esta abajo de la lista, aca les pego la macro para que la vean. Voy a resaltar donde tengo el problema.

Ojala me puedan ayudar.

Sub Macro4()
'
' Macro4 Macro
'

'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("Indic ISO").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Resu Indic").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Indic NCH").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Resu Indic").Select
Range("A3").Select
Selection.End(xlDown).Select
Range("A6").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2  
Antiguo 11/08/08, 18:54:43
Gran participante
 
Usuario desde: jun 2008
Versión de Excel: Excel 2003
Conectado desde: España
Mensajes: 432
Predeterminado

Hola moncholillo

Un par de opciones

Tirando de tu macro

Range("A3").Select
Selection.End(xlDown).Offset(1, 0).Select
con .Offset(1, 0) seleccionas la siguiente

sobraría Range("A6").Select

Otra opción
uf = Range("A65536").End(xlUp).Row + 1
Range("A" & uf).Select

Búscamos la última fila de la columna A (uf) y le añadimos una más (la primera en blanco).

Un saludo desde Vitoria
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3  
Antiguo 11/08/08, 18:56:46
Gran participante
 
Usuario desde: jun 2008
Versión de Excel: Excel 2003
Conectado desde: España
Mensajes: 432
Predeterminado

Por cierto, bienvenido al foro.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4  
Antiguo 11/08/08, 19:20:44
Principiante
 
Usuario desde: ago 2008
Versión de Excel: Excel 2007
Conectado desde: Chile
Mensajes: 18
Predeterminado

gracias por la ayuda, funciono impeque.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT +2. Ahora son las 12:29:37.


© Ayuda Excel

Search Engine Friendly URLs by vBSEO 3.1.0 ©2007, Crawlability, Inc.

1 2 3 4 5 6 7