Farklı Ay Bilgilerini Aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

SilinenUye8231

Kullanıcı
Katılım
12 May 2019
Mesajlar
620
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba, yeni forum herkese hayırlı uğurlu olsun.

İlk konumu açıyorum.

Ekte gönderdiğin excel dosyamda ASLAN ana sayfasındaki bilgileri butonla ilgili aylara aktarıyorum, burda herhangi bir sorun yok.
Yazılan bilgiler gece çalışıldığında ay sonlarındaki bilgiler gece ay tarihi attığı için örneğin ocak ayının sonunda şubat ayına ait bilgiler oluşuyor, şubat ayı sonunda mart ayına ait bilgiler oluşuyor.

Benim yapmak istediğim,
OCAK ayı sayfasındaki O1 hücresindeki FARKLI AYI AKTAR butonuna bastığımda, sayfanın sonundaki bilgiler ŞUBAT ayına ait olduğu için ŞUBAT sayfasına aktarsın,
ŞUBAT ayı sayfasındaki O1 hücresindeki FARKLI AYI AKTAR butonuna bastığımda, sayfanın sonundaki bilgiler MART ayına ait olduğu için MART sayfasına aktarsın istiyorum.

Yardımcı olur musunuz?

https://***/dq7r6btjfrxo/BİLGİLER.rar.html

.
 
Bir Değer Dışında Kalanları Listeleme
Veri Aralığını Sürekli ve Otomatik Sıralama
Çözüm
Kodların tamamı Feyzullah hocamızın kodları bence daha uygun sonuçta her sayfada ayrı ayrı çalışacak kod.


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(18 satır)
Tarihe göre sırala Oylamaya göre sırala
Sayın @cakarem, ilginiz için çok teşekkür ediyorum, ellerinize sağlık, kod gayet güzel çalışıyor.

Bu işlem her sayfa için olması gerekiyor, ayrıca B ile M arasındaki veriyi aktardıktan sonra, eski veriyi silmesi gerekiyor.

Bu şekilde ayarlayabilir misiniz?
 
Oyla 0 Olumsuz oyla
Tamam üstad.Müsait olunca hallederim.
Set sayfaad = Sheets("OCAK")
Set sayfaad1 = Sayfa3
Bunları değiştirmeniz yeterli olur sadece başka sayfalara aktarma için.Tabi yeni sub içinde olacak.Hallederim bugün inşAllah.
 
Oyla 0 Olumsuz oyla
Acaba mesela ocak ayı için farklı tarihli yani şubat tarih olanlar en sondamı oluyor herzaman.Yani sıralımı?
 
Oyla 0 Olumsuz oyla
Sayın @cakarem, sizin dediğiniz gibi kodu uyarladım, dosyada bu koddan başkada kodlarda olduğu için açılışta çok ağır açılıyor ve sayfa yapısı büyüdüğü için tek bir kod ile olmasını istemiştim.
 
Oyla 0 Olumsuz oyla
Sıralaması önemli değil, bu kodu başka kod altında çalıştıracağım için sonra sıralamasını yapıyor zaten.

Yapmak istediğim sadece farklı ayı ilgili ay sayfasına aktarsın, aktardığı eski veriyide silsin yeterli.
 
Oyla 0 Olumsuz oyla
Yazmış olduğunuz bu kodu aşağıdaki gibi OCAK ayı için ayarladım, bu kod aktardığı eski veriye de silerse çok güzel olacak, bu kodu diğer aylar içinde sub ile başlayacak şekilde tek tek ayarlayınca çok kod oluyor ve sayfa ağırlaşıyor.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(34 satır)
 
Oyla 0 Olumsuz oyla
Alternatif olsun. Tüm sayfalar çalışır. Aktarmayı en üst satıra yapar.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(21 satır)
 
Oyla 0 Olumsuz oyla
Kodu ilk çalıştırdığımda debug hatası aldım, daha sonraları tekrar tekrar çalıştırdım hata vermedi.

Ellerinize sağlık, çok teşekkür ediyorum, hayırlı geceler hayırlı ramazanlar diliyorum.
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah Bey tekrar rahatsız ediyorum, kusura bakmayın. Kodu çalıştırıyorum, farklı ay bilgilerini diğer ay sayfasına aktarıyor, tekrar kodu çalıştırdığımda aktarılacak bilgi olmadığı halde işlem tamam mesajı geliyor, farklı ay bilgisi olmadığında aktarılacak bilgi yoktur mesajını kod içerisine ekleyebilir misiniz?
 
Oyla 0 Olumsuz oyla
Benimki biraz uzun oldu sanırım :)Bu arada sizede hayırlı Ramazanlar.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(73 satır)
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah Bey, ilk başlangıçlarda ekte gönderdiğim gibi hata verdi, ama şimdi de vermiyor. Bu hata neden kaynaklanır?

Ekran Alıntısı.webp
 
Oyla 0 Olumsuz oyla
Feyzullah hocam elinize sağlık.
Aslan hocamız tek bir kod çalışınca tüm sayfalardaki veriler aktarılacak ve silinecek istemişti.
Bu yüzden sizin kod sanırım her sayfa için ayrı ayrı çalışacak kodlar.
 
Oyla 0 Olumsuz oyla
Debug dediğinizde hangi satıra gitti hocam. Dosyanızı yeniden indirip kodu modüle yapıştırdım ve ilk deneme başaralı çalıştı. Başka bir bilgisayarda da deneyin bakalım aynısı yapacak mı ?
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt