Porque!! me pasa esto!!
Publicado por Ibai (12 intervenciones) el 01/06/2001 18:40:08
Estoy copiando datos de una hoja a otra, hasta ahora iba bien pero...
Ahora al copiar algunas celdas me aparecen con un tamaño muy grande. La fila 9 se alarga muchisimo (??) A que se puede deber?? hay va el codigo
Sheets("BALS").Select
For filas = inicio To final
...
Range(columna).Select
Selection.EntireRow.Copy
insert1 = Range(columna1).Value
insert2 = Range(columna2).Value
insert3 = Range(columna3).Value
insert4 = Range(columna4).Value
Sheets("RESUMEN").Select
Range(fr).Select
ActiveSheet.Paste
ActiveSheet.Range("C" + LTrim(Str(filasResumen))).Value = insert1
ActiveSheet.Range("D" + LTrim(Str(filasResumen))).Value = insert2
ActiveSheet.Range("G" + LTrim(Str(filasResumen))).Value = insert3
ActiveSheet.Range("H" + LTrim(Str(filasResumen))).Value = insert4
filasResumen = filasResumen + 1
Sheets("BALS").Select
Next
Sheets("RESUMEN").Select
Range("A4").Select
Ahora al copiar algunas celdas me aparecen con un tamaño muy grande. La fila 9 se alarga muchisimo (??) A que se puede deber?? hay va el codigo
Sheets("BALS").Select
For filas = inicio To final
...
Range(columna).Select
Selection.EntireRow.Copy
insert1 = Range(columna1).Value
insert2 = Range(columna2).Value
insert3 = Range(columna3).Value
insert4 = Range(columna4).Value
Sheets("RESUMEN").Select
Range(fr).Select
ActiveSheet.Paste
ActiveSheet.Range("C" + LTrim(Str(filasResumen))).Value = insert1
ActiveSheet.Range("D" + LTrim(Str(filasResumen))).Value = insert2
ActiveSheet.Range("G" + LTrim(Str(filasResumen))).Value = insert3
ActiveSheet.Range("H" + LTrim(Str(filasResumen))).Value = insert4
filasResumen = filasResumen + 1
Sheets("BALS").Select
Next
Sheets("RESUMEN").Select
Range("A4").Select
Valora esta pregunta
0