Ανανέωση ιστοσελίδας

[Ζαχαρίας]

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

[Spirosgr]

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

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

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

Παρακάμτεί:
Κείμενο, κενό, 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

[Ζαχαρίας]

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

[Ζαχαρίας]

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

[Spirosgr]

Να 'σαι καλά.