Φίλε Μιτσάκο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
Ευχαριστώ!
Εμφάνιση 16-20 από 20
-
14-11-19, 12:54 Απάντηση: Αναζήτηση Μακροεντολής αναζήτησης μεταβλητού κελιού στο excel #16
-
14-11-19, 13:43 Απάντηση: Αναζήτηση Μακροεντολής αναζήτησης μεταβλητού κελιού στο excel #17
Δοκίμασε με
Κώδικας:Range("Sheet2!A:A")
- - - Updated - - -
Πριν την select θα χρειαστεί να ενεργοποιήσεις και το αντίστοιχο φύλλο, οπότε πρέπει να βάλεις και
Κώδικας:Worksheets("Sheet2").Activate
Κώδικας: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
-
14-11-19, 18:14 Απάντηση: Αναζήτηση Μακροεντολής αναζήτησης μεταβλητού κελιού στο excel #18
Ευχαριστώ πολύ! Θα τα δοκιμάσω!
- - - Updated - - -
Δουλεύει πολύ ωραία και με το άλλο φύλλο.
Απλώς έχω σπάσει το κεφάλι μου να καταλάβω σε τι χρειάζεται αυτό:
Debug.Print "Looking for: " & Key
Ακόμα δεν έχω καταλάβει πότε εμφανίζεται.
-
14-11-19, 19:24 Απάντηση: Αναζήτηση Μακροεντολής αναζήτησης μεταβλητού κελιού στο excel #19
-
14-11-19, 20:12 Απάντηση: Αναζήτηση Μακροεντολής αναζήτησης μεταβλητού κελιού στο excel #20
Α, οκ.
Στο μεταξύ το αφαίρεσα και δεν άλλαξε κάτι. Το εγκατέστησα κανονικότατα στο πρόγραμμά μου, και δουλεύει άψογα και χωρίς αυτή την πρόταση.
Μάλιστα το μετέτρεψα να δουλεύει ακόμα και αν βρίσκομαι σε άλλο φύλλο από αυτό που βρίσκεται το κλειδί, αλλά μερικές φορές αποτυγχάνει. Αλλά όταν έχω επιλεγμένο εκείνο το φύλλο, δουλεύει άψογα.
Αυτή η μακροεντολή είναι ανεκτίμητης αξίας. Αντικατέστησε κάπου 10 άλλες μακροεντολές που έκαναν την ίδια δουλειά όλες μαζί, επειδή ως τώρα το έκανα με έμμεσο και περίπλοκο τρόπο.
Και πάλι ευχαριστώ!
Bookmarks