ikinci rapor çalışması hakkında

[Orion1]

Sayın Evren çok özür dilerim expot nasıl edileceğini bile bilmiyorum.Şimdi daha iyi anladınız değil mi nasıl biriyle ugraştığınızı.

Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=47804

 

[acebeci]

umarım olmuştur

 

[Orion1]

hayır olmadı.
Çünkü 2 tane userform2 dosyası olmalı 2sinide yollamalısınız.
Birisinin uzantısı frx bunu yollamışsınız diğerinin uzantısı frm bun yollamamışsınız.

 

[acebeci]

Sayın Evren dosyadaki şahısları silip tekrar yeni bir iki şahıs kaydedebilirmisiniz(Hani rapor sayfasında müşteri kayıt diyorya ordan) o zaman da galiba benim bah settiğim hatayı veriyor.O da olmazsa bendeki dosayı özel msj kısmından size göndermemde bir sakınca varmı.Biliyorum çok oldum ama buraya kadar getirdiniz bari neticelendirelim.Tabi uygun görürseniz

 

[Orion1]

Sayın Evren dosyadaki şahısları silip tekrar yeni bir iki şahıs kaydedebilirmisiniz(Hani rapor sayfasında müşteri kayıt diyorya ordan) o zaman da galiba benim bah settiğim hatayı veriyor.O da olmazsa bendeki dosayı özel msj kısmından size göndermemde bir sakınca varmı.Biliyorum çok oldum ama buraya kadar getirdiniz bari neticelendirelim.Tabi uygun görürseniz

Benim yazdığım kodun Rapor sayfasınla hiç bir ilgisi yok.Yani verileri rapor sayfasından almıyor.
Siz rapor sayfasının Y1 hücresine Raporlanacak yazmadıysanız tabii ki.
rapor sayfasına sadece verileri döküyor.Verileri şahısların sayfasından alıyor.

 

[acebeci]

Sayın evren ekde üzerinde çalıştığımız dosyada şahısları değiştirdim bende hata veriyor acaba sizde çalışıyor mu bir baka bilir misiniz

 

[Orion1]

Dosyanız hazır.
Kodun initialize kısmında bir yerinde referans olarak bir önceki combobox verilmiş ondan hata oluşuyormuş.Gözden kaçmış herhalde .Şimdi durum düzeldi.
Yalnız siz sayafa sorgulamasını sayfaların index numarasına göre 4 ten başlatım son sayfaya kadar döngü şeklinde değştirmişsiniz.Bu durumda 4.ncü sayfadan başka şahıslar haricinde sayfa açılmaması gerekir.
Güle güle kullanın.

 

[acebeci]

Dosyanız hazır.
Kodun initialize kısmında bir yerinde referans olarak bir önceki combobox verilmiş ondan hata oluşuyormuş.Gözden kaçmış herhalde .Şimdi durum düzeldi.
Yalnız siz sayafa sorgulamasını sayfaların index numarasına göre 4 ten başlatım son sayfaya kadar döngü şeklinde değştirmişsiniz.Bu durumda 4.ncü sayfadan başka şahıslar haricinde sayfa açılmaması gerekir.
Güle güle kullanın.

Sayın evren çok teşekkür ederim.ben sayfa sorgulamasını yanlışlıkla değiştirmişim tekrar eski haline yani sizin yaptığınız haline nasıl getirmeliyim.İnanın artık sizi raharsız etmemeye kesin karar verdim.Emeğinizden ve özellikle göstermiş olduğunuz o büyük sabırdan dolaı size binlerce kez teşekkür ederim hayırlı çalışmalar kolay gelsin.

 

[Orion1]

Eski haline getirmenize gerek yok bu şekildede olur.Ancak ilk 4 sayfadan sonra şahıs isimlerinden başka bir sayfa eklememeniz gerekiyor.
Raporla butonundaki kodları aşağıdaki kodlarla değiştiriniz daha hızlı raporlama yapacaktır.Ayriyetten Raporlamayı sırası ile Vade tarihi,açıklama ve Bankaya göre artan şekilde sıralama ekledim.Bu kodları kullanmanız daha doğru olacaktır.

Private Sub CommandButton3_Click()
Dim sat As Long, i As Long, k As Byte, hcrsat As Long
Range("R4:X65536").ClearContents
If MsgBox("RAPOR-2'yi çıkarmak istiyormusunuz ?", vbYesNo + vbQuestion, "RAPOR-2") = vbNo Then Exit Sub
If ListBox1.ListCount < 1 Then
    MsgBox "Listede RAPOR-2 İçin raporlanacak veri yok.!" & vbLf & "Raporlama Yapılmadı..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
hcrsat = 4
Application.ScreenUpdating = False
If ListBox1.ListCount + 4 > 65534 Then
    MsgBox "Sayfayı taşacak sayıda veri var.Raporlama yapılmadı..!!" & vbLf & _
    "Yeniden sorgulayarak dağa az veri yükleyiniz..!!", vbCritical, "DİKKAT"
    GoTo atla
End If
On Error GoTo atla2
[R4].Resize(ListBox1.ListCount, 7) = ListBox1.List
Range("V4:V" & ListBox1.ListCount + 4).NumberFormat = "dd.mm.yyyy"
Range("R4:X" & ListBox1.ListCount + 4).Sort key1:=Range("V4"), key2:=Range("W4"), key3:=Range("U4")
atla:
Application.ScreenUpdating = True
MsgBox "RAPOR-2 Çıkarıldı..!!", vbOKOnly + vbInformation, Application.UserName
Exit Sub
atla2:
MsgBox "Rapaorlarken bir hata oluştu..!!", vbCritical, "DİKKAT"
End Sub

 

[acebeci]

Sayın Evren ben bu işi beceremedim benim dosya ekde

 

[Orion1]

Sayın Evren ben bu işi beceremedim benim dosya ekde

Excel 2003 dosyası yani uzantısı xls olarak yolayınız.
Bende 2007 yok.
Farklı kaydetten yapabilirsiniz.

 

[acebeci]

Sayın evren bu şahıs listesi devamlı artıyor yani yeni eklenen tüm şahısları sorguladığı sürece hiç problem yok.teşekür eder çaılmalarınızda başarılar dilerim

 

[Orion1]

Dosyadaki hata giderildi.
Artık sorunsuz bir şekilde çalışabilirsiniz.

 

[acebeci]

Sayın Evren çalışmalarınız gayretiniz sabrınız ve herşeye rağmen iyi niyetiniz gerçekten mükemmel.Yapmış olduğunuz Çalışma benim hayel ettiğimden çok daha güzel oldu teşekkürler iyiki varsınız.İyiki varsın Excel form

 

[Orion1]

Sayın Evren çalışmalarınız gayretiniz sabrınız ve herşeye rağmen iyi niyetiniz gerçekten mükemmel.Yapmış olduğunuz Çalışma benim hayel ettiğimden çok daha güzel oldu teşekkürler iyiki varsınız.İyiki varsın Excel form

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Dosyada initialize olayında bir iki değişiklik yaptım.
Eğer Bir sorgulama cinsinden sayfalarda hiç veri yoksa Hepsi yazısı çıkmıyordu.
Mesela Bu dosyada evrak nosu boştu.
Şimdi onu düzelttim.Hepsi yazısı çıkıyor.
Bu dosyayı kullanmanız daha iyi olacak 33 nolu mesajdan dosyayı indirebilirsiniz.

 

[acebeci]

Sayın evren dediğiniz gibi 33 nolu msj daki dosyayı indirdim şimdi hiç hata vermiyor gerçekten bir harikasınız.(O hatayı bende fark etmişdim ama untancımdan artık söylemeyi düşün müyordum).Ama yine siz profosyenel ce yine olayı halletmiş siniz Valla ne diyeyim söyleyacek söz bulamıyorum sadece kuru bir teşekkür edebiliyorum ama inanın tüm samimiyetimle teşekkür ediyorum

 

[Orion1]

Sayın evren dediğiniz gibi 33 nolu msj daki dosyayı indirdim şimdi hiç hata vermiyor gerçekten bir harikasınız.(O hatayı bende fark etmişdim ama untancımdan artık söylemeyi düşün müyordum).Ama yine siz profosyenel ce yine olayı halletmiş siniz Valla ne diyeyim söyleyacek söz bulamıyorum sadece kuru bir teşekkür edebiliyorum ama inanın tüm samimiyetimle teşekkür ediyorum

Rica ederim.
İyi çalışmalar.:cool.