[Tasos]

Καλημέρα σε όλους!

Εναλλακτικά μπορεί να αντιστοιχηθεί ο παρακάτω κώδικας στο κουμπί "CommandButton1" στο βιβλίο "GBook1.xls":

Private Sub CommandButton1_Click()
' μεταφορά δεδομένων, της ίδιας ημερομηνίας, από GBook1.xls στο GBook2.xls
    Dim wb As Workbook, c As Range, wbName As Variant, wbWasClosed As Boolean

    If Not IsDate(Me.Range("B1")) Then Exit Sub

    If Dir(ThisWorkbook.Path & "\GBook2.xls", vbDirectory) <> vbNullString Then
        wbName = ThisWorkbook.Path & "\GBook2.xls"
    Else
        wbName = Application.GetOpenFilename("Αρχεία Excel, *.xls", , "Αναζήτηση βιβλίου...")
    End If

    If wbName <> False Then
        Application.ScreenUpdating = False
        Set wb = GetObject(wbName)
        wbWasClosed = Not wb.Windows(1).Visible
        If wbWasClosed Then wb.Windows(1).Visible = True  'Το εμφανίζω γιατί στο XL 15 δημιουργείται προβλήμα
        With wb.Worksheets(1)
            Set c = .Range("A:A").Find(Me.Range("B1"), LookIn:=xlValues)
            If Not c Is Nothing Then
                .Range(.Cells(c.Row, 2), .Cells(c.Row, 4)).Value = Me.Range(Me.Cells(3, 2), Me.Cells(3, 4)).Value
                .Range(.Cells(c.Row, 5), .Cells(c.Row, 7)).Value = Me.Range(Me.Cells(4, 2), Me.Cells(4, 4)).Value
                wb.Save
            End If
        End With
        If wbWasClosed Then
            wb.Close False
        End If
    End If
End Sub

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

Τάσος