Aylık ve Kümülatif Veri Aktarım

[BONZAİ]

Forumunuza yeni katılan biri olarak herkese çok selam....Ekte gönderdiğim dosyada uygulanan formülleri makroya çevirme konusunda yardımcı olursanız çok sevinirim.

Şimdiden çok teşekkürler....

 

[Levent Menteşoğlu]

Merhaba

Butona bağlayarak çalıştırmak isterseniz aşağıdaki kodu deneyin.

Sub listele()
Set s1 = Sheets("" & [e4])
sut = s1.[a2:m2].Find([e2]).Column
[b4] = s1.Cells(3, sut)
[b5] = s1.Cells(4, sut)
[c4] = s1.Cells(8, sut)
[c5] = s1.Cells(9, sut)
[b9] = WorksheetFunction.Sum(s1.Range(s1.Cells(3, 2), s1.Cells(3, sut)))
[b10] = WorksheetFunction.Sum(s1.Range(s1.Cells(4, 2), s1.Cells(4, sut)))
[c9] = WorksheetFunction.Sum(s1.Range(s1.Cells(8, 2), s1.Cells(8, sut)))
[c10] = WorksheetFunction.Sum(s1.Range(s1.Cells(9, 2), s1.Cells(9, sut)))
End Sub

Eğer Şirket ismini seçince çalışmasını isterseniz aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$4" Or [e2] = 0 Then Exit Sub
Set s1 = Sheets("" & [e4])
sut = s1.[a2:m2].Find([e2]).Column
[b4] = s1.Cells(3, sut)
[b5] = s1.Cells(4, sut)
[c4] = s1.Cells(8, sut)
[c5] = s1.Cells(9, sut)
[b9] = WorksheetFunction.Sum(s1.Range(s1.Cells(3, 2), s1.Cells(3, sut)))
[b10] = WorksheetFunction.Sum(s1.Range(s1.Cells(4, 2), s1.Cells(4, sut)))
[c9] = WorksheetFunction.Sum(s1.Range(s1.Cells(8, 2), s1.Cells(8, sut)))
[c10] = WorksheetFunction.Sum(s1.Range(s1.Cells(9, 2), s1.Cells(9, sut)))
End Sub

 

[BONZAİ]

Bu konuda çok yeni olduğum için beni mazur görün.
1)Butona bağlamayı örnekleyebilir misiniz?
2)2. seçenekte; örneğin şirket2'deyken Ocak ayı verilerini getirirken daha sonra Şubat ayı verilerini çağırdığımda şirket2'yi tekrar seçmem gerekmekte...
Aynı şirketteyken ayları değiştirdiğimde veriler gelemez mi?
3)Benim esas yapmayı düündüğüm şey userformda ayları ve şirketleri combobox ile oluşturmaktı. Bunu nasıl yapabilirim?

Biraz fazla oldum fakat yardımcı olursanız çok sevinirim

Teşekkürler

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[gurcan4]

tebrikler

verdiğiniz süper örnek için çok teşekkürler
saygılar

 

[BONZAİ]

Yardımlarınız için çek teşekkür ederim, tam istediğim gibi bir çalışma olmuş.

Emeğinize sağlık...

 

[BONZAİ]

Bir sorum daha olacak...

Ekteki dosyada yeralan combobox'ları yeni oluşturduğumuz bir sayfaya taşıdığımız zaman (yine verilerin sayfa1'e akması koşuluyla) kod'da oluşacak değişiklikler konusunda yardımlarınızı bekliyorum.

Şimdiden çok teşekkürler...