• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Belirli tarih aralığındaki kayıtları başka sayfaya aktarmak.

  • Konbuyu başlatan Konbuyu başlatan unur
  • Başlangıç tarihi Başlangıç tarihi
U

unur

Altın Üye
Katılım
8 Aralık 2005
Mesajlar
854
Excel Vers. ve Dili
İş:Excel 2000 Türkçe
Ev:Excel xp Türkçe
Günaydın Arkadaşlar;
Göndermiş olduğum dosyada da açıkladığım şekilde, belirli tarih aralığındaki verileri başka bir sayfaya aktarmak istiyorum.Yardımcı olursanız sevinirim.
 

Ekli dosyalar

Son düzenleme:
Merhaba,

Aşağıdaki kodları deneyiniz.

Not : D1 ve E1 hücreleri Metin değil Tarih olarak biçimlendirilmelidir.

Kod: 
Sub Düğme1_Tıklat()
 
    Dim i   As Long, _
        j   As Long, _
        Adt As Integer, _
        ShG As Worksheet, _
        ShD As Worksheet
 
 
    Set ShG = Sheets("GENEL LİSTE 2014")
    Set ShD = Sheets("Derece Kademe")
 
    ShG.Select
 
    j = ShD.Cells(Rows.Count, "A").End(3).Row
    If j < 5 Then j = 5
    ShD.Range("A5:P" & j).ClearContents
    j = 4
 
    For i = 5 To ShG.Cells(Rows.Count, "A").End(3).Row
        If (ShG.Cells(i, "K") >= ShG.Range("D1") And ShG.Cells(i, "K") <= ShG.Range("E1")) Or _
           (ShG.Cells(i, "P") >= ShG.Range("D1") And ShG.Cells(i, "P") <= ShG.Range("E1")) Then
           j = j + 1
           Adt = Adt + 1
           ShG.Range("A" & i & ":P" & i).Copy ShD.Range("A" & j)
        End If
    Next i
 
    If Adt = 0 Then
        MsgBox "AKTARILACAK ŞARTA UYGUN VERİ BULUNMADI....", vbCritical
    Else
        MsgBox Adt & " Adet Veri Aktarılmıştır....", vbInformation
    End If
 
End Sub
 

Ekli dosyalar

Necdet Bey, emeğiniz için teşekkürler.
tarih aralığında olan bir satırı aktarmıyor başka bir satırı aktarıyor.
Derece kademe sayfasına başlık ekleme ihtiyacı hissettim dolayısıyla kodlar ona göre (haklı olarak) olmadığında hata ile karşılaşıyorum, birde her aktarmada önceki aktarılan bilgileri temzileyip yenilerini aktarmasını sağlayabilirmiyiz.
Teşekkürler.
 

Ekli dosyalar

Son düzenleme:
Merhaba,

2 nolu mesajımdaki kod ve dosya yenilendi, inceler misiniz?
 
Teşekkürler Necdet Bey;
5.Satırdaki personel o tarih aralığında olmadığı halde diğer sayfaya aktarıyor, tarih aralığını 15.02.2014-14.03.2014 yazdığımızda tüm bilgileri aktarıyor.
İlgilenirseniz sevinirim.
 
Son düzenleme:
Merhaba,

Kontrollere biraz dikkatli baksaydınız fazladan kodları görürdünüz, silmeyi unutmuşum :)

Kod ve dosyayı yeniledim.
 
Teşekkürler Necdet bey; Kodlara ne kadar dikkatli bakarsam bakıyım, ben onlara kör, onlarda bana şaşı bakıyor:) İnanın kodlardan hiç anlamıyorum kusura bakmayın.
Necdet Bey şöyle bir şey yapabilirmiyiz?
Derece kademe sayfasına buton ekleyip ona tıkladığımızda Derece kademe ilerlemelerini yapabilirmiyiz? Örn: 7-2 olan 7-3; 5-3 olan 4-1 gibi; Tek sınır 3. dereceden aşağı düşmeyip 3-4, 3-5 diye gidecek.

Bir sonraki adımda da Derece Kademe sayfasına Arşive Aktar butonu yapıp derece kademe ilerlemesi yapılanları Arşiv diye bir sayfaya aktarabilmek( bir sonraki yılda kullanabilmek için)

Teşekkürler ilginize
 
unur' Alıntı:
Teşekkürler Necdet bey; Kodlara ne kadar dikkatli bakarsam bakıyım, ben onlara kör, onlarda bana şaşı bakıyor:) İnanın kodlardan hiç anlamıyorum kusura bakmayın.
Necdet Bey şöyle bir şey yapabilirmiyiz?
Derece kademe sayfasına buton ekleyip ona tıkladığımızda Derece kademe ilerlemelerini yapabilirmiyiz? Örn: 7-2 olan 7-3; 5-3 olan 4-1 gibi; Tek sınır 3. dereceden aşağı düşmeyip 3-4, 3-5 diye gidecek.

Bir sonraki adımda da Derece Kademe sayfasına Arşive Aktar butonu yapıp derece kademe ilerlemesi yapılanları Arşiv diye bir sayfaya aktarabilmek( bir sonraki yılda kullanabilmek için)

Teşekkürler ilginize
Genişletmek için tıkla ...

Merhaba,

Pazartesi günü fırsatım olursa ilgileneyim.
 
İlginiz için Teşekkürler.
 
Güncellemek için
 
Merhaba,

Derece Kademe sayfasında ilerleme yapmak için Tarihlerin olması gerekir. Yanlış mı düşünüyorum. Çünkü bazıları maaş bazıları emeklilik açısından ilerleme oluyor. Her ikisi için aynı anda olsa sorun olmaz da.

Bu sayfaya aktarırken otomatik olarak derece ve kademeyi arttırmak daha mantıklı olmaz mı?
 
Necdet Bey; Haklısınız bu sayfaya aktarırken, aktarılan kayıtların derece kademesinin ilerlemesi mantıklı, diğer butonla da arşive aktarması iyi olur.(Sonraki sene kullanmak için)
İlginize Teşekkürler.
 
Merhaba,

İyi yıllar.

1/4 olayını da kontrol ettiğimi sanıyorum. İnceleyiniz, aksaklık olursa (emeklilik açısından, çünkü aylıktan kopyalayıp yaptım, bir yerleri değiştirmeyi unutmuş olabilirim) düzeltmeye çalışırız.

Kod: 
Sub Düğme1_Tıklat()
    
    Dim i   As Long, _
        j   As Long, _
        Adt As Integer, _
        Der As Integer, _
        Kad As Integer, _
        Flg As Boolean, _
        Ayl As Boolean, _
        Eml As Boolean, _
        ShG As Worksheet, _
        ShD As Worksheet
    Set ShG = Sheets("GENEL LİSTE 2014")
    Set ShD = Sheets("Derece Kademe")
    
    ShG.Select
    
    j = ShD.Cells(Rows.Count, "A").End(3).Row
    If j < 5 Then j = 5
    ShD.Range("A5:P" & j).ClearContents
    j = 4
    
    For i = 5 To ShG.Cells(Rows.Count, "A").End(3).Row
        Flg = False
        Ayl = False
        Eml = False
        If (ShG.Cells(i, "K") >= ShG.Range("D1") And ShG.Cells(i, "K") <= ShG.Range("E1")) Then
            Flg = True
            Ayl = True
        End If
        If ShG.Cells(i, "P") >= ShG.Range("D1") And ShG.Cells(i, "P") <= ShG.Range("E1") Then
            Flg = True
            Eml = True
        End If
        
        If Flg = True Then
            j = j + 1
            Adt = Adt + 1
            ShG.Range("A" & i & ":P" & i).Copy ShD.Range("A" & j)
            'Aylık Terfi Kontrolü
            If Ayl = True Then
                Der = ShD.Cells(j, "I")
                Kad = ShD.Cells(j, "J")
                ShD.Cells(j, "G") = Der
                ShD.Cells(j, "H") = Kad
                Kad = Kad + 1
                If Kad > 3 Then
                    If Not Der = 1 Then
                        Kad = 1
                        Der = Der - 1
                    Else
                        If Kad > 4 Then Kad = 4
                    End If
                End If
                ShD.Cells(j, "I") = Der
                ShD.Cells(j, "J") = Kad
            End If
            'Emekli Terfi Kontrolü
            If Eml = True Then
                Der = ShD.Cells(j, "N")
                Kad = ShD.Cells(j, "O")
                ShD.Cells(j, "L") = Der
                ShD.Cells(j, "M") = Kad
                Kad = Kad + 1
                If Kad > 3 Then
                    If Not Der = 1 Then
                        Kad = 1
                        Der = Der - 1
                    Else
                        If Kad > 4 Then Kad = 4
                    End If
                End If
                ShD.Cells(j, "N") = Der
                ShD.Cells(j, "O") = Kad
           
            End If
        End If
    Next i
    
    If Adt = 0 Then
        MsgBox "AKTARILACAK ŞARTA UYGUN VERİ BULUNMADI....", vbCritical
    Else
        MsgBox Adt & " Adet Veri Aktarılmıştır....", vbInformation
    End If
    
End Sub
 

Ekli dosyalar

Necdet Bey;Perşembe günü Altın üyeliğim onaylandığı zaman indirip bakabilirim.İlginize Teşekkürler.
 
Necdet Bey; derece kademeleri olması gerekenin tam aksine işlem yapıyor. Yani 9-3 ilerlediği zaman 8-1 olacakken, 10-1 oluyor.
Birde Sayfadaki tüm derece kademe ilerlemelerini bir butonla tek seferde yapsak, zaten belirli tarih aralıklarındakileri diğer sayfaya aktarabiliyoruz 2.mesajdaki belgede,
Aktarma yaparken aynı satırda olup da aktardıklarımızda tarihi uymayan derece kademe boş yada tire (-) şeklinde çıkabilir mi? (Gerekli açıklamaları ek dosyada ayrıca yaptım heriki sayfada da)
İlgilenirseniz sevinirim. Teşekkürler.
 

Ekli dosyalar

unur' Alıntı:
Necdet Bey; derece kademeleri olması gerekenin tam aksine işlem yapıyor. Yani 9-3 ilerlediği zaman 8-1 olacakken, 10-1 oluyor.
Birde Sayfadaki tüm derece kademe ilerlemelerini bir butonla tek seferde yapsak, zaten belirli tarih aralıklarındakileri diğer sayfaya aktarabiliyoruz 2.mesajdaki belgede,
Aktarma yaparken aynı satırda olup da aktardıklarımızda tarihi uymayan derece kademe boş yada tire (-) şeklinde çıkabilir mi? (Gerekli açıklamaları ek dosyada ayrıca yaptım heriki sayfada da)
İlgilenirseniz sevinirim. Teşekkürler.
Genişletmek için tıkla ...

Resmen dalmışım :) hep +1 diyoruz ya ondan Der = Der +1 leri Der = Der -1 yapmak gerekir.
13. mesajı yeniden düzelttim.
 
Necdet Bey Teşekkürler, Normal olması gereken bu elinize sağlık. Ancak bizde 3269 sayılı personel olduğundan bunların 7.mesajımda bahsettiğim gibi bir sınırlamaları var bu sınırlamayı da koyabilir miyiz? Birde Arşiv için bir buton. Bunları da yapabilirsek mükemmel bir şey olacak.
unur' Alıntı:
Necdet Bey şöyle bir şey yapabilirmiyiz?
Derece kademe sayfasına buton ekleyip ona tıkladığımızda Derece kademe ilerlemelerini yapabilirmiyiz? Örn: 7-2 olan 7-3; 5-3 olan 4-1 gibi; Tek sınır 3. dereceden aşağı düşmeyip 3-4, 3-5 diye gidecek.

Bir sonraki adımda da Derece Kademe sayfasına Arşive Aktar butonu yapıp derece kademe ilerlemesi yapılanları Arşiv diye bir sayfaya aktarabilmek( bir sonraki yılda kullanabilmek için)

Teşekkürler ilginize
Genişletmek için tıkla ...
 
unur' Alıntı:
Necdet Bey Teşekkürler, Normal olması gereken bu elinize sağlık. Ancak bizde 3269 sayılı personel olduğundan bunların 7.mesajımda bahsettiğim gibi bir sınırlamaları var bu sınırlamayı da koyabilir miyiz? Birde Arşiv için bir buton. Bunları da yapabilirsek mükemmel bir şey olacak.
Genişletmek için tıkla ...


Biraz açıklar mısınız nedir bu sınırlamalar?

Ben Kamuda bu işleri bırakalı yıllar oldu, ya hatırlamıyorum ya da mevzuat değişmiş olabilir.

Tek aklımda kalan ilk okul mezununun 6. derecenin 9. kademesine kadar gittiği idi. O da hala doğru mu ya da hala ilk okul mezunu çalışan var mı bilmiyorum.
 
Evet Necdet bey hala ilkokul mezunu olanlar var. Belki ilerde halen mevcut yapmış olduğunuz dosyada mezuniyet durumlarına göre düzenleme yapabiliriz, Ama şu an istediğim aşağıda belirttiğim gibi
Tek sınır 3. dereceden aşağı düşmeyip 3-4, 3-5 diye gidecek.
Teşekkürler.
 
unur' Alıntı:
Ama şu an istediğim aşağıda belirttiğim gibi
Tek sınır 3. dereceden aşağı düşmeyip 3-4, 3-5 diye gidecek.
Teşekkürler.
Genişletmek için tıkla ...

Neden? Hiç üniversite mezunu olan yok mu? neden 1/4 e kadar gitmeyecek?

Bunu saptayacak ölçüt nedir?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst