Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 05-03-11, 10:32
anastasiosz Ο χρήστης anastasiosz δεν είναι συνδεδεμένος
Όνομα: Αναστάσιος
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 03-03-2011
Μηνύματα: 10
Προεπιλογή

το δοκιμασα με αλλο τροπο και δουλεψε If Target.Address = "$A$1" Then
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = Target.Value

ελπιζω μην ειναι λαθός τροπος :)
Απάντηση με παράθεση