Çözüldü Verileri tarih eşleştirmesi ile listeleme hk.

[Nongeyik]

Ekli örnek çalışmayı sadeleştirerek tekrar açmak istedim.

Ekli örnekteki "Excel" sayfası K2:BS2 arasındaki tarihleri/günleri dikkate alarak, kodları "SAP aktarım" sayfasına ilgili günlere ve her bir kod farklı satırda gelmesini istiyorum.

Saygılarımla,

 

[excelcan]

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.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Nongeyik]

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

 

[Patron]

Excel sayfasındaki
B2 hücresindeki tarih değiştikçe otomatik çalışır.

 

[Nongeyik]

Excel sayfasındaki
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,

 

[Nongeyik]

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,

 

[Nongeyik]

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,

 

[excelcan]

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.

 

[Patron]

#4 nolu mesajımdaki dosyayı tekrar indiriniz.

 

[Nongeyik]

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.

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

 

[Nongeyik]

#4 nolu mesajımdaki dosyayı tekrar indiriniz.

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

 

[Nongeyik]

pardon. B2:B100 aralığı.

 

[excelcan]

Ne var ne yok temizlendi.
Kolay gelsin.

 

[Patron]

Deneyiniz.

 

[Nongeyik]

Deneyiniz

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,

 

[Nongeyik]

Ne var ne yok temizlendi.
Kolay gelsin.

Sn. Excelcan. Emeğinize yüreğinize sağlık. Sizinki de harika çalışıyor.

Çok çok teşekkür ederim.

Saygılar,

 

[Patron]

Deneyiniz.

 

[Nongeyik]

Deneyiniz.

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.