17-10-11, 18:31
|
| Όνομα: ΧΡΗΣΤΟΣ Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 03-12-2010 Περιοχή: αγια παρασκευη
Μηνύματα: 36
| |
Καλησπέρα !
Φίλε λευτέρη σ ευχαριστώ για το ενδιαφέρον σου δυστηχώς και εγω δεν έχω γνώσεις VBA
το συννημένο σου περιέχει τον παρακάτω κώδικα :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
With ThisWorkbook.Worksheets("Sheet2")
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Me.Range("A1").Value
.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = Me.Range("B1").Value
End With
End If
End Sub
αλλα δεν γνωρίζω πως να το προσαρμόσω στα δικα μου δεδομένα.  |