Userform a aktarma

[aydgur]

İyi günler Excelde tabloda ; eğer B sütünunda bugünün tarihi varsa , o satırların hepsini userforma aktarma istiyorum. Eski bir kod var ama uyarlayamadım. Yardımcı olabilir misiniz ?

 

[turist]

Excel dosyanızı eklerseniz, daha kolay cevap alabilirsiniz.

 

[aydgur]

Bu dosyada ; eğer B sütünunda ödeme tarihi bugün olan ödemeler varsa , user formda sıralansın istiyorum

 

[turist]

Dosyanız eklidir.
Not: Sayfanızda A sütunu dışarıdan veri alıyor.Tarihlerde "boş" gözükenler olsa da bunlar aslında "SIFIR" değerinde olduğu için UserForm Listesinde tarih gibi görüntüleniyor.
Bu durumu Sayfanızda düzeltmeniz halinde, Userform Listesi daha sağlıklı sonuç verecektir.

 

[aydgur]

Çok teşekkür ederim.Peki bu sayfayı olduğu gibi taşiveya kopyala sekmesinden diğer dosyaya aktarırsam bozulmadan çalışır mı ?

 

[turist]

"Farklı Kaydet" ile dosyanızın bir kopyasını oluşturup, deneyin, sorun olursa; foruma ekleyin.

 

[aydgur]

Evet dosyaya aktardım , yanlız bir tarih gelmedi neyi eklemeliyim acaba

 

[turist]

UserForm kodunda yer alan:
With cell
If IsDate(cell(i, 1)) Then
Data(i, 1) = Format(.Offset(, -1), "dd.mm.yy")
Else
Data(i, 1) = Empty
End If


kısmınında

If IsDate(cell(i, 1)) Then
Else
Data(i, 1) = Empty
End If

satırlarını silin

With cell
Data(i, 1) = Format(.Offset(, -1), "dd.mm.yy")

şekline getirip deneyin.
Not:Kodun sadece bu bölümünü düzeltin, başaka satırları değiştirmenize gerek yoktur.

 

[aydgur]

Vallahi oldu , yazdır bütonu daekledim.sağa sola yaslamalr içinde yardımcı olamız mümkün mü ?

 

[turist]

Sayın, @aydgur ,
İstediğiniz çözüm, Listbox'ta sütunların farklı şekilde sıralanması; yani, 1.ci sütun "sağa" diğerleri "sola" hizalı olsun gibi bir çözüm Excel Standart uygulaması değildir.
Bunun için sadece Makro Kodu da yeterli olmaz, Class Module örnekleri vardır.
Üzerinde çalışıp, çözüm bulunursa isteğinize uygun hale getirilebilir.
Mevcut durumdaki çözümleri şimdilik yeterli buluyorsanız, kullanmaya devam ediniz.
Bu konuda da çözüm bulmaya yardım edilecektir.

 

[aydgur]

Emeğinize sağlık , bu şekilde tabii iş görüyor. Ve emin olun üstüne yatmadan örneklerden ekleme yapmaya çalışıyorum. Yani hazır emeğinizin üstüne konmadan birşeyler öğrenmeye çalışıyorum.

 

[turist]

Sayın @aydgur ,
Hassasiyetinize ve emeğe saygınıza çok teşekkür ederim.
Burada paylaşılan bilgi ve çalışmalar, sadece size değil; tüm değerli üyelerimize fayda sağlaması ve örnek çalışma olması amacıyladır.
Hepimiz öğrenmeye çalışıyoruz.
Gönlünüz rahat olsun, sağlıcakla kalınız.