Tarihe göre veri gönderme

[seletci]

Slm, ben sayfa1 de örneğin ayın 12 sin de forma veri girince, sayfa 2 deki aylık toplamın yapıldığı tablomda ki ayın 12 sine verinin gitmesini istiyorum. Bunu nasıl yapabilirim acaba??
Tabiki bu işlemi her gün yapıyorum ve sayfa 1 deki veri her gün değişiyor.Ama sayfa 2 deki veri sabit kalıyor ay sonunda toplam alıyorum.

Dosyam ektedir.
Teşekkürler.

 

[seletci]

Bu konuda yardımcıi olacak yokmu?

 

[Orion1]

Sorunuzdan kimsenin bir şey anladığını sanmıyorum,bende dahil,Bir örnek dosya ekler ve üzerinde açıklama yaparsanız sanırım cevap alabiliesiniz.

 

[ilkayturk83]

İndis yolu ile yapabilirsin taşımak ,stediğin alana ad tanımla ve indis formülü kullan

 

[seletci]

Dosyayı ekledim yardımlarınızı bekliyorum.
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim i As Long, k As Range, toplam As Double
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Range("D3:D65536").ClearContents
With Sheets("Sayfa1")
    For i = 2 To .Cells(65536, "H").End(xlUp).Row
        If WorksheetFunction.CountIf(.Range("H2:H" & i), .Cells(i, "H").Value) = 1 Then
            If IsDate(.Cells(i, "H").Value) Then
                toplam = 0
                toplam = WorksheetFunction.SumIf(.Range("H2:H" & .Cells(65536, "H").End(xlUp).Row) _
                , .Cells(i, "H").Value, .Range("F2:F" & .Cells(65536, "H").End(xlUp).Row))
                Set k = Range("A3:A" & Cells(65536, "A").End(xlUp).Row).Find _
                (CDate(.Cells(i, "H").Value), , xlValues, xlWhole)
                If Not k Is Nothing Then
                    Cells(k.Row, "D").Value = toplam
                    Cells(k.Row, "D").NumberFormat = "#,##0.00"
                    Set k = Nothing
                End If
            End If
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamadır.", vbOKOnly + vbInformation, "WWW.EXCEL.WEB:TR"
                
            
End Sub

 

[seletci]

Pardon Evren Bey ama hiç bir işlem yapmıyor kodlar.Aktar butonuna tıklayıncada işlem yapılmıyor.Userformdan veri girincede işlem yapılmıyor.Bir yerde bir eksik var sanırım.

İlginizede teşekkürler.

 

[Orion1]

Pardon Evren Bey ama hiç bir işlem yapmıyor kodlar.Aktar butonuna tıklayıncada işlem yapılmıyor.Userformdan veri girincede işlem yapılmıyor.Bir yerde bir eksik var sanırım.

İlginizede teşekkürler.

Çünkü;
Sizin ilk sayfanızda 2nci sayfanızda tutan tarihleriniz yok.
Siz ne demiştiniz?!nci sayfada 2nci sayfada uyan tarihlere aktarıp toplayacam demiştiniz.
'nci sayfada ilk sayafadaki tarihi bulamayınca ne yapsın zavallı kodlarım,Hiç bir işlem yapamıyor.Boş kalıyor.:İlk sayfada H sütununa ikinci sayfaya uyan tarihler yazın bakalım ne olacak.

 

[seletci]

Maalesef çalışmıyor Sayın Hocam dediğiniz gibi yaptım ama nafile olmadı.Tarihleri birbirine uygun da yaptım.Formatlarını değiştirdim ama malesef.

 

[Orion1]

Maalesef çalışmıyor Sayın Hocam dediğiniz gibi yaptım ama nafile olmadı.Tarihleri birbirine uygun da yaptım.Formatlarını değiştirdim ama malesef.

Evet haklısınız.Bir yerinde kodun başına nokta koymayı unutmuşum.
O sebepten yanlış çalışıyor.
Dosyayı güncelledim.6ncı mesajdan indirebilirsiniz.
NOT: textboxtan girdiğiniz değerler sayfaya string değer olarak gidiyor.
Nitekim tarih değerinizde string.Bu karışıklık yapabilir.Sayısal değerleri ve tarihleri direk textboxtan sayfaya kaydetmeyiniz.Saısal değerler için cdbl(textbox1.text),
Tarihler için se cdate(textbox3.text) şeklind ekodlama yapınız.

 

[seletci]

Teşekkürler elinize emeğinize sağlık üstadım.

 

[Orion1]

Teşekkürler elinize emeğinize sağlık üstadım.

Rica ederim.
İyi çalışmalar.

 

[seletci]

Sayın Evren Bey sizden bir ricada daha bulunacam, sıkılarak.
Eklediğim dosyada açıklama yaptım.
Sadece, Sayfa 1 de F sütünunda bulunan verinin , Sayfa 2 deki "D" sütununa tarihe göre gelmesini sağlayabilirmiyiz acaba?? Yani Sayfa 2 de toplama yapmamıza gerek yok.
Birde AKTAR butonuna HER TIKLANDIĞINDA yeniden hesap yapıyor.Sadece 1 kez yapmasını nasıl sağlarız.
Affınıza sığınarak ricada bulunuyorum.
Dosya ektedir.

 

[Orion1]

Sayın Evren Bey sizden bir ricada daha bulunacam, sıkılarak.
Eklediğim dosyada açıklama yaptım.
Sadece, Sayfa 1 de F sütünunda bulunan verinin , Sayfa 2 deki "D" sütununa tarihe göre gelmesini sağlayabilirmiyiz acaba?? Yani Sayfa 2 de toplama yapmamıza gerek yok.
Birde AKTAR butonuna HER TIKLANDIĞINDA yeniden hesap yapıyor.Sadece 1 kez yapmasını nasıl sağlarız.
Affınıza sığınarak ricada bulunuyorum.
Dosya ektedir.

Bunlar sizlerin soruyu yeterli açıklıkta anlatmamamnızdan kaynaklanıyor.Bizde kendimize göre yorum yapıp bir şeyler yapıyoruz.Ama sonra yin dönüyor olmammış diyorsunuz .Hadi tekrar baştan başla.Yani soruyu sorarken açık ve net bir şekilde sorsanızda bizi uğğraştırmasanız olmazmı.Bizde artık bıktık şu ne olacak şu ne olacak demeye.Yapıp giisyoruz.Sonra böyle olutyor.
Dosyanız 6ncı mesajda güncelledim oradan indirebilirsiniz.

 

[seletci]

Çok haklısınız valla çok mahçup kaldım size karşı.Teşekkürler, sağolun varolun ,Allah razı olsun.Emeğinize sağlık.