Aktar_alttopla kodlarında değişiklik

Erdinç FIRTINA · 5 Eylül 2007

Değerli üyeler,
Sayın COST_CONTROL'ün düzenlemiş olduğu kodlarda değişiklik yaparak dosyama uyarlamak istiyorum. Şöyle ki;
Sayın COST_CONTROL'ün dosyasında aktarılan verilerin satırları ve sütunları aşağıdaki gibidir. Başlık hariç A4'ten başlayarak E sona kadar gidiyor. Benim dosyamdaki verilerin satır ve sütunlar altta açıklanmıştır.
Bu konudaki yardımlarınız için şimdiden çok teşekkürler!!!
Aynı tablodan "X" tane sayfada var.
STOK FATURA TUTAR TUTAR
ADI NO YTL KUR EURO
A 123 1000 2,0 500
A 456 3000 1,5 1500

TOPLAM sayfasında da B4 ten başlıyor ve F sona kadar gidiyor. Bu sayfadaki durum ise şöyledir. A sütununa göre işlem yapıyor.

STOK FATURA TUTAR TUTAR
ADI NO YTL KUR EURO
A 123 1000 2,0 500
A 456 3000 1,5 1500
A TOPLAM 4000 2000

B 324 1500 2,0 750
B 547 2000 2,0 1000
B TOPLAM 3500 1750
TOPLAM 7500 3750

BENİM veri sayfalarımdaki tablolar ise, başlık hariç J2'den başlıyor ve Q sona kadar gidiyor.

SNO NO ADNO ÜYE
ADI TARİH TUTAR TUTAR2 AÇIKLAMA
1 7 1 dsfsd 28.08.2005 3,00 YTL 2,00 YTL ew
2 8 1 eac 28.08.2005 5,00 YTL 1,00 YTL tae

TOPLAM sayfasında ise başlık hariç A2 den başlayarak gidiyor. AD NO sütununa göre işlem yapıyor.
SNO NO ADNO ÜYE
ADI TARİH TUTAR TUTAR2 AÇIKLAMA
1 7 1 dsfsd 28.08.2005 3,00 YTL 2,00 YTL ew
2 8 1 eac 28.08.2005 5,00 YTL 1,00 YTL tae
1 TOPLAM 8,00 YTL 3,00 YTL

1 7 2 dsfsd 28.08.2005 4,00 YTL 3,00 YTL ew
2 8 2 eac 28.08.2005 6,00 YTL 4,00 YTL tae
2 TOPLAM 10,00 YTL 7,00
TOPLAM 18,00 YTL 10,00 YTL

Varolan dosya;
Her sayfadaki STOK ADI sütunundaki A,B,C vb. adlara göre verileri alıyor ve TOPLAM sayfasında her ismin altına toplamlarını alıyor, en sonunda da genel toplamını alıyor.

Benim tablom ise J1 den başlıyor ve Q sona kadar gidiyor. Yapmak istediğim ise; benim tablomdaki AD NO (L sütunu) sütununa göre
TOPLAM sayfasında aynı işlemi yapsın. Yani 1 leri alsın Q ve P sütunundaki değerleri toplasın ve altına yazsın. Yine diğer sayfalardaki verilerde de L sütununda bulunan 2, 3, 4 vb. adlara göre aynı işlemi yapsın
TOPLAM sayfasında hangi sütundan başlaması önemli değil
Bunun için kodlarda nasıl bir değişiklik yapmalıyım?

Yardımlarınız için şimdiden teşekkürler!!!

Hüseyin · 6 Eylül 2007

Mesaj başlığı düzeltildi ve mesaj geri taşındı.

yasirozen94 · 6 Eylül 2007

dilerim işine yarar

Erdinç FIRTINA · 6 Eylül 2007

Sayın yasirozen94,

İlgilendiğiniz için teşekkür ederim. Ama benim istediğim, her sayfada aynı olan tablodaki "J" sütunundan başlayan verileri "L" sütunundaki "AD NO" lara göre(1, 2, 3 vb.) aktarmak. "Q" ve "P" sütunundaki değerleri toplamak. Toplanan değerlerin genel toplamını almak. Dosyada ve kodlarda yapmak istediğim değişiklik bu.

Yardımlarınız için şimdiden teşekkürler!!!

Skorpiyon · 7 Eylül 2007

Sayın sefkatim,

Sorununuzu tam olarak anlayamadım. Yardımcı olabilmek adına, biraz daha detaylı anlatmanız mümkün mü ?

Saygılarımla...

Erdinç FIRTINA · 7 Eylül 2007

Sayın Sertkaya,
Varolan mevcut dosyada değişik adla tanımlanmış sayfalar var ve bu sayfalarda tablolar var. Tablolardaki veriler, sırasıyla TOPLAM adlı son sayfaya aktarılıyor. Bu sayfaya aktarılan veriler için belirlenen ölçüt A4 sütunundan başlayan STOK ADI. Bu stok adları her sayfada A, B, C vb. adlarla tanımlanmış. Bu ölçüte göre aktarılan veriler (yani A,B,C vb.ne göre) TOPLAM sayfasında, B4'ten başlayarak alt alta diziliyor. A kriterine göre aktarılan verilerin en altına C ve E sütunundaki para değerleri toplanıyor. En sonuna da GENEL TOPLAM alınıyor. Genel toplamda da; A, B, C vb. kriterlerine göre aktarılan satırlardaki, C ve E sütunlarına ait toplamların toplamı alınıyor.

Benim yapmak istediğim ise, veri sayfalarındaki tabloların "J" sütunundan başlaması, aktarma kriteri olarak "L" sütunundaki noların ad olarak alınması, aktarılan verilere ait "O" ve "P" sütunundaki verilerin alta alta toplanması ve genel toplamının alınmasıdır.

Ayrıca, yapmak istediğimi dosyanın içerisinde de örneklendirdim. Veri sayfalarındaki birinci tablolar var olan makro koduna göre yapılan işlemlerdir. Renkli tablolar ise benim yapmak istediklerimle ilgilidir. Veri sayfalarına ve TOPLAM sayfasına bakıldığında, yapmak istediğim örneğiyle daha açık olarak görülecektir.

Yardımlarınız için şimdiden çok teşekkürler!!!
Saygılarımla!!!

Skorpiyon · 7 Eylül 2007

Sayın sefkatim,

Bunu bir deneyiniz. İstediğiniz böyle bir şey mi ? (Özür dileyerek bu saatte kafa bu kadar basıyor)

Kodlarınızı aşağıdakiler ile değiştiriniz.

Sub AKTAR_ALT_TOPLAM_AL()
Sheets("TOPLAM").Select
[B5:F65536].RemoveSubtotal
[B5:F65536].Clear
For X = 1 To Sheets.Count - 1
SATIR = Sheets(X).[J65536].End(3).Row
If SATIR <> 4 Then
SON_SATIR = [L65536].End(3).Row + 1
Sheets(X).Range("B2:F" & SATIR).Copy Range("A" & SON_SATIR)
End If: Next
Range("L1:R" & [L65536].End(3).Row).Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(3, 5), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

Saygılarımla...

Erdinç FIRTINA · 7 Eylül 2007

Sayın Sertkaya,
Çok çok teşekkür ederim ama error veriyor.
Belki bir başka zamanda tekrar bakabilirseniz sevinirim.

Skorpiyon · 7 Eylül 2007

Sayın sefkatim,

bende vermedi ama ?

Kodlarınzı değiştirdikten sonra
yapmanız gereken şey veri sayfalarındaki tabloları en üst satıra taşımak olsun, bir de öyle deneyim.

Saygılarımla...

Erdinç FIRTINA · 7 Eylül 2007

Sayın Sertkaya dosyamda mı bir hata var?

Sayın Sertkaya,
Dosyamı kendi yapmak istediklerime uygun olarak ekte sunuyorum. Sizin kod değişikliklerinizle denedim ama maalesef yapmak istediğimi yapamıyorum.

Yardımlarınız için şimdiden teşekkürler!!!

Skorpiyon · 7 Eylül 2007

Sayın sefkatim,

Kendi kafama göre farklı bir yoldan işinizi halletmeye çalışıyorum. İşten yeni geldik, bana az bi zaman verirseniz birazdan göndereceğim inş.

Saygılarımla...

Skorpiyon · 7 Eylül 2007

Sayın sefkatim,

Direkt olarak "MAKRO KAYDET" yöntemi ile yapılan Ek'teki dosyayı inceleyiniz. Dilerim bu sefer olmuştur.

Saygılarımla...

Erdinç FIRTINA · 8 Eylül 2007

Sayın Sertkaya teşekkürler!!!

Sayın Sertkaya yardımlarınız için çok çok teşekkürler. Şu anda çok incelemedim ama bakabildiğim kadarıyla yapmak istediğim olmuş. Sadece şunu merak ediyorum işin doğrusu satır, sütun veya sayfa sayısını arttırırsam problem olacak mı?
Daha sonra inceleyip bakacağım. Eğer yardıma ihtiyacım olursa sizden tekrar yardım rica edeceğim.

Teşekkürler!!!
Saygılarımla!!!

Skorpiyon · 8 Eylül 2007

Sayın sefkatim,

Satır, Sütün eklentilerinizde küçük değişiklikler olacak. Copy olarak geçen kısımlardaki adresler eklenen satır veya sütun kadar artırılacaktır.

Sayfa eklemede ise Activesheets.next.select koumutlu bir bölüm daha eklenmesi gerekir.

Bir inceleyin, olmazsa bir türlü hallederiz inş. Şahsen bende üzerinde uzun boylu düşünüp kodları kısaltarak değilde, işin kolayına kaçarak halletmiştim.

Saygılarımla...

Erdinç FIRTINA · 8 Eylül 2007

Sayın Sertkaya,
Herşey için çok teşekkürler!!!
Yarın inceleyeceğim. Problem olursa umarım aşabilirim.
Saygılarımla!!!

Aktar_alttopla kodlarında değişiklik

Erdinç FIRTINA

Hüseyin

Administrator

yasirozen94

Erdinç FIRTINA

Skorpiyon

Misafir

Erdinç FIRTINA

Skorpiyon

Misafir

Erdinç FIRTINA

Skorpiyon

Misafir

Erdinç FIRTINA

Skorpiyon

Misafir

Skorpiyon

Misafir

Erdinç FIRTINA

Skorpiyon

Misafir

Erdinç FIRTINA