Καλησπέρα Σπύρο
Πολύ ενδιαφέρουσα η πρόταση σου και ίσως να την χρησιμοποιήσω.
Αλλά μην ξεχνάς είμαι αρχάριος.
Με την βοήθεια του Τάσου και κόβοντας από των κώδικα τα περιττά των έφτασα να κάνη την πρώτη εγγραφή.
Τι λες πρέπει να τα παρατήσω τελικά……!
Υ.Σ Επίσης δεν γνωρίζω αγγλικά και για αυτό πιστεύω πως μου είναι δύσκολο να κατανοήσω των κώδικα.
Καλή Αναστάση
Sub UpdateValues()
Dim c As Range, xID As Long, xRow As Long
If Range("IsNewEntry") Then
xID = Range("newID")
xRow = Range("newrow")
End If
With katanomi
If Range("IsNewEntry") Then Range("IsNewEntry") = True
.Cells(xRow, 1).Value = xID
For Each c In Range("z1z")
If IsNumeric(c) And c > 2 Then
.Cells(xRow, c).Value = c.Offset(1, 0).Value
End If
Next
ThisWorkbook.Names.Add "monthlist", .Range("b5:b" & Range("NewRow") - 1)
.Cells(xRow, 2).Value = .Cells(xRow, 3).Value & "-" & .Cells(xRow, 4).Value
Range("IsNewEntry") = True
End With
End Sub