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

[ΔΗΜΗΤΡΙΟΣ]

Η αωαζήτηση δεν βρίσκει ένα συγκεκριμμένο τμήμα μιάς καταχώρησης.

[Spirosgr]

Δεν γνωρίζω την μακροεντολή που σου δίνει τα αποτελέσματα (strings)
στην στήλη Α, αλλά τα Ε (και πιθανό τα Α ή και άλλοι χαρακτήρες που ζητάς)
είναι Αγγλικά, και όχι Ελληνικά.

Δεν είναι δυνατόν να βρεί ΛΑΕ στα Ελληνικά, αν το string είναι ΛΑΕ, με Ε λατινικό...

Σε πρώτη φάση τσέκαρε αυτό...

Σε δεύτερη, χρησιμοποίησε την ρουτίνα:

Sub FindStr()
    Dim rng         As Range
    Dim c           As Range
    Dim lrow        As Long
    Dim iFound      As Byte
    Dim tSearch     As String

    lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Sheet1.Range("a1:a" & lrow)

    tSearch = Sheet1.Range("d1").Value

    rng.Interior.Color = xlNone
    
    For Each c In rng
        iFound = InStr(c.Value, tSearch)
        If iFound > 0 Then
            c.Interior.Color = vbYellow
        End If
    Next c
End Sub

είτε αυτόνομα είτε προσαρμόζοντας και ενσωματώνοντάς την στην υπάρχουσα
(εφ' όσον η υπάρχουσα, δεν έχει σφάλματα).

Σημειώσεις:
1. Στο κελί d1, πληκτρολογούμε το string που θέλουμε να αναζητήσουμε.
2. Όπου βρεθεί (να εμπεριέχεται), το κελί της Α στήλης γίνεται κίτρινο.
3. Οι παράμετροι της ρουτίνας μπορούν να αλλάξουν (περιοχή αναζήτησης, κελί αναζήτησης, χρώμα εμφάνισης)
4. Αν κάποιες Dim, υπάρχουν στην μακροεντολή που θα προσαρμόσετε την πιο πάνω ρουτίνα,
θα πρέπει να αλλάξουν.

[ΔΗΜΗΤΡΙΟΣ]

Ευχαριστώ πολύ !

[Spirosgr]

Έχεις κάποιες παρατηρήσεις μέσα στο βιβλίο σου.
Θα σου πω για την πρώτη, γιατί στις υπόλοιπες συμφωνούμε...

1.
«Αν με το εύρεση αντικατάσταση απαλείψω το , και τα κενά που είναι ανάμεσα στίς καταχωρίσεις και αναζητήσω το LHO από το κελί D1
τότε ο κώδικας δεν λειτουργεί.»

Απάντηση:
Λάθος, ο κώδικας λειτουργεί, και θα μαρκάρει όλα τα κελιά που περιέχουν LHO

Γενικά, ο κώδικας θα κάνει αυτό που πρέπει, αν ό,τι πληκτρολογήσουμε στ d1,
εμπεριέχεται στα κελιά της Α.

Εικόνες 1-3 λειτουργεί
Εικόνα 2, φυσικά και λειτουργεί, αλλά δεν βρίσκει «επαφή»

Μπορούμε να έχουμε και πληροφορία (msgbox) στον κώδικα για το τι βρήκε, αν βρήκε:

1
Βάζουμε μια μεταβλητή

Dim k           As Long

2
Ορίζουμε τη μεταβλητή ως μηδέν

k = 0

μετά το

rng.Interior.Color = xlNone

3
Μέσα στο loop και μέσα στο If, βάζουμε

k = k + 1

μετά το

c.Interior.Color = vbYellow

4
Τέλος μετά το

Next c

προσθέτουμε τις γραμμές

    If k = 0 Then
        MsgBox "Δεν βρέθηκαν τιμές"
     Else
        MsgBox "Βρέθηκαν " & k & " τιμές"
    End If

[ΔΗΜΗΤΡΙΟΣ]

Σωστά.
Λειτουργεί αφού τα γράμματα τα έκανα στα αγγλικά.
Με ελληνικά γράμματα δεν λειτουργεί.
Μήπως κάτι πάλι μου διαφεύγει;

Πάντως όπως και να έχει το πρόβλημα λύθηκε και σε ευχαριστώ πολύ !

[Spirosgr]

Δουλεύει πάντα και με οποιαδήποτε γλώσσα.

Σημείωση

Βρίσκει το ΛΑΦ στο string ΚΛΑΦΗΟ
Αλλά δεν βρίσκει το ΛαΦ και
δεν θα βρεί και το ΛΆΦ (τα Ελληνικά έχουν και τονισμό) διότι είναι Case Sensitive.

Μήπως έχεις τέτοια θέματα;

[ΔΗΜΗΤΡΙΟΣ]

Εδώ δεν λειτουργεί !

[Spirosgr]

Λοιπόν,
για να μην το κουράζουμε άδικα, από την αρχή είπα, ότι δεν ξέρω αν ο κώδικας που έχεις
και φέρνει τα στοιχεία της Α, είναι σωστός.
Δεν ξέρω αν και η μετατροπή που κάνεις σε Ελληνικά, η διαδικασία δηλαδή
είναι αυτή που πρέπει...

Αποδεικνύεται στο βιβλίο, ότι έχεις λάθος.

Πως;

Δες το κελί Α8. Το τελευταίο δεξιά γράμμα είναι Ε. Αν δείς τη συνάρτηση δίπλα δείχνει 69.
Ο χαρακτήρας 69 λοιπόν είναι λατινικό Ε...

Ανάλογα, θα υπάρχουν κι άλλα λάθη σε άλλα φωνήεντα ή και Ρ (R) αλλά δεν το έψαξα.
Αυτά._

[ΔΗΜΗΤΡΙΟΣ]

Σε ευχαριστώ παρα πολυ!
Με κάλυψες πληρως.
Συγνωμη που σε ζαλισα.
Να εισαι παντα καλά!