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

[raimea]

ciao
nella colonna E ho delle date
ricavate con delle formule

dopo XYZ... righe
quando la formula non trova piu date
restituisce il valore zero 0

vorrei che il cursore mi si posizionasse
all'ultima data rilevata
ossia
al primo valore zero 0 trovato

con questo codice invece
mi si posizione all 'ultimo zero 0 trovato

Codice: Seleziona tutto

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

come posso midificare ?

ciao

[Anthony47]

quando la formula non trova piu date
restituisce il valore zero 0

Se effettivamente la formula restituisse 0 (zero) allora la formula dovrebbe correttamente restituire il numero di riga che contiene l’ultima data; da come invece si comporta la mia ipotesi e’ che restituisca una stringa vuota, cioe’ “”

Se e’ così allora bastera’ modificare l’istruzione perche’ testi se il contenuto e’ una stringa nulla; cioe’

Codice: Seleziona tutto

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

Fai sapere...

[raimea]

ciao

ho modif la macro >> vaigiu4

ma anche con la modifica
va sempre in fondo all ultima riga dopo lo zero 0
( riga e cella E senza formula)

allego il file

https://www.dropbox.com/scl/fi/p7gqhi3l ... oykh5&dl=0

si tratta del foglio >> classificaXgg
col E

[raimea]

ciao

ho risolto modificando la formula nelle celle di col E
anzicche restituire zero 0
se non trova nulla
restituisce ""

Codice: Seleziona tutto

=SE(V45="-";"";U45)

poi ho applicato :

Codice: Seleziona tutto

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

tutto ok

grazie

[Anthony47]

La formula usata:

Codice: Seleziona tutto

=SE(V45="-";"0";U45)

Ma questa non restituisce il valore 0 bensì una stringa contenente il carattere 0; questo spiega perche' non funzionava.

Comunque secondo me e' meglio generare la "", cioe' stringa vuota", come hai fatto

Alla prossima...