sayfalardaki verileri raporlama

[vol1980]

Her hafta ekteki gibi 10 dosya geliyor ve benim plakalara göre ayırmam gerekiyor.Ben firmaların plaka listesini 2. 3. 4. 5. sayfalara yazsam bu listelere göre rapordan o plakaları ayırmanın bir yolu var mı?
Yardımınız için şimdiden teşekkür ederim.

 

[leumruk]

Merhaba,
Verileri ayırabilmek için kriterin ne olduğunu belirtmelisiniz. Örneğin; listesini yaptığınız plakaları hangi sayfaya ayırsın? Ayırdıktan sonra anasayfadan silsin mi? Plakanın bulunduğu satırı komple mi alacak? vs...

 

[vol1980]

Sayın hocam.Benim 2.sayfaya yazdığım plakaları 2.sayfaya 3.sayfaya yazdıklarımı 3.sayfaya listelemesi gerekiyor.Plakanın bulunduğu satırı komple alması gerekiyor.Ana sayfadaki veriler silinmese iyi olur.Birde listede bazen aynı plakadan birden çok oluyor.Bu satırları ayrı ayrı atması gerekiyor.İlginize teşekkürler.

 

[leumruk]

Merhaba,
Üç tane veri sayfası oluşturdum. Bunu çoğaltabilirsiniz. Veri sayfalarındaki sarı alanlara bulmak istediğiniz plakaları yazın ve AnaSayfa'da bulunan butona basın.

Sub Bul_Aktar()
Set Asy = Sheets("AnaSayfa")
For Syf = 2 To Sheets.Count
Set s = Sheets(Sheets(Syf).Name)
s.Range("a2:q65536").ClearContents
Sat = 1
Set Aralik = Asy.Range("e2:f" & Asy.[e65536].End(3).Row)
Application.ScreenUpdating = False
For x = 2 To s.[u65536].End(3).Row
    Set Bul = Aralik.Find(s.Cells(x, "u"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        firstaddress = Bul.Address
        Do
        Sat = Sat + 1
            Asy.Range(Asy.Cells(Bul.Row, "a"), Asy.Cells(Bul.Row, "q")).Copy s.Cells(Sat, "a")
        Set Bul = Aralik.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> firstaddress
    End If
Next
Next
MsgBox "Aktarım tamamlandı.", vbInformation
End Sub

 

[vol1980]

teşekkür ederim.ellerin dert görmesin

 

[vol1980]

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- <recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error039960_01.xml</logFileName>
<summary>'C:\Users\Administrator\Desktop\AutoMatic Raporu10-1.xls' dosyasında hata algılandı</summary>
- <additionalInfo>
<info>Bu çalışma kitabı VBA projesi, ActiveX denetimleri ve programlanabilirlikle ilgili diğer özelliklerini kaybetti.</info>
</additionalInfo>
</recoveryLog>

Hocam dosyayı kaydedip açtığımda çalışmıyor.Onarıldı diyor ve yukarıdaki uyarıyı veriyor.Office 2007 trk. kullanıyorum.Nasıl halledebilirim?

 

[leumruk]

Merhaba,
Bende herhangi bir sorun olmadı. 2007'de deneme şansım olmadığı için kontrol etme şansım yok. Sadece şunu sorayım. Benim eklediğim dosyada mı bu hatayı veriyor; yoksa kodları eklediğiniz başka bir dosyada mı?

 

[vol1980]

Hocam dosya açılırken hata veriyor.Bu çalışma kitabı VBA projesi, ActiveX denetimleri ve programlanabilirlikle ilgili diğer özelliklerini kaybetti şeklinde bir hata.Sonra dosya açılıyor ama aktar butonuna basınca hiçbirşey olmuyor.

 

[leumruk]

Aşağıdaki link sanırım sorununuza ilaç olacaktır.

http://www.excel.web.tr/f48/off-ce-2007-vba-sorunu-t58312.html

 

[vol1980]

Sayın Hocam teşekkür ederim.Linktekileri uyguladım yine olmadı.Bende office 2007 yi kaldırıp office 2003 kurdum.Şimdi çalışıyor elleriniz dert görmesin.Veri sayfası ekleyebilmek için ne yapmalıyım? İlginize teşekkürler.

 

[leumruk]

Sayfa sekmesine sağ tıklayıp ekle'yi seçin. Eklenen sayfayı yeniden adlandırın.

 

[vol1980]

Sayın hocam çok teşekkür ederim.Yazdığınız kod beni o kadar büyük bir zaman kaybından kurtardıki.Bu dosyadan daha uzun onlarca dosya her ay iki günümü alıyordu.şimdi 15 dakikada raporlar hazır olur.Gerçekten çok teşekkür ederim.
Gerçekten bilgi paylaşıldıkça daha değerli.

 

[leumruk]

Sayın hocam çok teşekkür ederim.Yazdığınız kod beni o kadar büyük bir zaman kaybından kurtardıki.Bu dosyadan daha uzun onlarca dosya her ay iki günümü alıyordu.şimdi 15 dakikada raporlar hazır olur.Gerçekten çok teşekkür ederim.
Gerçekten bilgi paylaşıldıkça daha değerli.

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

 

[cems]

Bir başka konuya bu programın prensibini uygulamaya çalışırken , buradaki plakaları tek plakaya düşürünce yine ilk halinde olan 3 plakayı taşıdığını farkettim . Yeni bir plaka verince bu da aktarılıyor ama artık sorulmayan plakaya ait verileri de hala taşıdığını farkettim .

Bu bir özellik mi hata mı ?

 

[leumruk]

Bir başka konuya bu programın prensibini uygulamaya çalışırken , buradaki plakaları tek plakaya düşürünce yine ilk halinde olan 3 plakayı taşıdığını farkettim . Yeni bir plaka verince bu da aktarılıyor ama artık sorulmayan plakaya ait verileri de hala taşıdığını farkettim .

Bu bir özellik mi hata mı ?

Sorunuzu tam anlamadığımı belirterek anladığım kadarıyla cevaplayayım:
Dosyada görüldüğü üzere sarı sütuna hangi plakaları girerseniz o plakaları aktardığını göreceksiniz. Butona tekrar basarsanız, doğal bir işlev olarak yine sarı sütundaki plakaları AnaSayfadan arayıp aynı verileri getirmiş olacak.
Bunun dışında aynı verileri aktarmasını engellemk için ek kontrol kodlarının eklenmesi lazım ya da aktarılan plakaları sarı sütundan silmek gerekli.

 

[cems]

Sarı sütundaki plakalara bakarak ana sayfadaki bu plakalara ait verileri getirdigini anlıyorum .
Denemek için , sayfalarda sarı sütundaki plakaları tek plakaya indirmek için sildim , ancak o silinen plakalar var gibi yine ilk andaki plakaların verisini ( 0 plakalar sarı sütunda olmadığı halde) getirdi.
Yine denemek için anasayfadan bir plaka seçerek sarı sütunda tek bunu yerleştirdim ancak bu plaka dahil yine olmayan plakaların verilerini getirdi .

Yani her koşulda silinen plakalar geliyor .

 

[leumruk]

Veri sayfalarındaki eski bilgileri sildiniz mi? Yani a:q arasındaki verileri. Bunları silmemişseniz sanki verileri getiriyor gibi algılamış olabilirsiniz. Ben kendi dosyamda denedim, bahsettiğiniz sorunla karşılaşmadım.

 

[cems]

Hayır , bu aklıma gelmemişti , kodlarda .clearcontents bulunduğu gibi bi hissim olmuştu.
Eski verileri silince herşey sorunsuz geliyor . 2003'te ve 2007'de ikisinde de muntazam çalışıyor.

Elinize sağlık Kendi çalışmama .clearcontents ekleyerek uyarlayacağım. İlk anda bunu algılayamıyor insan

 

[leumruk]

Hayır , bu aklıma gelmemişti , kodlarda .clearcontents bulunduğu gibi bi hissim olmuştu.
Eski verileri silince herşey sorunsuz geliyor . 2003'te ve 2007'de ikisinde de muntazam çalışıyor.

Elinize sağlık Kendi çalışmama .clearcontents ekleyerek uyarlayacağım. İlk anda bunu algılayamıyor insan

Rica ederim. Silme satırını Sat = 1 satırının hemen üzerine aşağıdaki şekilde eklemenizde fayda var.

s.Range("a2:q65536").ClearContents

Aslında bir yönden bu durum iyi oldu. Kullanan arkadaşlar bu durumu göz önünde bulundurup silme satırı ekleyip eklememe konusunda kendi dosyalarına göre karar verebilirler. Yanlış veri elde etme riski ortadan kalkmış oldu.
NOT: İlgili kodlar ve dosya güncellenmiştir. İlgilenen arkadaşlar yeniden indirebilirler. Silme satırı eklendi.

 

[vol1980]

Hocam şimdi çok daha güzel oldu.Eğer çok şey istiyo gibi olmazsa I ve J sütunlarına alttoplam eklenebilir mi?Yani 50 satır veri aktarılmışsa 51. satıra I ve J sütunlarındaki değerlerin alttoplamı alınabilir mi?