Forum - VBA Πήγαινε με στο πρώτο κελί της στήλης Ι που δεν περιέχει δεδομενα

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Πήγαινε με στο πρώτο κελί της στήλης Ι που δεν περιέχει δεδομενα (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4382-pigaine-me-sto-proto-keli-tis-stilis-i-poy-den-periexei-dedomena.html)

Βρες και επέλεξε κελι

Γεια σας, πιστεύω να είστε καλα.
Μπορεί κάποιος να με βοηθησει;
Χρειάζομαι κωδικα για ένα κουμπί το οποίο να ψάχνει και να επιλεγει στην στήλη Ι από το τέλος προς τα επάνω, παντα το πρώτο κελί που περιέχει δεδομενα. Στην στήλη Ι εισαγω δεδομένα (πάντα αριθμούς).
Σας ευχαριστώ πολύ.

Έστω στήλη Ι με την διάταξη της εικόνας.

Θα επιλέξει, τον πρώτο αριθμό που θα «συναντήσει» από κάτω προς τα επάνω.

Αριθμός:
Μηδέν, ακαίρεος, δεκαδικός, αρνητικός.

Παρακάμτεί:
Κείμενο, κενό, space.

Όπου:
Sh1=Κωδικό όνομα φύλλου.
9=Στήλη που θα ελέγξει. Αλλάξτε αν χρειαστεί (πχ για στήλη Ν=14)

Κώδικας:

Sub BottomUpValuedCell()

    Dim _

          i As Long, _

            lr As Long
 

    lr = Sh1.Cells(Rows.Count, 9).End(xlUp).Row
 

    For i = lr To 1 Step -1
 

        If IsNumeric(Sh1.Cells(i, 9).Value) And _

           Sh1.Cells(i, 9).Value <> vbNullString Then
 

            Sh1.Cells(i, 9).Activate
 

            Exit For

        Else

            'do nothing

        End If

    Next i

End Sub

Καλημέρα σε όλους! Σπύρο σε ευχαριστώ πολύ για τον χρόνο σου θα το αντιγράψω στο βιβλίο μου.

Καλημέρα, Σπύρο σε ευχαριστώ πάρα πολύ δουλεύει τέλεια!

Να 'σαι καλά.