Listedeki bazı bilgilerin Userformla diğer sayfaya aktarı

[İsmail Küçükşengün]

Sayın forum üyeleri. Ekteki çalışmamda bir liste sayfası var. Bu listede bulunan verilerden bazılarında TARİHLER var. Benim isteğim, şayet ilgili veride TARİHİ kısmı mevcut ise, tüm tarihi olanların bir userform yardımıyla rapor sayfasına aktarılması hususunda yardımlarınızı bekliyorum. Diğer açıklamalar dosyanın içinde mevcuttur. İlgilenenlere şimdiden teşekkürlerimi sunarım.

 

[İsmail Küçükşengün]

İlgilenenlere müteşekkir olurum...

 

[İsmail Küçükşengün]

Ya da sorunumun başka bir türlü çözümü olabilir mi?

 

[zafer]

Merhaba

 

[İsmail Küçükşengün]

Sayın zafer. Eline sağlık. Çok teşekkür ederim.

 

[İsmail Küçükşengün]

Sayın zafer. Ã?rneğiniz tam istediğim gibi. Fakat bu örneği bir çalışma sayfasına aşağıdaki kodla uyarladım. Herhalde bir yerde yanlışlık yapıyorum. Þöyleki A.dan itibaren ..... T. sütunuda dahil bir listem var. M SÜTUNUNDA TARİHLER VAR. Eğer M sütunu dolu ise, listenin listboksa gelmesi ve gelen listedeki E Sütunundakilerin Rapor Sayfasının A.3 ten,
M sütunundaki bilgilerin rapor sayfasına B.3 ten, J sütunundakilerin C.3. ten ve K sütunundaki bilgilerin de rapor sayfasınd D.3.ten itibaren aktarılması için aşağıda kodu uyguladım. Fakat çalıştıramadım.

Private Sub CommandButton1_Click()

For b = 2 To Sheets("liste").Cells(65536, 13).End(xlUp).Row

If Cells(b, 13) <> "" Then
c = c + 1
For i = 1 To 15
ListBox1.AddItem
ListBox1.Column(i - 1, c - 1) = Sheets("liste").Cells(b, i).Value
Sheets("Duruşmalar Raporu").Cells(c + 2, 1).Value = ListBox1.Column(3, c - 1)
Sheets("Duruşmalar Raporu").Cells(c + 2, 2).Value = ListBox1.Column(6, c - 1)
Sheets("Duruşmalar Raporu").Cells(c + 2, 3).Value = ListBox1.Column(4, c - 1)
Sheets("Duruşmalar Raporu").Cells(c + 2, 4).Value = ListBox1.Column(5, c - 1)
Next
End If
Next
End Sub

Bu koddaki yanlışlığımı düzeltebilirseniz çok memnun olurum. Saygılarımla.

 

[İsmail Küçükşengün]

Yukarıda yazdığım koddaki yanlışlığım nerede olabilir?..

 

[İsmail Küçükşengün]

Açıklayıcı dosyam ektedir.

 

[İsmail Küçükşengün]

Sayın üstatlar. Lütfen yardımcı olunuz....

 

[İsmail Küçükşengün]

Koddaki bu satır hata veriyor.
ListBox1.Column(i - 1, c - 1) = Sheets("liste").Cells(b, i).Value
Yukarıdaki açıklamalarım ışığında ne yapmalıyım.
(Aslında sorumu ilk sorduğunda daha dikkatli olsaydım.Bununla saatlerce uğraşmazdım. Çükü sn. zafer gayet güzel bir şekilde cevap vermiş idi. Hem de sizleri devamlı sormakla meşgul etmezdim. Ã?zür.)

 

[İsmail Küçükşengün]

Sayın zafer. İlk soruma eklediğim örnek tam olmadığı için bir kez daha sormak zorunda kaldım. Sorumu görseydiniz, herhalde cevap verirdiniz. Çünkü bu sizin için çok kolaydır.Bu sorunla 2 gündür uğraşıyorum. :kafa:

 

[İsmail Küçükşengün]

.........

 

[zafer]

Merhaba

Özür dilerim konu kapandı zannedip. Bir daha bakmamıştım.
sorununuz devam ediyormu.

Eğer devam ediyorsa verdiği hata kodunu yazabilirmisiniz.Çünki bende hata vermiyor.