AYNILARI SEÇİP GURUPLAMA

[ertuer]

AYNILARI SEÇÝP GURUPLAMA

SAYIN ARKADAÞLAR
EKTEKİ LİSTEDE GÃ?NDERDİÐİM Ã?RNEKTE GÃ?RÜLECEÃİ GİBİ,AY İÇİNDE HEM AYNI ÜRÜNÜ HEM BAÞKA ÜRÜNLERİ DEÐİÞİK FİYATLARDAN DEÐİÞİK TARİHLERDE SATMIÞ OLDUÐUM BİR LİSTE VAR.
ÞİMDİ BU LİSTEYİ AYNI ÜRÜNDEN KAÇ TANE VE ORTALAMA SATIÞ FİYATLARI OLARAK SIRALAMAK İSTİYORUM.BU AYRI BİR SAYFAYA GÃ?NDERME YOLUYLA DA OLABİLİR.

 

[Necdet]

Sayın ertuer,

Bu iş için bence en güzel çözüm Ã?zet Tablo (Pivot Table).
Dersaneden Ã?zet Tablo açıklaması var, ordan bakabilirsiniz.

 

[mehmett]

Ekte bBir çözüm önerisi gönderiyorum.

 

[ertuer]

SN.NECDET YESERTENER Ã?NERİNİZ İÇİN TEÞEKKÜR EDİYORUM.FAKAT ÞU ANA KADAR PİVOT TABLO İLE İSTEDİÐİMİ BİLGİM YETERSİZ OLDUÐUNDAN GERÇEKLEÞTİREMEDİM.PİVOT TABLO İLE İLGİLİ BİLGİ EDİNMEYE DEVAM EDİYORUM
SN.ZERİGE Ã?NERİNİZ TAM İSTEDİÐİM ÇÃ?ZÜMDÜ.ÇOK TEÞEKKÜR EDİYORUM.
BENİM İSTEDİÐİMİ BANA VERECEK ÇOK KESTİRME BİR ÇÃ?ZÜM OLDU.ÇOK SAÐOLUN.BİR DE ÞUNU Ã?ÐRENMEK İSTİYORUM.BU MAKROYU AYNI TARZDA BAÞKA TABLOLARI ÇÃ?ZMEK İÇİN NASIL KULLANABİLİRİM.YENİ VERİLERİ BURDAKİ HAM LİSTE PANOSUNA YAPIÞTIRARAK MI ? YOKSA DİÐER YENİ VERİ TABLOMA SİZİN BU MAKRONUZU ATAYARAK MI? ÇOK TEÞEKKÜR EDİYORUM SAÐLIKLI VE MUTLU KALIN

 

[mehmett]

Sn ertuer

Dosyanızın bir kopyasını oluşturun ve HamListe sayfasındaki verileri yenileriyle değiştirin. En kolay yolu bu

 

[ertuer]

SN.ZERİGE İÞLENMİÞ LİSTEYE SADECE İLK SIRADAKİ ÜRÜNÜ 2 KEZ ALT ALTA YİNELEMİÞ BUNU DÜZELMENİZ MÜMKÜN MÜ ?

 

[mehmett]

Sn ertuer

Makrodaki hatayı düzeltip ekte gönderiyorum.

 

[ertuer]

SN ZERİGE SİZE VE EMEÐİNİZE SAYGI İLE , SAÐLIKLI VE MUTLU KALIN DİYOR TEÞEKKÜR EDİYORUM.

 

[veyselemre]

Formülleri makro ile hesaplayan örnek

 

[ertuer]

sn veyselemre ilginize ve desteğinize teşekkür ederim.çok sağolun

 

[bugat]

AYNILARI SEÇME-1.xls

sayın veyselemre,
adetlerin birden fazla olması durumunda ortalama fiyat doğru olmuyor.
bu konuda acil yardımınız olursa minnettar kalırım.
saygılar

 

[veyselemre]

tekrar inceledim bende hata vermiyor, eğer sizin dosyanızda hata veriyorsa dosyanızı ekleyin bakalım

 

[bugat]

sayın veyselemre,
sorunu çözdüm teşekkürler.
ayrı bir sorun yaşıyorum şu an.
yanyana iki ayrı kolonda satırlar dolusu data olsun ve bu datalardan 1 kolonda olup 2. kolonda olmayanları diğer bir 3. kolonda makro ile nasıl yazdırabilirim.
şimdiden teşekkürler.

 

[veyselemre]

aşağıdaki prosedürü kullanabilirsiniz
[vb:1:df1c67b56b]Sub SutunA_da_olup_SutunB_de_olmayanlar()
Dim MyColl As New Collection

Range("d2:d65536").ClearContents
bson = [a65536].End(3).Row
Range("b2:b" & bson).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("b2:b" & bson), CopyToRange:=Range("D2"), Unique:=True
dson = [d65536].End(3).Row

For x = 2 To dson
MyColl.Add Cells(x, "d").Text
Next

Range("d2:d65536").ClearContents
ason = [a65536].End(3).Row
Range("A2:A" & ason).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A2:A" & ason), CopyToRange:=Range("D2"), Unique:=True
dson = [d65536].End(3).Row

For t = dson To 2 Step -1
For z = 1 To MyColl.Count
If Cells(t, "d") = MyColl(z) Then
Cells(t, "d").Delete shift:=xlUp
MyColl.Remove z
Exit For
End If
Next z
Next t
Set MyColl = Nothing
End Sub[/vb:1:df1c67b56b]

 

[bugat]

çok çok teşekkür ederim.
elinize sağlık.

 

[bugat]

sayın veyselemre,
sizden bir konuda daha yardım rica edeceğim eğer elinizden gelirse.
yazdığım bir makronun,excel sheetde yazılacak bir rakam kadar tekrar etmesi gerekiyor. yani hücrede 3 yazıyorsa makronun durmadan 3 kez tekrar çalışması gerekiyor. 10 yazıyor ise 10kez tekrar etmeli ve durmalı.
bu konuda yardımınız olabilirse sevinirim.
teşekkürler,iyi seneler.
not: ekteki dosyadan bakabilirsiniz.