Jump to content

Error al limpiar rango de celdas


Recommended Posts

Hola a todos. 

Perdonar con este asunto, creo que debe ser una tontería, pero no logro ver el error.

Con esta sentencia me da error:

Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).ClearContents

Y sin embargo así funciona.

Worksheets("KM_iniciales").Range("A1:K" & maxrow).ClearContents

Quisiera que la columna a eliminar no fuera siempre la K porque podría ser otra, por eso quiero hacerlo con cells, pero no logro que funcione. ¿Qué estoy poniendo mal?

Teniendo en cuenta que busca la última fila y columna así.

maxcolumn = Worksheets("KM_iniciales").Cells.SpecialCells(xlLastCell).Column
maxrow = Worksheets("KM_iniciales").Cells.SpecialCells(xlLastCell).Row

 

Gracias.

Moisés.

 

Link to post
Share on other sites

Seguro que hay celdas combinadas de por medio o un problema en el ámbito de las variables, pero como no has subido el archivo,......., prueba así:

Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).Value = ""

 

Edited by Antoni
Link to post
Share on other sites

La diferencia está aquí:

.Range(.Cells(1, 1), .Cells(maxrow, maxcolumn)).ClearContents

esto equivale a:

Sheets("KM_diarios").Range(Sheets("KM_diarios").Cells(1, 1), Sheets("KM_diarios").Cells(maxrow, maxcolumn)).ClearContents

Observa la diferencia con tu código inicial (Utilizar Sheets o WorkSheets, es indiferente)

Edited by Antoni
Link to post
Share on other sites

Entiendo. No puedo usar Range(Cells(1, 1). Si me refiero a Range y uso Cells, debo usar Range("nombre de la hoja").(Cells(1,1))

Usando With / End With evito escribir repetidamente el nombre de la hoja, pero entre Range y Cells he de hacer referencia a la hoja, y antes de Range igualmente.

Esto he de memorizarlo, es si o si y no confundirme en el método.

Si me confundo corrígeme por favor!

Gracias @Antoni

Moisés.

 

 

Edited by Pirtrafilla
Link to post
Share on other sites
En 29/11/2020 at 14:18 , Pirtrafilla dijo:

Hola a todos. 

Perdonar con este asunto, creo que debe ser una tontería, pero no logro ver el error.

Con esta sentencia me da error:




Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).ClearContents

Y sin embargo así funciona.




Worksheets("KM_iniciales").Range("A1:K" & maxrow).ClearContents

Quisiera que la columna a eliminar no fuera siempre la K porque podría ser otra, por eso quiero hacerlo con cells, pero no logro que funcione. ¿Qué estoy poniendo mal?

Teniendo en cuenta que busca la última fila y columna así.




maxcolumn = Worksheets("KM_iniciales").Cells.SpecialCells(xlLastCell).Column
maxrow = Worksheets("KM_iniciales").Cells.SpecialCells(xlLastCell).Row

 

Gracias.

Moisés.

 

Hola

A VBA siempre, pero siempre debes especificarle donde operar, sea cual sea el objeto

En tu caso no le estabas especificando en el rango la hoja, entonces estaba tomando por defecto, la hoja activa

Porque si te funciona la segunda, pues porque con esa estructura de rango, es suficiente con escribir solo una vez el nombre de la hoja y la declaracion del rango es una cadena de texto, worksheets("name").range("string")

En la primera opcion, puedes ver que no especificaste el nombre de la hoja a Cells

Por eso es recomendable siempre usar el controlador o la estructura With (en el caso que el objeto se repita dentro del sub proceso)

Mira una alternativa mas

Private Function ClearIniciales()

With Worksheets("KM_iniciales")
    maxcolumn = VBA.Split(.Cells.SpecialCells(xlLastCell).Address, "$")(1)
    maxrow = .Cells.SpecialCells(xlLastCell).Row
    .Range(.Cells(1, 1), .Cells(maxrow, maxcolumn)).ClearContents
End With

End Sub

Private Function ClearIniciales()

With Worksheets("KM_iniciales")
    maxcolumn = VBA.Split(.Cells.SpecialCells(xlLastCell).Address, "$")(1)
    maxrow = .Cells.SpecialCells(xlLastCell).Row
    .Range("A1:" & maxcolumn & maxrow).ClearContents
End With

End Sub

La variable maxcolumn funciona en ambos caso, pues Cells, acepta numero o letra

Ojo mira bien, que se antepone un punto (.) en cada Cells, porque estamos utilizando With

 

Saludos

Link to post
Share on other sites
Hace 2 horas, Gerson Pineda dijo:

Hola

A VBA siempre, pero siempre debes especificarle donde operar, sea cual sea el objeto

En tu caso no le estabas especificando en el rango la hoja, entonces estaba tomando por defecto, la hoja activa

Porque si te funciona la segunda, pues porque con esa estructura de rango, es suficiente con escribir solo una vez el nombre de la hoja y la declaracion del rango es una cadena de texto, worksheets("name").range("string")

En la primera opcion, puedes ver que no especificaste el nombre de la hoja a Cells

Por eso es recomendable siempre usar el controlador o la estructura With (en el caso que el objeto se repita dentro del sub proceso)

Mira una alternativa mas



Private Function ClearIniciales()

With Worksheets("KM_iniciales")
    maxcolumn = VBA.Split(.Cells.SpecialCells(xlLastCell).Address, "$")(1)
    maxrow = .Cells.SpecialCells(xlLastCell).Row
    .Range(.Cells(1, 1), .Cells(maxrow, maxcolumn)).ClearContents
End With

End Sub

Private Function ClearIniciales()

With Worksheets("KM_iniciales")
    maxcolumn = VBA.Split(.Cells.SpecialCells(xlLastCell).Address, "$")(1)
    maxrow = .Cells.SpecialCells(xlLastCell).Row
    .Range("A1:" & maxcolumn & maxrow).ClearContents
End With

End Sub

La variable maxcolumn funciona en ambos caso, pues Cells, acepta numero o letra

Ojo mira bien, que se antepone un punto (.) en cada Cells, porque estamos utilizando With

 

Saludos

@Gerson Pineda , muchas gracias por tu explicación y por el tiempo que te has tomado en explicármelo.

Me has dado varios apuntes a tener muy en cuenta.

Te lo agradezco!

Moisés.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente" pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto horas x turno v2 (ayudaExcel).xlsx
    • Hola Hector Miguel, mil gracias por ese gran trabajo. Tengo las siguientes consultas relacionadas con la nueva versión del file. Lo descrito es lo que puedo interpretar de la revisión:  Columna J: Días. Indica la cantidad de días, más el primero y último día de la semana de la actividad. Columna K: Turno. Columna L: s/d/F. Cantidad de Sábados, Domingos y Feriados involucrados en la actividad. Columna M: Período. N° total de días en los que se desarrolló la actividad. Columna N: 6-s, 7-d, 8-f. Finalmente, quisiera preguntarte que método utilizaste para separar la celda que contiene la fecha y la hora, en 2 celdas separadas. Muchas gracias por la atención prestada a mi caso!!! Jeani    
    • No se si ya pudiste resolver el problema pero ¿Será que el formato de celda te ayude? En celda cuando quieres ver mas de 24:00 lo que se hace es darle el formato a la celda [hh]:mm:ss si fuera hh:mm:ss no verias en  la celda un dato mayor a a 24:00. Quiizas con eso presente puedas tener los resultados que esperas con tu codigo.   Saludos Valentino
    • Expertos buenas tardes, tengo un archivo de excel que funciona bastante bien lo unico es que en la hoja REPORTE hay grafico dinamicos se pierden los datos por la cantidad de informacion que existe no se hay una forma para poder arreglarlo, estare agradecido eternamente por favor. Adjunto el archvio. https://drive.google.com/file/d/1olczNQkvlp9gWiGGev2S3GtcItJtab3F/view?usp=sharing
    • Muchas gracias por el aporte! Y gracias a todos por participar
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy