nanusa

paramisolo respondió: Has realizado la consulta en Windows XP por ello desconozco donde estas haciendo la gráfica, ni tipo, ni de donde obtienes los valores... Me tienes que aclarar esto y si la consulta es de Excel, finalizalá y la pones en su correspondiente foro, si es...

paramisolo respondió: Para seleccionar la ultima celda con datos (siempre que no tengas celdas en blanco en el medio) es esta instrucción: Range("A1"). Select 'No situamos en la primera celda de la Col A ActiveCell.End(xlDown).Select 'Nos desplazamos hasta la ultima celda...

Juan Carlos González Chavarría respondió: Sub Guardar() Application.ScreenUpdating = False ThisWorkbook.Worksheets("Hoja1").Copy WorkBooks("Libro 1").Active Sheets("Hoja3").Select With ActiveSheet .UsedRange.EntireColumn.Copy .[a1].PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False End...