Εμφάνιση ενός μόνο μηνύματος
  #3  
Παλιά 19-09-15, 12:16
sakis297 Ο χρήστης sakis297 δεν είναι συνδεδεμένος
Όνομα: Σάκης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 04-02-2012
Μηνύματα: 49
Προεπιλογή

Γεια σου Σπύρο!
Έχεις δίκιο με τις παρατηρήσεις σου, γι' αυτό επισυνάπτω ένα δείγμα.
Στο φύλλο results2 θέλω να μεταφέρονται οι τιμές μόνο. Αυτό το κάνω, ώστε να μπορούν οι άνθρωποι που θα το χρησιμοποιούν, να εκτυπώνουν μόνο τις έγκυρες εγγραφές χωρίς κόπο.
Πριν προχωρήσω, θέλω να σου πω ότι έλυσα το πρόβλημά μου βάζοντας σε κελιά (στη στήλη 256) τη συνάρτηση ISERROR. Το αποτέλεσμα ήταν ότι μπόρεσα σε VBA να διαχειριστώ τιμές True και False, ενώ πριν προσπαθούσα σε VBA να χρησιμοποιήσω τη συνάρτηση IsError(), χωρίς όμως επιτυχία.
Άρα λοιπόν, δεν υπάρχει πλέον σοβαρός λόγος να ασχοληθεί κάποιος με τ πρόβλημά μου, παρά μόνο αν θέλει να μου πει κάποιος πως χρησιμοποιώ τη συνάρτηση IsError() κι αν υπάρχει καλύτερος τρόπος από τον κώδικα που χρησιμοποίησα.
Κώδικας:
For iCntr = 1002 To 3 Step -1
Sheets("results1").Select
    If Cells(iCntr, 256) = True Then
    Sheets("results2").Select
        Rows(iCntr).Delete
    ElseIf Cells(iCntr, 1) = 0 Then
    Sheets("results2").Select
        Rows(iCntr).Delete
    End If
Next
Sheets("results2").Select
Συνημμένα Αρχεία
Τύπος Αρχείου: xls sample.xls (15,0 KB, 20 εμφανίσεις)
Απάντηση με παράθεση