** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Ultima columna con datos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoUltima columna con datos

 Responder Responder
Autor
Mensaje
taribo Ver desplegable
Administrador
Administrador
Avatar

Unido: 09/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 10274
Enlace directo a este mensaje Tema: Ultima columna con datos
    Enviado: 20/Febrero/2009 a las 13:50
A ver compañeros del excel, si (como bien me indico Ansanval en su dia), con esta expresion obtengo la ultima fila:

Workbooks.Item(NombreArchivo).Sheets(HojaTemperatura).Cells(65535, 1).End(xlUp).Row

Cual es la expresion adecuada para obtener la ultima columna??

Seguro que para vosotros es sencilliiiisimo.

Gracias y un saludo
No hay razon para jugar al rugby, por que al rugby se juega con el corazon
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 13:54
Hola!
 
ultima columna
Workbooks(strLibro).Worksheets(strHoja).Cells(lngFila, Workbooks(strLibro).Worksheets(strHoja).Columns.Count).End(xlToLeft).Column
ultima fila
Workbooks(strLibro).Worksheets(strHoja).Cells(Workbooks(strLibro).Worksheets(strHoja).Rows.Count, lngColumna).End(xlUp).Row


Editado por Coco - 20/Febrero/2009 a las 13:55
Saludos
Arriba
taribo Ver desplegable
Administrador
Administrador
Avatar

Unido: 09/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 10274
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 13:58
Mira que he hecho pruebas, el excel me va a matar.

tambien he encontrado esta:

Workbooks.Item(NombreArchivo).Sheets(HojaTemperatura).UsedRange.Columns.Count

Voy a comprobar que funcionan.

Gracias Coco Thumbs%20Up
No hay razon para jugar al rugby, por que al rugby se juega con el corazon
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 14:08
Nunca me cansaré de repetirlo, lo mejor que tiene excel es la grabadora de macros Approve, activala, luego pulsa Ctrl+cursor derecho (o izquierdo, arriba, abajo), para la grabadora; a partir de ahí ya puedes depurarlo y/o mejorarlo todo lo que quieras.
Saludos
Arriba
taribo Ver desplegable
Administrador
Administrador
Avatar

Unido: 09/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 10274
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 14:14
Si, para excel siempre la uso, pero no daba con la tecla (ctrl+cursor derecho) LOL

Si te parece, vamos cerrando.




No hay razon para jugar al rugby, por que al rugby se juega con el corazon
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5440
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 14:17

Con la misma sintaxis y en Excel 2003 (por lo de 256):

Workbooks.Item(NombreArchivo).Sheets(HojaTemperatura).Cells(1, 256).End(xlToLeft).Column

 
 
 
 
Editado para: Comentarte que en vez de "... ctrl+cursor derecho...", que te fallaría en caso de encontrar una celda vacia en el camino, es mejor partir de la última celda a la derecha (columna 256) y ctrl+cursor izquierdo.


Editado por AnSanVal - 20/Febrero/2009 a las 14:22
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 14:21
Antonio, lo de Columns.Count (o rows.count) es porque asi funcionará tambien en 2007, que son 1024, si mal no recuerdo.
Saludos
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5440
Enlace directo a este mensaje Enviado: 20/Febrero/2009 a las 14:24
Si, por supuesto asi es más completo. Sólo le ofreci con la misma sintaxis anterior por si quería poner valores absolutos adaptados a la versión que tenga.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 21/Febrero/2009 a las 14:05
Publicado originalmente por taribo taribo escribió:

Workbooks.Item(NombreArchivo).Sheets(HojaTemperatura)
 
tanto los objetos Workbooks como Sheets tienen como propiedad de defecto el Item.
 
por ello es lo mismo poner
 
Workbooks.Item(NombreArchivo)
Workbooks.(NombreArchivo)
 
o
 
Sheets(HojaTemperatura)
Sheets.Item(HojaTemperatura)
 
solo como comentario


Editado por Jordi-Albert - 21/Febrero/2009 a las 14:13
Arriba
taribo Ver desplegable
Administrador
Administrador
Avatar

Unido: 09/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 10274
Enlace directo a este mensaje Enviado: 23/Febrero/2009 a las 13:51
Gracias por la aclaracion Jordi, y gracias a todos por vuestra participacion, el tema esta mas que resuelto.

Sigo con excel, asiq ue no os vayais muy lejos

Un saludoWink
No hay razon para jugar al rugby, por que al rugby se juega con el corazon
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable