| Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| | Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
|
#1
| |||
| |||
|
Πως μπορώ να κάνω αναζήτηση των δεδομένων μου ανάμεσα σε δύο ημερομηνίες και να μου εμφανίζεται έπειτα μια λίστα με όλα τα δεδομένα που έχουν περαστεί σε αυτές τι ημερομηνίες; Π.χ θέλω να κάνω μια αναζήτηση από τις 10/8/2017 μέχρι και σήμερα και να μου εμφανίσει όλα τα δεδομένα από τότε μέχρι σήμερα. Η αναζήτηση θέλω να γίνεται χρησιμοποιώντας VBA κώδικα . Έχω κάνει βέβαια μια προεργασία αλλά δέχεται μόνο μια ημερομηνία (η οποία βρίσκεται στο κελί H1) και ψάχνω τρόπο για το πως θα προσθέσω και την δεύτερη (η οποία βρίσκεται στο κελί I1) στον κώδικα έτσι ώστε να μου εμφανίζει τα δεδομένα από την 1η ημερομηνία μέχρι και την 2η. Κώδικας: Sub finddata()
'ΕΔΩ ΚΑΝΟΥΜΕ ΑΝΑΖΗΤΗΣΗ ΜΙΑ ΗΜΕΡΟΜΗΝΙΑ ΠΟΥ ΕΧΟΥΜΕ ΟΡΙΣΕΙ
Dim hmeromhnia As String
Dim finalrow As Integer
Dim i As Integer
If ActiveSheet.Cells(1, 8) = "" Then
MsgBox "Δεν έχετε επιλέξει ημερομηνία." & vbCrLf & "Επιλέξτε την και δοκιμάστε πάλι.", vbExclamation
ActiveSheet.Cells(1, 8).Select
Exit Sub
End If
Sheets("ΑΡΧΕΙΟ").Range("I7:N1048576").ClearContents
hmeromhnia = Sheets("ΑΡΧΕΙΟ").Range("H1").Value
finalrow = Sheets("ΑΡΧΕΙΟ").Range("C1048576").End(xlUp).Row
For i = 2 To finalrow
If Cells(i, 3) = hmeromhnia Then
Range(Cells(i, 1), Cells(i, 6)).Copy
Range("I1048576").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
End If
Next i
End Sub
(Έψαξα και στο site αλλά από αυτά που βρήκα δεν μπόρεσα να καταλάβω κάτι.) Στο συνημμένο τα δεδομένα βρίσκονται στο ΑΡΧΕΙΟ. Ευχαριστώ εκ των προτέρων. Τελευταία επεξεργασία από το χρήστη bilakos26 : 25-10-17 στις 01:25. Αιτία: Έγιναν μερικές αλλαγές στο συννημένο |
| Ετικέτες |
| excel, vba |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
| ||||
| Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
| [Γενικά] Αναζήτηση δεδομένων | gfevran | Excel - Ερωτήσεις / Απαντήσεις | 5 | 06-11-15 18:50 |
| [Πρότυπα] Αναζήτηση δεδομένων | Spirosgr | Excel samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 14-04-14 00:30 |
| Αναζήτηση αποτελεσμάτων ανάμεσα σε ημερομηνίες | kellis | Access - Ερωτήσεις / Απαντήσεις | 6 | 31-10-13 16:21 |
| [Συναρτήσεις] Αναζήτηση και Εκτύπωση Δεδόμενων απο Βάση Δεδομένων | nakosg | Excel - Ερωτήσεις / Απαντήσεις | 9 | 01-02-13 19:34 |
| [VBA] Μεταφορά δεδομένων ανάμεσα σε φύλλα | anastasiosz | Excel - Ερωτήσεις / Απαντήσεις | 11 | 10-03-11 18:21 |
Η ώρα είναι 18:55.



Θεματικός Τρόπος
