Offset

Hai un problema con Excel?

Nuova discussione

Offset
di Sim (utente non iscritto) data: 17/05/2010
Ciao a tutti,
la macro di seguito mi crea problemi alla terzultima stringa (quella con offset) che dovrebbe portarmi nella prima cella vuota sotto una colonna con dati contigui:

range("n1:p1").select
activewindow.smallscroll down:=1047
range("n1:p1069").select
selection.copy
range("r1").select
selection.pastespecial paste:=xlvalues, operation:=xlnone, skipblanks:= _
false, transpose:=false
range("r1").select
application.cutcopymode = false
selection.autofilter
selection.autofilter field:=1, criteria1:="<>"
range("r2").select
activewindow.smallscroll down:=1432
range("r2:t2024").select
selection.copy
sheets("3 - controllo").select
range("a1").select
selection.end(xldown).offset(1, 0).select
selection.pastespecial paste:=xlvalues, operation:=xlnone, skipblanks:= _
false, transpose:=false
end sub

qualcuno saprebbe illuminarmi?
grazie mille e buona serata!

Range("N1:P1").Select
    ActiveWindow.SmallScroll Down:=1047
    Range("N1:P1069").Select
    Selection.Copy
    Range("R1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("R1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Range("R2").Select
    ActiveWindow.SmallScroll Down:=1432
    Range("R2:T2024").Select
    Selection.Copy
    Sheets("3 - CONTROLLO").Select
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
End Sub

di Locate (utente non iscritto) data: 18/05/2010
Ciao
al posto di usare la formula
---------
range("a1").select
selection.end(xldown).offset(1, 0).select
--------
prova con questa
cells(rows.count, 1).end(xlup).offset(1, 0).select
-- si posiziona sulla prima cella vuata a scendere in colonna a:a
tua-------- range("a1").select selection.end(xldown).offset(1, 0).select ------------- Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

Vuoi Approfondire?