Üstadlar merhaba,
Sorunum şu; 2 ayrı sheet kullanıyorum, kitap2 den kitap1'e geçişte A1 hücresine gelmem gerekirken çok altlardaki bir hücreye geçiyorum ve her defasında en üste çekmek zorunda kalıyorum. Çözümü var mıdır.
Saygılarımla
![Çözüldü](images/icons/cozuldu.png)
Private Sub Worksheet_Activate()
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
'Cells(sonsatır, 1).Select '<== satır son satırdaki ilk hücreye gitmesine sebep oluyor
Cells(1, 1).Select '<== eğer komutu bu satırla değiştirirseniz cell( satır , sütun) gider
End Sub