[kapetang]

Καλησπέρα

Δες τα σχόλια που πρόσθεσα στον κώδικα:

Private Sub CommandButton4_Click()
    'Πρέπει να δηλώνεται κάθε μεταβλητή. Αν δε δηλωθεί θεωρείται Variant
    'Για παράδειγμα οι μεταβλητές wkALPHA, wkPeiraios είναιVariant
    'και όχι Worksheet
    
    Dim wkALPHA, wkPeiraios, wkMetrita As Worksheet
    Dim AddReiceptALPHA, AddReiceptPEIRAIOS, AddMETRITA As Range

    Set wkALPHA = Φύλλο1
    Set wkPeiraios = Φύλλο2
    Set wkMetrita = Φύλλο3

    Set AddReiceptALPHA = wkALPHA.Range("A65356").End(xlUp).Offset(1, 0)
    Set AddReiceptPEIRAIOS = wkPeiraios.Range("A65356").End(xlUp).Offset(1, 0)
    Set AddMETRITA = wkMetrita.Range("A65356").End(xlUp).Offset(1, 0)

    'Τα στοιχεία ελέγχου (ComboBox1, ...,TextBox8) ανήκουν
    'στη σελίδα 1
    AddReiceptALPHA.Offset(0, 0).Value = ComboBox1.Text
    AddReiceptALPHA.Offset(0, 1).Value = TextBox2.Text
    AddReiceptALPHA.Offset(0, 2).Value = TextBox3.Text
    AddReiceptALPHA.Offset(0, 3).Value = TextBox4.Text
    AddReiceptALPHA.Offset(0, 4).Value = TextBox5.Text
    AddReiceptALPHA.Offset(0, 5).Value = TextBox6.Text
    AddReiceptALPHA.Offset(0, 6).Value = TextBox7.Text
    AddReiceptALPHA.Offset(0, 7).Value = TextBox8.Text

    'Τα στοιχεία ελέγχου της 2ης σελίδας δεν ταυτίζονται
    'με αυτά της σελίδας 1. Είναι (ComboBox2, TextBox9, ..., TextBox15
    AddReiceptPEIRAIOS.Offset(0, 0).Value = ComboBox1.Text
    AddReiceptPEIRAIOS.Offset(0, 1).Value = TextBox2.Text
    AddReiceptPEIRAIOS.Offset(0, 2).Value = TextBox3.Text
    AddReiceptPEIRAIOS.Offset(0, 3).Value = TextBox4.Text
    AddReiceptPEIRAIOS.Offset(0, 4).Value = TextBox5.Text
    AddReiceptPEIRAIOS.Offset(0, 5).Value = TextBox6.Text
    AddReiceptPEIRAIOS.Offset(0, 6).Value = TextBox7.Text
    AddReiceptPEIRAIOS.Offset(0, 7).Value = TextBox8.Text

    'Τα στοιχεία ελέγχου της 3ης σελίδας δεν ταυτίζονται
    'με αυτά της σελίδας 1. Είναι (ComboBox3, TextBox16, ..., TextBox22

    AddMETRITA.Offset(0, 0).Value = ComboBox1.Text
    AddMETRITA.Offset(0, 1).Value = TextBox2.Text
    AddMETRITA.Offset(0, 2).Value = TextBox3.Text
    AddMETRITA.Offset(0, 3).Value = TextBox4.Text
    AddMETRITA.Offset(0, 4).Value = TextBox5.Text
    AddMETRITA.Offset(0, 5).Value = TextBox6.Text
    AddMETRITA.Offset(0, 6).Value = TextBox7.Text
    AddMETRITA.Offset(0, 7).Value = TextBox8.Text

End Sub