Makro ile sabit alanlar için özet tablo raporu.

[gcanlar2012]

:hey:
Herkese merhabalar.

Ben sorunumu yollayacağım excel sayfasında yazdım.
birde buraya yazıyorum.Yardımlarınız için teşekkür ederim


Benim isteyipde yapamadığım olay şu.Ben kodlarla makro yazacak kadar iyi değilim,onun yerine pratikten yani yaparak makro kaydediyorum.Tabi bu da sorunlu oluyor.(makro kaydet/mouse ile hiç makro yokmuş gibi)


Olursa ricam

ekteki tabloda tutarı 0 olan mallar var bunları bir makro ile özet tablo rpr. düzenlemek.başlıklar aynı kaldığı için basit gibi görünüyor.ama yapamadım.

özet tablo raporunu sayfa1 diye atabilir.
sıralamasıda ürün adlarına göre

örnek:
Cola Pet Bardak Adet 8
Soda Þişe Adet 15 gibi

verilerin olduğu sayfa ismide sabit.çünkü bilgiler prg.dan geliyor.

Yardımlarınız için şimdiden teşekkür ederim.

 

[gcanlar2012]

Gcanlar2012

EXCEL 2002 - TÜRKÇE

imzayı unutmuşum.kusura bakmayın. :kafa:

 

[Levent Menteşoğlu]

Ekteki örneğ inceleyin.

 

[danersin]

gcanlar2012,
imzay� unutmu�um.kusura bakmay�n.


�mzan�z� Sayfan�n en �st�nde Profil ayarlar�n�za girseniz ve oradaki �mza b�l�m�ne yazsan�z b�yle kafan�z� duvarlara vurmazs�n�z. :hey:

 

[veyselemre]

Doğru anlamışmıyım acaba?

 

[gcanlar2012]

Sayın veyselemre doğru anlamışsınız.Teşekkür ederim.
Peki bu yazdığınız makro benim size yolladığım tabloylamı kısıtlı yoksa satır sayısı artarsa sorun olurmu,sütünlar aynı.URUNADI/BIRIM/ADET/TUTAR olacak ,tutar bu tabloda sıfır ama fiyatlıda olanlar varsa sorun çıkarmı.
yani bu tablo esasında değişken(satır sayısı) hergün prg.dan dışarı atıp özet tablo yaparak bunları başka yerde başka tabloya aktarıcam.Bu konuda bilgi verirsen sevinirim.

Sayın Leventm de teşekkür ederim ama benim istediğim özet tablo raporuydu.İlgilendiğiniz için teşekkür ederim.

 

[danersin]

Bu linki incelemenizde fayda var

http://www.excel.web.tr/viewtopic.php?t=578

 

[Levent Menteşoğlu]

Haklısınız ben yanlış yorumlamışım. Tekrarsız özet deseydiniz daha iyi anlaşılırdı. Birde aşağıdaki kodu deneyin.
[vb:1:225de3f6b4]Sub listele()
Sheets("sayfa1").[a2:c65536].ClearContents
Set s1 = Sheets("QUGUIL.RPR")
Set s2 = Sheets("sayfa1")
For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("A2:A" & a), s1.Cells(a, 1).Value) = 1 Then
c = c + 1
s2.Cells(c + 1, 1) = s1.Cells(a, 1).Value
s2.Cells(c + 1, 2) = s1.Cells(a, 2).Value
s2.Cells(c + 1, 3) = WorksheetFunction.SumIf(s1.Columns(1), s1.Cells(a, 1).Value, s1.Columns(3))
End If
Next
End Sub
[/vb:1:225de3f6b4]

 

[veyselemre]

1-satır sayısı önemli değil a2'den son dolu a sütununa kadar çalışır
2-tutarı sıfırdan büyük olanları almaması için şu düzenlemeyi yapın
Sub ozetal()

ReDim al(xs1, 4)

For y = 1 To xs1
If S1.Cells(y + 1, 4) = 0 Then
For z = 1 To 4
al(y, z) = S1.Cells(y + 1, z)
Next z
End If
Next y