Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Excel Eğitimi Almak İstiyorum

Site yöneticilerimizden online Excel eğitimi almak ister misiniz?

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

VBA  filtreden rapor oluşturmak

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

muhsar

VIP
VIP
Kullanıcı
Katılım
15 Haz 2019
Mesajlar
179
Excel Versiyonu, Dili
2010 tr

Reputation:

merhaba;ekte ki belgemde sayfa 1 de hastalarımıza randevu veriyoruz.FİLTRE isimli sayfada sayfa 1 in C sütunundaki randevu tarihine göre A2 hücresine yazılan tarihi süzüp getiriyoruz.ve o günün randevularını toplu olarak görüyoruz.EKİP isimli sayfada ;FİLTRE sayfasının j sütununda yazan ekip isimlerine göre süzme yapıyoruz.

benim yapmak istediğim ve yardımınızı rica ettiğim konu;rapor isimli sayfaya makro ile rapor oluştur dediğimde FİLTRE isimli sayfada listelenmiş olan günü randevularını
Ekip 1 den başlayıp listelemek.yani: rapor oluştur makrosunu çalıştırdığımda ilk olarak EKİP 1 randevuları gelecek devamında boşluk bırakıp ekip 2;ekip 3;ekip 4;ekip 5;
ekip 6 ;nakil şeklinde FİLTRE sayfasının J sütunundaki ekiplere göre toplu liste almak istiyorum.Ekip isimli sayfada tek tek yaptığım işlemi rapor sayfasında toplu olarak yapmak.

şimdiden teşekkür ediyorum.
 

Ekli dosyalar

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
2,099
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Merhaba Sayın @muhsar .

Mevcut kod'da yer alan MsgBox "Verileriniz yazdırıldı.", vbInformation satırının hemen üstüne
[A4].Resize(s, UBound(a, 2)).Sort [J3], 1
şeklinde bir satır ekleyerek deneyin.

.
 

muhsar

VIP
VIP
Kullanıcı
Katılım
15 Haz 2019
Mesajlar
179
Excel Versiyonu, Dili
2010 tr

Reputation:

Merhaba Sayın @muhsar .

Mevcut kod'da yer alan MsgBox "Verileriniz yazdırıldı.", vbInformation satırının hemen üstüne
[A4].Resize(s, UBound(a, 2)).Sort [J3], 1
şeklinde bir satır ekleyerek deneyin.

.
teşekkür ederim ömer hocam,elinize sağlık
 
Son düzenleme:

muhsar

VIP
VIP
Kullanıcı
Katılım
15 Haz 2019
Mesajlar
179
Excel Versiyonu, Dili
2010 tr

Reputation:

Merhaba Sayın @muhsar .

Mevcut kod'da yer alan MsgBox "Verileriniz yazdırıldı.", vbInformation satırının hemen üstüne
[A4].Resize(s, UBound(a, 2)).Sort [J3], 1
şeklinde bir satır ekleyerek deneyin.

.
ömer hocam,rica etsem sıramada ekip 1 bitince 1 satır boşluk verip bu şekide diğer ekipler de de aynı işlemi yapması için koda ilave yapmamız mümkünmüdür.
değilse de manuel eklemem gerek her defasında (çünkü o boşluktan kesmem gerekiyor)
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
2,099
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

İlgili kısmı aşağıdaki gibi değiştirin.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

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