Makro ile toplam alma

[northcyprus]

sayın üstadlar sevgili arkadaşlar hepinize yardımlarınız için şimdiden teşekür ediyorum.
yapmak istediğim fakat bir türlü beceremediğim olay şu bir buton hazırladım fakat kodu yazamadım butona tıkladığımda HSBC sheetindeki toplam hücresinde bulunan miktarların benim belirleyeceğim herhangi iki tarih arasındaki toplamnı alıp ekstre sheet ine yazmasını istiyorum.
öneğin 16 temmuz ile 23 temmuz daki toplamları veya 25 temmuz ile 25 ağustos arasındaki toplam.

dosyayı ekledim yardımlarınızı bekliyorum..

 

[Orion1]

Dosyanız hazır .
Ekli dosyayı inceleyiniz.

Sub extre()
Dim syf As Worksheet, i As Integer
Sheets("EKSTRE").Select
Range("B4:IV65536").ClearContents
For Each syf In Worksheets
If syf.Name <> "EKSTRE" Then
    Set sat = Range("A3:A65536").Find(syf.Name, , xlValues, xlWhole)
    If Not sat Is Nothing Then
    For i = 2 To 256
       Set sut = Range("B1:IV1").Find(syf.Cells(1, i).Value, , xlValues, xlWhole)
       If Not sut Is Nothing Then
            Cells(sat.Row, sut.Column).Value = syf.Cells(46, i).Value
        End If
    Next i
    End If
End If
Next
Set sat = Nothing: Set sut = Nothing
MsgBox "EXTRE ÇIKARILDI..!!"
End Sub

 

[northcyprus]

sayın Sezar öncelikle yardım ettiğiniz için çok teşekür ederim.
istediğim şeyi tam olaak anlatamadım galiba kusura bakmayın. benin yapmaya çalıştığım bu değildi. istediğim şey butona tıkladığımda benim istediğim iki tarih arasındaki toplamı alıp EKSTRE deki HSBC nin yani B15 e yazsın
ayni şekil İKTİSAT Bankınkini de B17 ye LİMASOL T.K.B sını da B19 u yazsın istiyorum ama butona tıkladığımda bana tarihler girmem için bişey çıkması gerekiyor degil mi? ki bende tarihleri yazıp sadece o tarih arasındaki toplamı yansıtsın bana.. sizin dosyayı tekrar ekliyorum orda göreceksiniz teşekürler..

 

[Orion1]

Merhaba.
Dosyanız Hazır .Ekli dosyayı inceleyiniz.

Sub extre()
Dim ilktarih As Date, sontarih As Date
Dim syf As Worksheet, i As Integer
Sheets("EKSTRE").Select
Range("B15:B19").ClearContents
10
ilk = InputBox("İlk Tarihi Giriniz..: ", "İLK TARİH")
If ilk = Empty Then Exit Sub
If Not IsDate(ilk) Then
    MsgBox "İlk Tarihi yanlış girdiniz.!", vbCritical
    GoTo 10
End If
20
son = InputBox("Son Tarihi Giriniz..: ", "SON TARİH")
If son = Empty Then Exit Sub
If Not IsDate(son) Then
    MsgBox "Son Tarihi Yanlış Girdiniz.!", vbCritical
    GoTo 20
End If
ilktarih = ilk: sontarih = son
Application.ScreenUpdating = False
For Each syf In Worksheets
If syf.Name <> "EKSTRE" Then
Set sat = Range("A14:A65536").Find(syf.Name, LookIn:=xlValues, lookat:=xlWhole)
If Not sat Is Nothing Then
    For i = 2 To 256
        If Cells(1, i).Value >= ilktarih And Cells(1, i).Value <= sontarih Then
            Cells(sat.Row, "B").Value = Cells(sat.Row, "B").Value + syf.Cells(46, i).Value
        End If
    Next i
End If
End If
Next
Application.ScreenUpdating = True
MsgBox "EXTRE ÇIKARILDI..!!"
End Sub

 

[northcyprus]

ilgi ve alakanız için çok teşekür ediyorum biliyorum çok oldum ama bi sıkıntım daha var tarihler sadece 24 mart 2008 e kadar gidiyor.. bu tarihi uzatmanın bir yolu var mı örnegin 2010 a kadar gitsin olur mu aceba...
bir de sayfa 1 sayfa 2 ve sayfa 3 te satır sayısı 46 ya kadar gidiyor bunu yükseltmeyi denedim fakat bu defa formüller çalışmıyor bunu nasıl çoğaltabilirim??

 

[northcyprus]

dosyayı ekledim yardımcı olursanız çok sevineceğim şimdiden teşekür ediyorum.
yapamadığım şey tarihler sadece 24 mart 2008 e kadar gidiyor.. bu tarihi uzatmanın bir yolu var mı örnegin 2010 a kadar gitsin veya daha fazla olur mu aceba...
bir de sayfa 1 sayfa 2 ve sayfa 3 te satır sayısı 46 ya kadar gidiyor bunu 150 ye yükseltmeyi denedim fakat bu defa formüller çalışmıyor bunu nasıl çoğaltabilirim??