Kodlarda Revize Satır Ekleme ve Kursör

Sn. @yasarpiskin

Koddaki son = .... satırını son = WorksheetFunction.Max([B:B]) + 5 olarak değiştirip,
Application.ScreenUpdating = True.... satırının sütüne Range(adr).Activate diye bir satır ekleyerek deneyin.

.

Çok teşekkür ederim.

Ekran görüntüsünü paylaştığım hatayı vermeye başladı.

Ben öyle bir hata almıyorum.
İmleci kodda o satıra getirin ve F9 tuşuna basın (satır BORDO renkli hale gelecek)
Sonra sayfada bir işlem yapınca kod o satırda duracak.
Kod durduğunda fareyle adr ibaresinin üstüne geldiğinizde ne görüyorsunuz?
Ekran görüntüsündeki gibi, İşlem yapılan hücrenin adresini görüyor olmalısınız.

adr="$G$7"

Kodu devam ettirirseniz G7 hücre seçili hale gelecek.
Sorun yok demektir.

DATA sayfasındaki mevcut kod ile AA2 hücresindeki sicil EXIT sayfası A5 hücresinden itibaren sıralanıyor. Hata verince EXIT sayfası A sütununa DATA sayfası AA2 hücresindeki sicil iki defa geliyor.

DATA isimli sayfayı yeni görüyoruz.
Hatanın ne olduğunu değil, hangi işlemi yaptığınızda hata oluştuğunu yazmalısınız.
Örneğin şu anda ben belgeye bakıyorum, belge bana ve açıklamalarınız da yeterli değil, ısrarla HATAda söz ediyorsunuz.

Görebildiğim kadarıyla hem EXIT sayfasının B, C, D, E sütunları formüllü, hem de DATA sayfası bütün olarak formüllü durumda.
Formülleriniz de foruma eklenmemiş durumdaki başka çalışma kitaplarına ('C:\PALET İNŞAAT\S T A F F\S T A F F\[DATABASE.xlsb) atıf yapıyor.
DATA sayfasının kod bölümünde ise sadece; Z2 ve R49, R50 hücrelerine yönelik Worksheet_Change kodu mevcut.

Belgeyi nasıl kullandığınızı bilmiyoruz, işlemi bilmiyoruz.