[Thanosp]

Καλημέρα σε όλους
Με την παρατήρηση ότι δεν ενδιαφέρει η πτώση αλλά μόνο το μάζεμα ο κώδικας μπορεί να γραφεί
Sub NewRowActive1021(Row As Long)

Dim strSheetname,yphko, epwn, onom, on_pa, on_mh, genn As String
strSheetname = ActiveCell.Parent.Name & "!"
' ΕΝΗΜΕΡΩΣΗ ΣΤΟΙΧΕΙΩΝ ΑΙΤΗΣΗΣ ΣΥΜΦΩΝΑ ΜΕ ΤΗΝ ΕΠΙΛΟΓΗ ΑΠΟ ΤΟ ΑΡΧΕΙΟ
'ΣΤΟΙΧΕΙΑ ΑΙΤΗΣΗΣ
'----------------
Sheets(TEMPLATE_SHEET).Range("DATE_ISSUE_1").Value = "=" + strSheetname & "A" & CStr(Row)
yphko="=" + strSheetname & "J" & CStr(Row)
epwn="=" + strSheetname & "D" & CStr(Row)
onom="=" + strSheetname & "E" & CStr(Row)
on_pa="=" + strSheetname & "F" & CStr(Row)
on_mh="=" + strSheetname & "G" & CStr(Row)
genn ="=" + strSheetname & "K" & CStr(Row)
'ΕΛΛΗΝΙΚΗ (επ) ΠΑΠΑΔΟΠΟΥΛΟΣ (ον) Νικόλαος του Νικολάου και της Ελένης γεν. 1/1/1950
Sheets(TEMPLATE_SHEET).Range("surname").Value =yphko &" (επ) "& epwn &" (ον) "& onoma &" του "& on_pa &" και της "& on_mh &" γεν. "& gen &"."
'τα παραπάνω θα γραφούν όλα μαζύ σε ένα κελί στο ονόματος πχ
Sheets(TEMPLATE_SHEET).Range("FATHER_NAME").Value = "=" + strSheetname & "F" & CStr(Row)
......
Θανάσης