Σελ. 2 από 2 ΠρώτηΠρώτη 12
Εμφάνιση 16-20 από 20
  1. #16
    Εγγραφή
    01-11-2019
    Ηλικία
    56
    Μηνύματα
    19
    Downloads
    0
    Uploads
    0
    ISP
    HOL
    Φίλε ΜιτσάκοGR (ή όποιος άλλος γνωρίζει), στο παράδειγμα που μου έστειλες σε συνημμένο, πώς θα μπορούσα να διατυπώσω το ίδιο πράγμα στη Μακροεντολή, αλλά να κάνει αναζήτηση σε πίνακα άλλου φύλλου, από αυτό στο οποίο βρίσκεται το κελί-κλειδί με την τιμή που αναζητάμε;

    θυμίζω ότι η μακροεντολή έλεγε τα εξής:

    Sub btnFindClick()
    Dim Key As String
    Key = Range("E1").Value

    If Key = "" Then
    MsgBox "Please enter something in E1 to search for"
    Exit Sub
    End If

    Debug.Print "Looking for: " & Key

    Set rgFound = Range("A:A").Find(Key, After:=Range("A1"))

    If rgFound Is Nothing Then
    MsgBox Key & " was not found"
    Else
    rgFound.Select
    rgFound.Activate
    End If
    End Sub

    Ευχαριστώ!

  2. #17
    Εγγραφή
    13-11-2011
    Περιοχή
    Χολαργός
    Ηλικία
    33
    Μηνύματα
    1.042
    Downloads
    1
    Uploads
    0
    Τύπος
    VDSL2
    Ταχύτητα
    24000 / 4500
    ISP
    Wind
    DSLAM
    Wind - ΧΟΛΑΡΓΟΣ
    Path Level
    Interleaved
    Δοκίμασε με
    Κώδικας:
    Range("Sheet2!A:A")
    όπου "Sheet2" θα βάλεις το όνομα του φύλλου που είναι τα δεδομένα.

    - - - Updated - - -

    Πριν την select θα χρειαστεί να ενεργοποιήσεις και το αντίστοιχο φύλλο, οπότε πρέπει να βάλεις και
    Κώδικας:
    Worksheets("Sheet2").Activate
    - - - Updated - - -

    Κώδικας:
    Sub btnFindClick()
        Dim Key As String
        Key = Range("E1").Value
        
        If Key = "" Then
            MsgBox "Please enter something in E1 to search for"
            Exit Sub
        End If
        
        Debug.Print "Looking for: " & Key
        
        Set rgFound = Range("Φύλλο2!A:A").Find(Key, After:=Range("Φύλλο2!A1"))
    
        If rgFound Is Nothing Then
            MsgBox Key & " was not found"
        Else
            Worksheets("Φύλλο2").Activate
            rgFound.Activate
        End If
    End Sub

  3. #18
    Εγγραφή
    01-11-2019
    Ηλικία
    56
    Μηνύματα
    19
    Downloads
    0
    Uploads
    0
    ISP
    HOL
    Ευχαριστώ πολύ! Θα τα δοκιμάσω!

    - - - Updated - - -

    Δουλεύει πολύ ωραία και με το άλλο φύλλο.

    Απλώς έχω σπάσει το κεφάλι μου να καταλάβω σε τι χρειάζεται αυτό:

    Debug.Print "Looking for: " & Key

    Ακόμα δεν έχω καταλάβει πότε εμφανίζεται.

  4. #19
    Εγγραφή
    13-11-2011
    Περιοχή
    Χολαργός
    Ηλικία
    33
    Μηνύματα
    1.042
    Downloads
    1
    Uploads
    0
    Τύπος
    VDSL2
    Ταχύτητα
    24000 / 4500
    ISP
    Wind
    DSLAM
    Wind - ΧΟΛΑΡΓΟΣ
    Path Level
    Interleaved
    Παράθεση Αρχικό μήνυμα από Nikrom Εμφάνιση μηνυμάτων
    Απλώς έχω σπάσει το κεφάλι μου να καταλάβω σε τι χρειάζεται αυτό:

    Debug.Print "Looking for: " & Key

    Ακόμα δεν έχω καταλάβει πότε εμφανίζεται.
    Χρησίμευσε στο να δω αν θα κάνει τη σωστή αναζήτηση. Εμφανίζεται σαν μήνυμα στο παράθυρο "Immediate" της VBA.
    Πατήστε στην εικόνα για να τη δείτε σε μεγέθυνση. 

Όνομα:  vba.png 
Εμφανίσεις:  1 
Μέγεθος:  45,1 KB 
ID: 208661

  5. #20
    Εγγραφή
    01-11-2019
    Ηλικία
    56
    Μηνύματα
    19
    Downloads
    0
    Uploads
    0
    ISP
    HOL
    Α, οκ.

    Στο μεταξύ το αφαίρεσα και δεν άλλαξε κάτι. Το εγκατέστησα κανονικότατα στο πρόγραμμά μου, και δουλεύει άψογα και χωρίς αυτή την πρόταση.

    Μάλιστα το μετέτρεψα να δουλεύει ακόμα και αν βρίσκομαι σε άλλο φύλλο από αυτό που βρίσκεται το κλειδί, αλλά μερικές φορές αποτυγχάνει. Αλλά όταν έχω επιλεγμένο εκείνο το φύλλο, δουλεύει άψογα.

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

    Και πάλι ευχαριστώ!

Σελ. 2 από 2 ΠρώτηΠρώτη 12

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας