• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Sayfalar arası Veri Aktarımında Gereksiz Satırların Eklenmemesi

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

mcexrem

Gold Üye
Katılım
22 Nis 2022
Mesajlar
725
Çözümler
2
Aldığı beğeni
132
Excel V
Office 2019 TR
Gold Bitiş
15 Nisan 2026
Konu Sahibi
Merhabalar üstadlarım,

Dosyamın BORDRO sayfasından ÖZLÜK DOSYASI sayfasına Ozluk_Dosyası_Yeni_Personel_Ekleme makrosuyla sayfada olmayan personelleri ekliyorum ve E sütununa Yeni ifadesini ekletiyorum ancak BORDRO sayfasından verileri eklerken boş satırları da ekleyerek ÖZLÜK DOSYASI sayfasında gereksiz satırları da ekliyor. 252. ve sonrası satırdan itibaren listelenenler yeni personel ekleme butonuyla eklenen verilerdir. Sizlerden ricam sadece personel bilgilerinin olduğu satırları eklemesi için makroyu düzeltmenizdir. Yardımlarınız için teşekkür eder saygılar sunarım. Selamlar
 
Çözüm
Ozluk_Dosyası_Yeni_Personel_Ekleme
Modül8 de.
Dosyalar karışmış.
4 nolu mesajdaki dosyayı güncelledim.
Bir de buraya ekledim.
İnşallah bir karışıklık yoktur. :)
Büyük harf küçük harfden dolayı bulamamışım.
Buldum. :)
Sizin yazmış olduğunuz kod bloğunun şart yapısını biraz değiştirdim.
Doğruluğunu kontrol ediniz.
 
Son düzenleme:
Konu Sahibi
ellerinize sağlık hocam ancak yeni konudaki dosyaya uygulamadığınız için sayfaya bu şekilde ekleme yaptı. Son eklediğim dosyaya uygulamanızı ve kodu gözden geçirmenizi rica ediyorum.

Değişiklik yaptığınız makro hangisi hocam?

1663965660855.png

1663965697600.png
 
Konu Sahibi
güncellediğiniz dosyayı da denedim son satırlar bu şekilde ekleniyor hocam

1663967169415.png
 
Ozluk_Dosyası_Yeni_Personel_Ekleme
Modül8 de.
Dosyalar karışmış.
4 nolu mesajdaki dosyayı güncelledim.
Bir de buraya ekledim.
İnşallah bir karışıklık yoktur. :)
 
Çözüm
Konu Sahibi
Sn. Excelcan hocam ellerinize sağlık çok teşekkür ederim. Dosyayı kontrol ettim bir aksilik gözükmüyor. Ay sonu deneme şansım olacak inşallah.

İşleriniz rast gitsin inşallah. hayırlı geceler diliyorum.
 
Konu Sahibi
Hocam, modul4 teki formülde kalın belirttiğim 3 ün 5 olması gerekmez mi?

Sub Makro1()
Range("M4").Select
ActiveCell.FormulaR1C1 = "=IF(MID(RC[-1],3,5)=""00012"",""HALK"","""")"
Range("M5").Select
End Sub
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst