Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
trova penultima riga piena
- Hai un problema con Excel?
trova penultima riga piena
di linus (utente non iscritto) data: 03/04/2015 12:55:17
Salve!
Non riesco a trovare la penultima riga piena e riportarla in textbox.
Io sto provando con un codice trovato in rete che mi da però l'ultima riga piena.
Qualche dritta....
grazie
textbox1 = Sheets("Dati").[A1].End(xlDown).Value ' legge il valore dell'ultima riga colonna A piena riportandola in textbox
di lepat (utente non iscritto) data: 03/04/2015 13:09:04
domanda troppo difficile, però ci provo
textbox1 = Sheets("Dati").[A1].End(xlDown).Value - 1
di linus (utente non iscritto) data: 03/04/2015 13:18:13
Grazie Lepat ma non va... Ti spiego perché....
Sul foglio "Dati" nella colonna A : ho dei numeri..
Esempio:
Se in A1 ho un valore 46300
In A2 ho un valore 46800
così via
Se usassi questo codice: textbox1 = Sheets("Dati").[A1].End(xlDown).Value - 1
mi riporta in textbox1 il valore 46799.... invece deve riportarmi il valore 46300.
grazie
di fcarboni data: 03/04/2015 14:06:59
per fare prima, non conoscendo esattamente la struttura del tuo file, ti posto il codice seguente,
in una cella qualsiasi digiti =PenultimoVal(e selezioni una cella qualsiasi della colonna per la quale vuoi il penultimo valore).
nel tuo preciso esempio:
textbox1 = Cells(Sheets("Dati").Cells(Rows.Count, "A").End(xlUp).Row - 1, "A").Value
Function PenultimoVal(a As Range) Dim MyCol As Integer MyCol = a.Column UR = Cells(Rows.Count, MyCol).End(xlUp).Row PenultimoVal = Cells(UR - 1, MyCol).Value End Function
di Mister_x (utente non iscritto) data: 03/04/2015 16:27:38
ciao
devi togliere il .Value
textbox1 = Sheets("Dati").[A1].End(xlDown) - 1
altrimenti toglie 1 all'ultima cella ma non da il riferimento alla cella precedente
e' possibile scrivere anche
textbox1 = Sheets("Dati").Cells(Rows.Count, "A").End(xlUp).Row - 1
ciao
di linus (utente non iscritto) data: 03/04/2015 17:31:12
Obiettivo raggiunto....
Cit > nel tuo preciso esempio:
textbox1 = Cells(Sheets("Dati").Cells(Rows.Count, "A").End(xlUp).Row - 1, "A").Value
era ciò che cercavo...
Grazie, siete grandi.....
- Vuoi Approfondire?
