Sayfalar arası bilgi transferi

[mrtank50]

Arkadaşlar Anasayfadaki D6 hücresinde seçtiğim ismin bilgileri Analiste isimli yan sayfada yer almaktadır.
Ben giden personel butonuna bastığımda Analiste'den personelin bilgilerini silip gidenler adlı sayfaya taşımak istiyorum.
Bir türlü yapamadım.
Lütfen yardımcı olursanız çok mutlu edersiniz.

Eğer mümkünatı var ise analisteden veriyi silecek ama analistede tekrar liste sıralaması olmalı ki boşluk gözükmesin.

 

[MGokboruAtan]

İNCELEYİNİZ. UFAK AYARLAMALAR YAPABİLİRSİNİZ

 

[mrtank50]

Çok çok teşekkür ederim. Sizin gönderdiğiniz excel de çalıştı ama benim kendime uyarladığımda gidenler sayfasına atıyor. Listeden silmeye gelince
hata veriyor.Sanırım sorun nev liste adlı sayfada 700 satır var sebep ondan kaynaklı olabilir. Çünkü o 700 satırın içinden ismi bulup silecek.

Sebebi nedir sizce ram'in yetersiz kalması gibi bir durum yok. Bilgisaray yüksek özelliklere sahip bir pc.

 

[MGokboruAtan]

iyileştirme yapabilmek adına makronun ilk satırına
Application.ScreenUpdating = False
Application.DisplayAlerts = False
yapıştıralım. Akabinde End Sub üzerine ise bunu yapıştıralım
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Bu şekilde deneyelim