Rapor alamıyorum

[foubleu]

sayfa 1 de A,B,C,D,E sutunlarında bilgiler var yaklaşık yüz kişiye yakın..Ben sayfa 1 de (E1:E100) aralığında bu hücrede bilgi bulunan tüm kişileri sayfa 2 de listelemek istiyorum..Bu listelemeyi ad soyad ve E hücresinde bilgilerle yapmak istiyorum...Bunu EĞER fonksiyonu ile yapamadım. düşeyara ilede çok karıştı yani beceremedim Bu konuda yardımcı olabilirmisiniz. Teşekkürler.
( VBA koduda olabilir)

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirseniz sorunuz daha anlaşılır olacaktır.

 

[foubleu]

Gönderiyorum.....

Dosyayı gönderiyorum ektedir. Orjinal dosyanın içerisinde farklı çalışmalarda yer aldığı için bir karışıklık olmasın diye bir taslak hazırladım.. şimdiden yardımınız için teşekkür ederim

 

[AS3434]

Dosyanız ekte.


.

 

[foubleu]

AS 3434 çok teşekkür ederim sağol. Ama bir sorun var gönderdğim bir taslaktı ben modüldeki kodu iyi çözemedim.Uygulama yapacağım dosya farklı. Hala uğraşıyorum ama butonu nasıl attığını anlayamadım. Veri aralığını değiştirmek istersem aynı kodumu kullanıcam. Yani E stunu değilde K sutunu gibi..Bide A sütunu yani sıra numarası yani kaçıncı sırada olduğu önemli değil benim için, sadece kimler olduğu ben ekstradan sıra numarası veririm sonradan. Yardımcı olursan sevinirm..

 

[foubleu]

Ben taslağı yeniden gönderiyorum

Taslak ekledim. bununla ilgili yardımcı olursanız sevinirim.

 

[AS3434]

Dosyanız ve açıklamalar ekte.


..

Dosya yenilendi.

 

[foubleu]

AS3434 çok teşekkür ederim .. ya yormuşum seni iyi bir inceleeyim ben bunu ellerine sağlık.. tekrar teşekürler..

 

[foubleu]

AS3434 arkaşdaım çok sağol. Şu anda farklı yerlerdede kulanabiliyorum değiştredebiliyorum.. Ama o sayfa3 bak yazısını kaldıramıyorum yaa

 

[AS3434]

Sayfa1 de B6 hücresine isim yazarsanız kalkar.

 

[foubleu]

Hiç sorma hakkaten komik bencede. bende modüle code'nun içinde arıyorum yaaa

 

[foubleu]

AS3434 çok teşekkürler. Çözdüm olayı sağol. şimdide birden fazla veriyi rapor halinde yapabiliyorum. çabuk abarttım galiba Ellerine sağlık yardımın için sağol. Allah razı olsun.

 

[foubleu]

AS3434 selam. Ya ben senin gönderdiğim makroyu farklı bir şekilde dosyaya uyguladım yaen brz değiştirdim.. Rapor alabiliyorum. Fakat endense ilk yazılanı iki defa alıyor. yada eskiden ne girilmişse o hafızada kalıyor. yenisini girdiğimde sorun çıakrıyor.İlk girdiğim ismi 2 kez yazıp toplamıda bazen yapmıyor. Acaba unutuğum bişimi var.

 

[foubleu]

Raporda Sorun Var

Ya As3434 seni yoruyorum ama . ben gönderdiğin kodları inceledim. Veri aralığmı artırarak yeni rapor sayfası hazırladım. Fakat ilk veri giridğim kişiyi rapor sayfasına 2 kez atıyor.. bide listeye geri döndüğümde yeni isim girdğimde hem yeni tutarı hemde toplamı gösteriyor. Acaba nerde hata yapmış olabilirim.İstedğim senin yatığın gibi sadece sırayla göstermesi..
modüle kodu şu;

Sub aktar()
Set s1 = Sheets("GENEL LİSTE")
Set s2 = Sheets("KESİNTİ RAPOR")
s2.[a3:e500].ClearContents
For i = 3 To 300
If s1.Cells(i, 20) > 0 Then
z = s2.[B65536].End(3).Row + 1

s2.Cells(z, 2) = s1.Cells(i, 2)
s2.Cells(z, 3) = s1.Cells(i, 20)
s2.Cells(z, 4) = s1.Cells(i, 13)

End If
Next
s2.Select
[a2].Select
End Sub

 

[AS3434]

Lütfen soru sorarken isim belirtmeyin.
Aynı soru için ikinci bir başlık açmayın.

Kodlarda herhangi bir sorun görünmüyor.
Kodlarda yazdığınız sayfa isimlerini kontrol edin.
Makro butonunu "GENEL LİSTE" sayfasına koyun. (Bu farketmez ama farklı bir şey yaptıysanız diye)

 

[foubleu]

Kusura bakma ya. Forum kurallarını tam bilmiyodum. Teşekkür ederim ama maalesef sorunlu iki kez atıyor.artık uğraşacağım sorunu bulmak için.

 

[foubleu]

Dosyanın orjinali ektedir.

Dosyayı ekte gönderiyorum . Üzeirnde anlatmaya çalıştım. Bir bakarsan sevinirim.
Şimdiden teşekkürler.

 

[AS3434]

Olmaması lazım.

2 kere yazan dosyanın küçük bir örneğini eklermisiniz.

 

[foubleu]

yukarıda gönderdim. Dosyayı incelerseniz sevinirim.Tşk.ler

 

[AS3434]

Kodları şöyle değiştirin.

Sub aktar()
Set s1 = Sheets("GENEL LİSTE")
Set s2 = Sheets("KESİNTİ RAPOR")
s2.[[COLOR=red]a2[/COLOR]:e500].ClearContents
For i = [COLOR=red]4[/COLOR] To 300
 If s1.Cells(i, 20) > 0 Then
 z = s2.[B65536].End(3).Row + 1
 s2.Cells(z, 2) = s1.Cells(i, 2)
 s2.Cells(z, 3) = s1.Cells(i, 20)
 s2.Cells(z, 4) = s1.Cells(i, 13)
 
End If
Next
s2.Select
[a2].Select
End Sub