Dosya her açıldığında aktif hücre değiştirme

[OnurOnurOnur]

Ortak erişimli bir makro yazıyorum. Amacım dosya her açıldığında aktif hücrenin değişmesi. Bu sayede girilen verilen üst üste çakışmamış olacak.

Örneğin;

- "xyz" dosyası 1. kullanıcı tarafından açılıyor. A1 hücresi aktif oluyor.

- kullanıcı işlem yaparken 2. kullanıcı da aynı dosyayı açıyor ve işlem yapıyor. Açıldığı andaki aktif hücre B1 oluyor.

- 1. kullanıcı SAVE dediğinde girdiği veri o anki aktif hücre A1 olduğu için A1'e kaydoluyor.

- 2. kullanıcı SAVE dediğinde girdiği veri o anki aktif hücre B1 olduğu için B1'e kaydoluyor.

Bunu neden istiyorum?

- Daha önceki çalışmamda, "son boş satırı bul ona yaz" şeklinde bir komut kullanmıştım. 1. Kullanıcı dosyayı açtığında A1 boş görünüyor ama çalışmasını kaydetmezse ve o sırada 2. Kullanıcı da açarsa yine A1 boş görünüyor ve data üst üste yazıyor.

 

[Korhan Ayhan]

Merhaba,

Çalışmanızın "ThisWorkbook" bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Dosya açılışında aktif hücrenin altındaki hücreyi seçili yapar. Yana doğru seçmesini istiyorsanız 0 ve 1 rakamlarının yerlerini değiştirip deneyiniz.

Private Sub Workbook_Open()
    Sheets("Sayfa1").Select
    ActiveCell.Offset(1, 0).Select
End Sub