posizionati prima cella non "popolata" ma contenente formula

[raimea]

ciao

tramite macro vorrei posizionarmi alla 1ma cella vuota
di col E da E8:E
MA...... nelle celle di Col E ho una formula.

esiste un modo per fare cio' ?

attualmente sono riuscito a posizionarmi
ma si posiz dove non ci sono formule.

ciao

[Anthony47]

Puoi trovare l'ultima riga scritta con l'istruzione vba

Codice: Seleziona tutto

LastE = Evaluate("MAX((E1:E10000<>"""")*ROW(E1:E10000))")


Credo che da li in avanti sai procedere da solo, ma se serve ci trovi sempre (quasi sempre) qui...

[raimea]

ciao

non sono riuscito ad adattare la macro che uso ora
con il nuovo pezzo di codice !

questa l'attuale macro:

Codice: Seleziona tutto

Sub vaigiu3()



For i = Range("e65536").End(xlUp).Offset(1, 0).Row To 1 Step -1 ' vai a prima cella vuota ma con formula
If Len(Cells(i, 5).Value) > 0 Then Exit For  ' 5 e' col E
Next i
Cells(i + 1, 5).Select
   


Beep
   
       
End Sub

dove lo devo inserire,
al posto di ?

grazie

[Anthony47]

Per posizionarti nella prima cella non "popolata" ma con formula di colonna E puoi fare così:

Codice: Seleziona tutto

Sub VaiGiu4
LastE = Evaluate("MAX((E1:E10000<>"""")*ROW(E1:E10000))")
Cells(LastE+1, "E").Select
End Sub


Ciao

[raimea]

ciao
in realta' questa l avevo provata
ma si posiziona sempre all ultima senza formule

allego il file
si tratta della col E del fgl >> X_Copia+Incolla

https://www.dropbox.com/scl/fi/jlin4xx6pyvzssq5vk4m4/ultimariga.xlsm?dl=0&rlkey=ur59zgcru51dtlcuqh67uivt9

dovrebbe posizionarsi in E10
come dalla 1ma immagine

ciao

[Anthony47]

E' che la tua formula non restituisce una cella vuota ma contenente il valore "0"...

Modifica in

Codice: Seleziona tutto

Sub VaiGiu5()
LastE = Evaluate("MAX((E1:E10000<>0)*ROW(E1:E10000))")
Cells(LastE + 1, "E").Select
End Sub

Ciao

[raimea]

ciao

ora tutto ok

grazie