Πως γίνεται να το αγνοήσει το ""
 

Χριστός Ανέστη και χρόνια πολλά
Έχω μια ερώτηση για την vb όταν:
.Cells(nrow, 1).Value = xID
For Each n In Range("z1z")
.Cells(nrow, n).Value = n.Offset(11, 0).Value
και είναι το nrow κενό (“”) πως γίνεται να το αγνοεί.:ohno:
Γιώργος

Καλησπέρα Γιώργο, Χριστός ανέστη!

Δεν έχω καταλάβει τι προσπαθείς να επιτύχεις.

Περίγραψε μας ακριβώς το ζητούμενο.

Φιλικά

Τάσος

Καλησπέρα και από εμένα Τάσο Χρίστος Ανέστη
Από των κώδικα που μου έγραψες διέγραψα ότι νόμιζα περιττά και προσπαθώ να κάνω μια καινούρια κάρτα αρχείου κάνοντας οριζόντιες εγγραφές γραμμή γραμμή , και έχω κόλληση όταν βρίσκω κενή ID.
Στο συνημμένο μπορείς να ρίξεις μια ματιά.
Υ.Γ. ανορθόδοξος ο τρόπος αλλά δουλεύει:confused:

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

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

Χρησιμοποιούμε VBA μόνο αν δεν μας καλύπτουν οι δυνατότητες της ίδιας της Excel.

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

Σε τι ωφελεί να έχεις 2 όμοια μπλοκ δεδομένων;

Αν θέλεις τη συμβουλή μου μάθε πρώτα τι δυνατότητες σου παρέχει η εφαρμογή Excel και ασχολήσου περισσότερο με τη δομή των δεδομένων για να μπορείς να παίρνεις τα αποτελέσματα που σε ενδιαφέρουν.

Εμείς πως θα σε βοηθήσουμε όταν τα αποτελέσματα που θέλεις να εμφανίσεις στην εφαρμογή σου μας είναι ακόμα άγνωστα;

Πες μας τι θέλεις να κάνεις (όχι πως εχεις σκεφτεί να το κάνεις) δηλαδή ποιο θα είναι το τελικό αποτέλεσμα που σε εξυπηρετεί προκειμένου να σου δώσουμε κάποιες ιδέες και να σε βοηθήσουμε να ξεκινήσεις σωστά.

Φιλικά

Τάσος

Καλησπέρα Τάσο και χρόνια πολλά και για την ονομαστική σου γιορτή.
Χθες ξέχασα να το αναφέρω.:oooops:
Πολύ εύστοχες η παρατηρήσεις σου, αλλά μάλλον ξέχασες ότι απευθύνεσαι σε αρχάριο επιεικής ο ορός (ανίδεος)κατά κύριο λόγο και χωρίς να γνωρίζει αγγλικά, και που τώρα άρχισε να σκαλίζει το excel.
Και φυσικά θέλω την συμβουλή σας γιατί δεν γνωρίζω πώς και τι να κάνω.
Όσο αφορά τα συνημμένα που κατά καιρούς ανέβασα είναι φτιαγμένα έτσι ώστε να είναι μικρά 37kb και μικρότερα για να μην επιβαρύνω το Forum.
Το αρχικό αρχείο είναι 380kb έχοντας αφαίρεση πλέων όλες της φώτο κ.τ.λ το όπιο θα το επισυνάψω για να μου πείτε τις παρατήρησης σας και για να έχετε μια ολοκληρωμένη εικόνα.
Περιμένω να μου πείτε την γνώμη σας και ιδικά την δικά σου Τάσο όσο του Σπύρου και Θανάσης που βοήθησαν αρκετά.
Σας ευχάριστο εκ των προτέρων Γιώργος.

Πολύ ωραία εφαρμογή, και γενικά το όλο στήσιμο, το κακό είναι ότι έχεις κλειδωμένα τα φύλλα 'προστασία'

Καλησπέρα Θανάση Χρήστος Ανέστη
Στα περισσότερα φύλλα είναι κενό όπου ζητηθεί είναι (1)

Καλησπέρα χρήστο
κάνοντας έλεγχο σε ?row αν η τιμή είναι <>"" του κενού τότε να γράψει
If mrow <> "" Then .Cells(mrow, 1).Value = xID
For Each m In Range("z1z")
If mrow <> "" Then
.Cells(mrow, m).Value = m.Offset(11, 0).Value
End If
next
θανάσης

Θανάση σε ευχαριστώ δουλεύει…….. :icon_n1:
Τώρα μπορώ να συνεχίσω τα λάθη μου.
Γιώργος