IOANNISTSA

Εισαγωγή του Κώδικα (copy/paste) σε ένα Module Sub ApplicationActivateEvents() Application.ScreenUpdating = True Application.EnableEvents = True End Sub Εισαγωγή του Κώδικα (copy/paste) στο Worksheet που γίνεται η εισαγωγή. Private Sub Worksheet_Change(ByVal Target As Range) Dim AC_Value As Date Dim Datev As Variant On Error GoTo Exit_Sub AC_Row = ActiveCell.Row AC_Column = ActiveCell.Column AC_Value = Cells(ActiveCell.Row - 1, ActiveCell.Column) Datev = AC_Value On Error GoTo 0 Input_Col = 3 Input_Row1 = 4 Input_Row2 = 10 Application.ScreenUpdating = False Application.EnableEvents = False Do While Target.Column = Input_Col Do While Target.Row >= Input_Row1 And Target.Row <= Input_Row2 On Error Resume Next Cells(AC_Row - 1, AC_Column).NumberFormat = "dd/mm/yyyy" On Error Resume Next If DatePart("m", Datev) <= 2 Then Cells(AC_Row - 1, AC_Column) = DateValue(AC_Value) - 366 Else Cells(AC_Row - 1, AC_Column) = DateValue(AC_Value) - 365 End If Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub Loop Exit Sub Loop Exit_Sub: Application.ScreenUpdating = True Application.EnableEvents = True End Sub Η εισαγωγή (ημερομηνίες) γίνεται στα κελιά C4 έως C10, στο Macro αλλάζεις τις μεταβλητές Ιnput κατά το δοκούν. Input_Col = 3 Input_Row1 = 4 Input_Row2 = 10 Το Workbook πρέπει να γίνει Save As Excel Binary Workbook (*.xlsb) για να λειτουργούν οι Μακροντολές.

Με Custom Format βλέπεις 2020 αλλά το κελί έχει τιμή 2021 ..

Τα προγράμματα OCR, Optical Character Recognition => Οπτική Αναγνώριση Χαρακτήρων, μετατρέπουν τα αρχεία εικόνων οποιασδήποτε μορφής που περιέχουν κείμενο σε αρχεία κειμένου όπου έπειτα μπορείς να τα ανοίξεις και επεξεργαστείς με ένα πρόγραμμα επεξεργασίας κειμένου.

Εγώ θα αγόραζα Bosch ....

Το μόνο σημείο που μπορεί να βουλώσει είναι το κάτω και για αυτό το λόγο υπάρχει και η τάπα, την ξεβιδώνεις, απομακρύνεις ότι έχει μαζέψει και ξαναβιδώνεις. Στο δικό μου σιφόνι νεροχύτη, ετών 30+, όσες φορές έχει βουλώσει ήταν μετα την σύνδεση του "S" στον "τοίχο" όπου το ξεβουλώνω με ατσαλίνα και παράλληλα λύνω και καθαρίζω το σιφόνι. (ποτε καμοιά φλάτζα δεν έχει χαλάσει κατα το λύσιμο/δέσιμο)

Αυτα ισχύουν για τον υπολογισμό του τέλους ταξινόμησης για εισαγωγή αυτοκινήτου.στην Ελλάδα.

Η απόφαση βγήκε σε τρεις μήνες και η ασφαλιστική πλήρωσε μετά από 10 μέρες. Δεν έγινε καμιά αίτηση για αναβολή. Μετά από το ατύχημα κατέθεσα τις πινακίδες στην Δ.Ο.Υ και αργότερα το απέσυρα από την κυκλοφορία και πήρα πιστοποιητικό καταστροφής.

Μου έκαναν προσφορά μετα στα 2500 ευρώ αλλα τους είπα ότι για να αποσύρω την αγωγή θέλω 5000 ευρώ. Το δικαστήριο επιδίκασε 6900 ευρώ μαζί με το ποσό της ηθικής βλάβης. Τα έξοδα της δίκης βάρυναν την ασφαλιστική και τα έξοδα του δικηγόρου εμένα.

Σε περίπτωση ολικής καταστροφής καμιά ασφαλιστική δεν σε αποζημιώνει στην πραγματική αξία του αυτοκινήτου, ούτε καν στην εμπορική αξία βάση τιμών πώλησης σε Autotriti.gr , Car.gr κ.λ.π. Η μόνη οδός είναι η δικαστική. 2007 Ταξιτζής παραβιάζει προτεραιότητα και τρακάρει το αυτοκίνητό μου και άλλα δύο στην συνέχεια. Αυτοκίνητο 10 ετών, ατρακάριστο, άψογα συντηρημένο με 69000 χλμ. Κόστος αγοράς 18000 ευρώ Η ασφαλιστική δίνει 2000 ευρώ. Φυσικά δεν δέχθηκα και προχώρησα σε αγωγή. Στο δικαστήριο κατέθεσα οτιδήποτε ήταν χρήσιμο στο να αποδείξω ότι το αυτοκίνητο ήταν ατρακάριστο και άψογα συντηρημένο (τα χιλιόμετρα δεν αμφισβητούνται). Η εμπορική αξία στο Autotriti.gr εάν θυμάμαι καλά ήταν 4500 ευρώ στο βασικό εξοπλισμό με 10000 χλμ το χρόνο. Πήρα δικάσιμο σε ένα χρόνο. Η απόφαση του δικαστηρίου ήταν άμεσα εκτελεστέα λόγο (μάλλον) του ότι ο οδηγός είχε παραβιάσει προτεραιότητα και αναγκαστικά είχε υποβάλλει θετική δήλωση υπαιτιότητας και αποζημιώθηκα περίπου με 6900 ευρώ μαζί με τους τόκους. Το Δικαστήριο επιδίκασε και το εύλογο ποσό των 1100 ευρώ λόγω ηθικής βλάβης (ή κατι τέτοιο) για αγορά καινούριου αυτοκινήτου όπου ο δικηγόρος κατέθεσε αντίστοιχο δεδικασμένο

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

100 μέτρα καλώδιο δεν σου φτάνει ?

Τελικά έκανα λάθος δεν είναι δυο οι κατηγορίες αλλα τρεις : Xρήστες άΧρηστοι Πεφωτισμένοι

Κακώς κατηγοριοποιείς τους χρήστες ανάλογα με το Λειτουργικό Σύστημα. Για μένα οι Κατηγορίες Χρηστών στον επαγγελματικό χώρο ή γενικότερα είναι Δυο: Xρήστες άΧρηστοι Στο συμπέρασμα αυτό κατέληξα έχοντας εμπειρία πάνω από 25 χρόνια στο Δημόσιο και στον Ιδιωτικό τομέα σε τεχνική υποστήριξη (IT Support).

Τα ποσοστά χρήσης Linux μειώθηκαν κατά 50%+ το πρώτο δεκαπενθήμερο του Ιουνίου από 3,17% σε 2,03% Netmarketshare_Destop IOS 14-069-2020

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

Που έχεις παραθέσει φωτογραφία με τα Ah της μπαταρίας ? !

Πόσα Ah είναι η μπαταρία του Netbook (φωτογραφία με τα χαρακτηριστικά εάν είναι δυνατόν) ?

Όλα είναι σχετικά. Εάν με το αυτοκίνητο κάνεις μικρές διαδρομές και πάνω από 3εις-4εις εκκινήσεις την ημέρα τότε η μπαταρία δεν φορτίζεται σωστά, εάν είναι και πάνω από 4-5 χρόνια τότε 6-8 ώρες είναι αρκετές με ανοιχτά τα φώτα για να αποφορτιστεί η μπαταρία.

Το Netbook τραβάει 1a έως 2a σε 10 ώρες θέλει 10Ah έως 20Ah χωρίς απώλειες λόγω μετατροπής εάν βάλουμε και απώλειες τότε στο περίπου είμαστε στα 12Ah έως 24Ah. Μια πλήρως φορτισμένη μπαταρία σε άριστη κατάσταση πάνω από 70Ah (μάλλον) δεν θα έχει πρόβλημα εάν η κατανάλωση είναι γύρω στα 12Ah αλλά για παν ενδεχόμενο έχε και έναν εκκινητή μαζί σου.

Τέτοιου είδους τροφοδοτικά είναι και για χρήση σε αυτοκίνητο στην υποδοχή του αναπτήρα. Δεν έχω δοκιμάσει τίποτα τέτοιο γιατί απλούστατα δεν έχω ούτε netbook ούτε Laptop. Γιατί να πάρεις όπως ανέφερες «μετατροπέα 12v από τη θήρα αναπτήρα του αυτοκινήτου σε 220v» και να συνδέσεις το τροφοδοτικό του Netbook που θα μετατρέψει τα 220v σε 19,5v και να μην πάρεις «μετατροπέα» από 12v σε 19,5v ? Οι ώρες που αναφέρεις είναι πολλές και σίγουρα η μπαταρία θα αποφορτιστεί με κινητήρα σε μη λειτουργία. Μια άλλη λύση είναι να αλλάξεις μπαταρία στο Netbook ή να δανειστείς από κάποιο γνωστό σου ένα Netbook χωρίς πρόβλημα στην μπαταρία και να το φορτίσεις όταν χρειάζεται με τον κινητήρα σε λειτουργία.

Ψάξε για Power 12V DC to 20v dc σαν το παρακάτω ... 100W 12V-24V Universal For Laptop AC/DC to DC Adapter Car Charger Power Supply WWW.EBAY.COM Aluminium case which can help heat dissipation avoid fire hazard due to overheat. Output : 12-24.5V / Max 5A 22 & 24V/ Max 4A. 1 set 8 pcs...

Θα μπορούσε ο Σπύρος να μας ενημερώσει για την εξέλιξη του προβλήματός του…

Μικροβελτιώσεις της αρχικής προσέγγισης μέσω VBA. Οι λίστες ανανεώνονται αυτόματα όταν γίνονται αλλαγές ή προσθήκες στο τέλος της κάθε μιάς. Download and save as Droplist2.xlsm DropList2.xlsx

Λύση με Macro χωρίς περιορισμό στον αριθμό των ομάδων και των υποομάδων πέραν τον ορίων που ορίζει το Excel. Οι λίστες ανανεώνονται αυτόματα αρκεί να κάνεις μια επιλογή την πρώτη φορά μετά τις προσθήκες. Download and Rename the file as Droplist.xlsm DropList.xlsx

Computer από το 2011 με Win 7 και free upgrade στα Win 10 χωρίς κανένα πρόβλημα έως σήμερα όπως και το 20" EIZO Flexscan L887 με 36796 ώρες λειτουργίας που πλησιάζει τα 20 χρόνια ! με εγγύηση 10000 ώρες λειτουργίας ή 5 χρόνια.