-
Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.
-
Foruma hoş geldin 👋 Ziyaretçi
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 tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Verileri tarih eşleştirmesi ile listeleme hk.
- Konuyu Başlatan Nongeyik
- Başlangıç tarihi
- Cevaplar : 17
- Gösterim : 579
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
Sayın Nongeyik dener misiniz ?
If saY > 0 Then
'S2.Range("A3:AM1048576").ClearContents
'S2.Cells(3, "A").Resize(saY, 39).Value = Application.Transpose(lsT)
S2.Cells(15, "A").Resize(saY, 39).Value = Application.Transpose(lsT)
End If
SAP AKTARIM sayfasında
Karşılaştırma yapabilmeniz için yukardaki kodlarda ilk iki satırı pasife aldım.
Olması gereken buysa ilk iki satırı aktife alın.
Son satırı da pasife alın.
Kolay gelsin.
If saY > 0 Then
'S2.Range("A3:AM1048576").ClearContents
'S2.Cells(3, "A").Resize(saY, 39).Value = Application.Transpose(lsT)
S2.Cells(15, "A").Resize(saY, 39).Value = Application.Transpose(lsT)
End If
SAP AKTARIM sayfasında
Karşılaştırma yapabilmeniz için yukardaki kodlarda ilk iki satırı pasife aldım.
Olması gereken buysa ilk iki satırı aktife alın.
Son satırı da pasife alın.
Kolay gelsin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Sn. Excelcan
Makronuz harika çalışıyor. Tek bir sorun var. Örneğin, şayet Rıza AYMAR'ın satırında "R" hiç yok ise o satırı hiç oluşturmayacak. Yani sadece varolan kodlar için satır oluştrurulacak. Ayrıca, bu kodlardan da (X,Ü,R,Yİ, vb..) 50-100 adet olma ihtimali var. siz makro içinde kodları tanımlamışsınız. bu kodları makro içinde tanımlamaktansa farklı bir sayfadaki listededen alınmasını sağlayabilirmisiniz.
Emeğinize sağlık
Makronuz harika çalışıyor. Tek bir sorun var. Örneğin, şayet Rıza AYMAR'ın satırında "R" hiç yok ise o satırı hiç oluşturmayacak. Yani sadece varolan kodlar için satır oluştrurulacak. Ayrıca, bu kodlardan da (X,Ü,R,Yİ, vb..) 50-100 adet olma ihtimali var. siz makro içinde kodları tanımlamışsınız. bu kodları makro içinde tanımlamaktansa farklı bir sayfadaki listededen alınmasını sağlayabilirmisiniz.
Emeğinize sağlık
Patron
Site Dostu
Excel sayfasındaki
B2 hücresindeki tarih değiştikçe otomatik çalışır.
B2 hücresindeki tarih değiştikçe otomatik çalışır.
Sn. patron.
Makronuzu nasıl çalıştıracağım. Ayrıca yukarıda "excelcan" a yazdığımı da dikkate alarak destek olabilir misiniz?
Saygılarımla,
Sn. patron.
Uyarınızı sonra gördüm. makro harika çalışıyor. Fakat hücre içeriğinde varolan kod var ise bunları listelemesini istiyorum.
boş olan kodlar için satır oluşturulmamalı.
Bu kodlar 100 tane olma ihtimali var.
Saygılar,
Uyarınızı sonra gördüm. makro harika çalışıyor. Fakat hücre içeriğinde varolan kod var ise bunları listelemesini istiyorum.
boş olan kodlar için satır oluşturulmamalı.
Bu kodlar 100 tane olma ihtimali var.
Saygılar,
Sn. patron.
Uyarınızı sonra gördüm. makro harika çalışıyor. Fakat hücre içeriğinde varolan kod var ise bunları listelemesini istiyorum.
boş olan kodlar için satır oluşturulmamalı. B,C,D,E,F,G sütunlarına farklı bir veri koyacağım. kodları A sütununa koyabilirsiniz. Veya farklı bir sayfada kod listesi tanımlayabilir misiniz.
Bu kodlar 100 tane olma ihtimali var.
Saygılar,
Uyarınızı sonra gördüm. makro harika çalışıyor. Fakat hücre içeriğinde varolan kod var ise bunları listelemesini istiyorum.
boş olan kodlar için satır oluşturulmamalı. B,C,D,E,F,G sütunlarına farklı bir veri koyacağım. kodları A sütununa koyabilirsiniz. Veya farklı bir sayfada kod listesi tanımlayabilir misiniz.
Bu kodlar 100 tane olma ihtimali var.
Saygılar,
Sayın Nongeyik
Birinci satırda PÇ kodunu sildim.
Toplam 8 çeşit kod kaldı.
İkinci satırda hiç veri yoktu. BÇ ekledim.
1 çeşit veri var.
Üçüncü satırda hiç veri yoktu. HT ve Üİ ekledim.
2 çeşit veri var.
Bu durumda toplam 11 satırlık bir veri kitlesi olacak.
SAP AKTARIM sayfasına istediğiniz düzende listelendi.
Kontrol eder misiniz ?
Sayfa1 e KOD_LİSTESİ adında bir alan tanımlaması yaptım.
Buraya istediğiniz kadar eleman yazabilirsiniz.
Yapmanız gereken tek şey Formüller-Ad Yöneticisi kısmında
alanı yeniden boyutlandırmak.
Ola ki Sayfa1 i silmek ve KOD_LİSTESİ alanını başka
bir sayfaya yazmak istediniz. O zaman kodların olduğu
modüle(Modül3, ListelE_2 makrosu) gidip Set S3 değişkenini yeniden tanımlayın.
Set S3 = Sheets("Sayfa1") yerine atıyorum Set S3 = Sheets("FİRMALAR") gibi.
Artık yeni sayfanın adı neyse onu yazacaksınız.
Birinci satırda PÇ kodunu sildim.
Toplam 8 çeşit kod kaldı.
İkinci satırda hiç veri yoktu. BÇ ekledim.
1 çeşit veri var.
Üçüncü satırda hiç veri yoktu. HT ve Üİ ekledim.
2 çeşit veri var.
Bu durumda toplam 11 satırlık bir veri kitlesi olacak.
SAP AKTARIM sayfasına istediğiniz düzende listelendi.
Kontrol eder misiniz ?
Sayfa1 e KOD_LİSTESİ adında bir alan tanımlaması yaptım.
Buraya istediğiniz kadar eleman yazabilirsiniz.
Yapmanız gereken tek şey Formüller-Ad Yöneticisi kısmında
alanı yeniden boyutlandırmak.
Ola ki Sayfa1 i silmek ve KOD_LİSTESİ alanını başka
bir sayfaya yazmak istediniz. O zaman kodların olduğu
modüle(Modül3, ListelE_2 makrosu) gidip Set S3 değişkenini yeniden tanımlayın.
Set S3 = Sheets("Sayfa1") yerine atıyorum Set S3 = Sheets("FİRMALAR") gibi.
Artık yeni sayfanın adı neyse onu yazacaksınız.
Sn. Excelcan,
Emeğinize sağlık. çok güzel olmuş. makro içinde de kodlar görüyorum. Ad yöneticisinde tanımlı kodlar dikkate alınıyor ise makrodaki bu kodlar ne işe yarıyor çözemedim. Benim olayı çözmem açısından makroda pasif olan/işlevsiz olan alanları ve de kullanılmayan makro modüllerini temizleyebilir misiniz.
Saygılar
Ekli dosyalar
Sn. patron. Çok çok teşekkür ederim. Kodları kodlar = Range("BU3:CE3") yerine ayrı bir sayfadan alabilirmisiniz. Mesela kod listesi adı altında ve B1:B100 aralığında
Mükemmel ve pratik bir çözümleme.
Sn. Patron,
SAP AKTARIM 1 adında bir sayfa daha açtım. Örnek çalışmada, hücre içeriklerini sayısal değerlere dönüştürecek ve örnekte renklendirilen yerlerde belirttiğim gibi hücre değeri dolu ise formülü uygulayacak ve diğer kodları ilave edecek. Hücre çarpan sonucu sıfır ise boş olacak.
Mümkün müdür?
Saygılar,
Sn. Excelcan. Emeğinize yüreğinize sağlık. Sizinki de harika çalışıyor.Ne var ne yok temizlendi.
Kolay gelsin.
Çok çok teşekkür ederim.
Saygılar,
Sn. Patron.
Öncelikle hayırlı sabahlar. Elinize beyninize sağlık. mükemmel bir sonuç. tekrar tekrar teşekkür ederim.
Sayırlı günler, Saygılar.
- Durum