Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 27-12-2013, 08:05   #1
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan Belirli tarih aralığındaki kayıtları başka sayfaya aktarmak.

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.
Eklenmiş Dosyalar
Dosya Türü: xls DENEME derece-kademe ilerlemesi Çizelgesi 2014.xls (23.0 KB, 22 Görüntülenme)
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana

Bu mesaj en son " 27-12-2013 " tarihinde saat 19:17 itibariyle unur tarafından düzenlenmiştir....
unur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 08:26   #2
Necdet
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,224
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Aşağıdaki kodları deneyiniz.

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
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
Eklenmiş Dosyalar
Dosya Türü: rar DENEME derece-kademe ilerlemesi 2014.rar (11.3 KB, 53 Görüntülenme)
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 10:42   #3
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: xls DENEME derece-kademe ilerlemesi Çizelgesi 2014.xls (23.0 KB, 12 Görüntülenme)
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana

Bu mesaj en son " 27-12-2013 " tarihinde saat 19:18 itibariyle unur tarafından düzenlenmiştir....
unur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 12:56   #4
Necdet
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,224
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

2 nolu mesajımdaki kod ve dosya yenilendi, inceler misiniz?
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 15:27   #5
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan

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.
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana

Bu mesaj en son " 27-12-2013 " tarihinde saat 15:32 itibariyle unur tarafından düzenlenmiştir....
unur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 15:52   #6
Necdet
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,224
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

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

Kod ve dosyayı yeniledim.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2013, 19:37   #7
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan

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
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana
unur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2013, 14:06   #8
Necdet
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,224
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Alıntı:
unur tarafından gönderildi Mesajı Görüntüle
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
Merhaba,

Pazartesi günü fırsatım olursa ilgileneyim.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2013, 15:12   #9
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan

İlginiz için Teşekkürler.
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana
unur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-12-2013, 14:26   #10
unur
Altın Üye
 
unur kullanıcısının avatarı
 
Giriş: 08/12/2005
Şehir: İstanbul
Mesaj: 811
Excel Vers. ve Dili:
İş:Excel 2000 Türkçe Ev:Excel xp Türkçe
Varsayılan

Güncellemek için
__________________
Excel 2000 - Türkçe

Bir mum diğer bir mumu tutuşturmakla ışığından birşey kaybetmez. Hz.Mevlana
unur Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:29


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden