Forum - VBA Αυτόματη ενημέρωση πίνακα

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Αυτόματη ενημέρωση πίνακα (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1299-aytomati-enimerosi-pinaka.html)

skapet155

12-08-11 14:54

Αυτόματη ενημέρωση πίνακα

1 Συνημμένο(α)

Γεια σας παιδια , εχω και εγω ενα προβλημα
Σας επισυναπτω ενα αρχειο στο οποιο στο 1ο φυλλο εχω ημερομηνιες και σπιτια προς καθαρισμα , στο 2 φυλλο θελω να δημιουργειται ενας πινακα αντιστοιχος με αυτον που απεικονιζεται και να οποιο σπιτι χρειαζεται καθαρισμα να γραφει Κ
Δεν ξερω εαν μπορειται να βοηθησετε .
Σας ευχαριστω προκαταβολικα

Tasos

12-08-11 18:08

1 Συνημμένο(α)

Καλησπέρα σε όλους!
Σταύρο καλωσόρισες στο φόρουμ!
Μετακίνησα το μήνυμα σου σε νέο θέμα.
Η δημιουργία ενός τέτοιου πίνακα προϋποθέτει γνώσεις προχωρημένου χρήστη στην Excel.

Σου επισυνάπτω αρχικά ένα παράδειγμα από όπου:

Θα συμπληρώνεις τα κτίρια στη Λίστα Κτιρίων στο Φύλλο1 για μία και μοναδική φορά.
Στο φύλλο2 θα βλέπεις τα αποτελέσματα.
Αν προσθέσεις νέο κτίριο, αφού το συμπληρώσεις στη Λίστα Κτιρίων, θα πρέπει στο
φύλλο2 να τραβήξεις την τελευταία στήλη προς τα δεξιά για να σου εμφανιστεί το νέο κτίριο με τις υπηρεσίες του.

Μελέτησε το και αν χρειαστείς κάτι γράψε στο φόρουμ.

Φιλικά

Τάσος

skapet155

13-08-11 07:56

Τασο , σε ευχαριστω πολυ ειναι οτι χρειαζομουνα αλλα δεν μπορουσα να το υλοποιησω.
Δεν ξερω εαν κανω καταχρηση αλλα οπως καταλαβαινεις κανω μια διαχειριση καθαριστριας .
Εαν καποιες μερες εχει 2 καθαρισματα δεν προλαβαινει στο ωραριο της τοτε θα μπορουσε το προγραμμα να την βαζει την επομενη μερα εαν ειναι ελευθερη και βεβαια εαν δεν εχει γινει check in

skapet155

13-08-11 08:06

1 Συνημμένο(α)

Συγνωμη κατα λαθος δεν συνεχισα το μηνυμα .
Στελνω το αρχειο απο το οποιο θα παιρνω τα στοιχεια check in , check out.
Απο αυτο αρχειο θα προκυπτει ο πινακας που εφτιαξες , με περιορισμους , καθε 2 φορες την εβδομαδα θα εχει αλλαγη "Α" , την ημερομηνια του check out θα πρεπει να γινεται καθαρισμα , και ολα αυτα με περιορισμους να μην πεφτουν 2 Καθαρισματα μαζι ( εαν ειναι δυνατον , εαν οχι να γινεται κοκκινο κ να προτεινεται 2 καθαριστριες ) 1 Καθαρισμα κ 1εως 2 Αλλαγες ειναι οκ , παραπανω παλι να αποφευγεται , εαν ειναι αδυνατον να γινεται κοκκινο κ να προτεινεται 2 καθαριστριες )
Ξερω ειναι πολυ δυσκολο με αρκετα if , και δεν ειμαι σιγουρος οτι ειναι υλοποιησιμο .
Ευχαριστω για αλλη μια φορα .

Tasos

14-08-11 11:18

Καλημέρα Σταύρο!
Το πρόβλημα για αρκετούς φίλους εδώ στο φόρουμ δεν είναι η δυσκολία της υλοποίησης αλλά
η σκέψη και ο χρόνος που θα χρειαστεί κανείς μέχρι να φτάσει στην υλοποίηση.

Στην ουσία ζητάς ολόκληρη εφαρμογή που θα χρειαστεί αρκετές ώρες για να τελειοποιηθεί.

Μια τέτοια λύση δεν μπορεί να δοθεί στα πλαίσια ενός θέματος του φόρουμ.

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

Φιλικά

Τάσος

skapet155

14-08-11 22:44

Ολα καλα Τασο σε ευχαριστω για την βοηθεια σου μεχρι τωρα

skapet155

16-08-11 13:33

καθως επεξεργαζομαι το αρχειο με τον συννημενο πινακα , διαπιστωσα οτι εαν εχω την ιδια ημερομηνια καθαρισμα σε μια κατοικια και επισης σε καποια αλλη , το Κ μπαινει στο κελι μονο για την 1 κατοικια και οχι για την δευτερη , πρεπει να αλλαξω κατι στους τυπους ?

Tasos

16-08-11 16:28

Καλησπέρα Σταύρο!

Ναι, θα χρειαστούν κάποιες μικροαλλαγές στους τύπους.
Στο αρχείο του παραδείγματος, στο Φύλλο1 και στη στήλη "D" ξεκινώντας από το κελί D2, συμπλήρωσε τον τύπο: =B2&C2.
Μπορείς αν θέλεις να κρύψεις αυτή τη στήλη.

Στο Φύλλο2 και στο κελί C2 συμπλήρωσε τον τύπο:

Κώδικας:

=IF(ISNA(MATCH($B2&C$1;Φύλλο1!$D:$D;0));"";IF(INDEX(Φύλλο1!$D:$D;MATCH($B2&C$1;Φύλλο1!$D:$D;0))=$B2&C$1;"K";""))

και σύρε τα κελιά δεξιά και κάτω όσο χρειαστεί.

Καλή συνέχεια!

Φιλικά

Τάσος

skapet155

17-08-11 08:55

ειναι πολυ καλο τασο , δουλευει μια χαρα , σε ευχαριστω.
πως θα μπορουσα οι φορμουλες που εχει ο πινακας στο Φυλλο2 να γινουν ισως με vba ωστε να μπορει καποιος να επεμβει και να μεταθεσει μερικα Κ σε αλλη ημερομηνια ?

Tasos

17-08-11 14:55

1 Συνημμένο(α)

Καλησπέρα Σταύρο!

Δες ένα παραδειγματικό κώδικα:

Κώδικας:

Option Explicit
 

Sub FillPlanTable()

    Dim rngSourceDates As Range

    Dim rngTargetDates As Range

    Dim rngRooms As Range

    Dim c As Range

    Dim d As Range

    Dim f As Range

    Dim FirstAddress As String

    Dim iCol As Integer

    Dim iRow As Integer
 

    Set rngSourceDates = Worksheets(1).Range("A:A")

    Set rngRooms = Range("C1:N1")

    On Error GoTo ErrH

    Set rngTargetDates = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)

    Application.Calculation = xlCalculationManual

    Application.ScreenUpdating = True

    With rngRooms

        .Offset(1).Resize(rngTargetDates.Count, .Count).Replace _

                What:=ChrW(922), Replacement:="", LookAt:=xlPart, _

                SearchOrder:=xlByRows, MatchCase:=False, _

                SearchFormat:=False, ReplaceFormat:=False
 

        .Offset(1).Resize(rngTargetDates.Count, .Count).Replace _

                What:="K", Replacement:="", LookAt:=xlPart, _

                SearchOrder:=xlByRows, MatchCase:=False, _

                SearchFormat:=False, ReplaceFormat:=False

    End With

    For Each c In rngTargetDates

        If Not IsEmpty(c) And IsDate(c) Then

            Set f = rngSourceDates.Find(c)

            If Not f Is Nothing Then

                FirstAddress = f.Address

                Do

                    Set d = rngRooms.Find(What:=f.Offset(, 1), LookIn:=xlValues)

                    If Not d Is Nothing Then

                        iRow = c.Row

                        iCol = d.Column

                        Cells(iRow, iCol) = "K"

                    End If

                    Set f = rngSourceDates.Find(What:=c, After:=f)

                    If f Is Nothing Then Exit Do

                Loop While f.Address <> FirstAddress

            End If

        End If

    Next

ErrH:

    Application.Calculation = xlCalculationAutomatic

    Application.ScreenUpdating = True

    If Err Then MsgBox Err & vbLf & Err.Description, vbExclamation

End Sub

Δες και το συνημμένο παράδειγμα παρακάτω.

Καλή συνέχεια!

Φιλικά

Τάσος

skapet155

17-08-11 16:27

Τασο σε ευχαριστω , δοκιμασα το αρχειο και λειτουργει , ομως οπως ειπες και εσυ το εξελισω.
Σο φυλλο 1 οι ημερομηνιες στηλη Α και η κατοικιες στηλη Β προερχονται απο αλλο τροφοδοτη αρχειο με συνεπεια ο κωδικας να μην βρισκει τιμες αυτουσιες αλλα τυπους απο τους οποιους προκυπτουν οι τιμες .Αλλαζει αυτο ?

Tasos

17-08-11 18:01

3 Συνημμένο(α)

Σταύρο, αν πρόκειται για τους τύπους που υπήρχαν στο αρχικό συνημμένο του θέματος,

τότε στον κώδικα άλλαξε τη γραμμή: Set f = rngSourceDates.Find(c)

με τη γραμμή: Set f = rngSourceDates.Find(What:=c, LookIn:=xlValues).

Εναλλακτικά (αυτό που θα σου πρότεινα), αφού οι τύποι δεν υπολογίζουν αλλά απλά επιστρέφουν την τιμή του κελιού στο οποίο αναφέρονται, είναι ευκολότερο και αποδοτικότερο να
εισάγεις δεδομένα με τη μέθοδο Εισαγωγής εξωτερικών δεδομένων από το αρχείο-πηγή

(Access, Excel, αρχείο κειμένου κ.ά.) και να τα ανανεώνεις όποτε θέλεις από το τελικό αρχείο.

Τα πλεονεκτήματα πολλά και ευεργετικά ειδικά σε μεγάλο όγκο δεδομένων.

Στο μενού "Δεδομένα > Εισαγωγή εξωτερικών δεδομένων" κάνε κλικ στην επιλογή "Εισαγωγή δεδομένων".
Στο διάλογο που θα εμφανιστεί επέλεξε το αρχείο από όπου θα αντλείς τα δεδομένα (VILLAS 2011-καθάρισμα.xls).

Στον επόμενο διάλογο που θα εμφανιστεί επιλέγεις το φύλλο που περιέχει τα δεδομένα προς εισαγωγή.

Στον επόμενο διάλογο που θα εμφανιστεί κάνε κλικ στην επιλογή "Ιδιότητες" και κάνε τις ρυθμίσεις όπως δείχνει η εικόνα:

Συνημμένο Αρχείο 1903

και κλείσε τους 2 διαλόγους μς OK.

Σου επισυνάπτω 2 συνημμένα για να το δεις σε λειτουργία:

Το VILLAS 2011-καθάρισμα.xls που θα πρέπει να το μεταφέρεις στη διαδρομή C:\,
Το ΚΑΘΑΡΙΣΜΑΤΑ.xls που παίρνει τα δεδομένα του από το C:\VILLAS 2011-καθάρισμα.xls.

Καλή συνέχεια!

Τάσος

skapet155

17-08-11 22:55

1 Συνημμένο(α)

καλησπερα και παλι κ ενα μεγαλο ευχαριστω.
εχω εξελιξει το αρχικο αρχειο οπως το συννημενο , προσπαθω να εφαρμοσω τις συμβουλες σου αλλα δεν γινεται τιποτα , επισης μπορει να βαζει Κin οταν παιρνει απο το check in στηληΑ και να βαζει Κout οταν παιρνει απο στηλη Β (και ισως να αλλαζει κ χρωμα κελιου ?)

Tasos

18-08-11 01:57

2 Συνημμένο(α)

Καλημέρα Σταύρο!

Πριν εξελίξεις μια εφαρμογή θα πρέπει να την έχεις σχεδιάσει πρώτα.

Δεν το κάνεις αυτό με αποτέλεσμα να έχει αλλάξει το σενάριο του ζητούμενου σου 3 ή 4 φορές!

Θα πρέπει να πειραματιστείς αρκετά αφού θέλεις να προγραμματίσεις στην Excel.

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

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

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

Τι νόημα θα έχει αν κάποιος βρει το χρόνο να τροποποιήσει το αρχείο σου όταν εσύ δεν μπορείς να ακολουθήσεις;

Επισυνάπτω 2 συνημμένα με αυτά που προτείνω.

Μέσα στα αρχεία αυτά θα βρεις τις τεχνικές που θα χρειαστείς προκειμένου να τελειώσεις το έργο σου:

Το VILLAS 2011-καθάρισμα.xls που θα πρέπει να το μεταφέρεις στη διαδρομή C:\,
Το ΚΑΘΑΡΙΣΜΑΤΑ.xls που παίρνει τα δεδομένα του από το C:\VILLAS 2011-καθάρισμα.xls.

Μέχρι εδώ μπορώ να σε βοηθήσω.

Δεν έχω δυστυχώς άλλο χρόνο να ασχοληθώ με το θέμα αυτό.

Φιλικά

Τάσος

skapet155

18-08-11 07:05

Τασο , σε ευχαριστω για τον χρονο που εχεις διαθεσει .Η βοηθεια σου ειναι σημαντικη . Επειδη ασχολουμαι με σχεδιασμους οχι προγραμματων αλλα με αλλου ειδους, πολλες φορες φευγεις απο τα αρχικα σεναρια και ψαχνεις διεξοδους και επανασχεδιαζεις , μεχρι να καταληξεις σε ενα ικανοποιητικο αποτελεσμα .Δεν θα ενοχλησω ξανα με αυτο το θεμα

Η ώρα είναι 20:27.

Search Engine Optimization by vBSEO 3.3.2