İki tarih arasındaki bılgılerı makro ile toplama

[Serdar SELEN]

Topla.Çarpım formulu makro ile yapılabılıyormu ?

 

[Recep İpek]

Ekli örnek dosyayı inceleyiniz.

Sub Button1_Click()
a = CDate([f2])
b = CDate([g2])
For i = 2 To 100
tar = CDate(Cells(i, "a").Value)
If a <= tar And b >= tar Then
Top = Top + Cells(i, "b").Value
End If
Next i
MsgBox Top
[h2].Value = Top
End Sub

 

[Serdar SELEN]

Teşekkür ederim

Eline saglık hocam tşk ederim

 

[Serdar SELEN]

Hocam pekı toplayacagım verıler baska sayfada olursa ne yapmam gerekıyor ? Ek tekı dosya gıbı ))

 

[Recep İpek]

Aşağıdaki gibi deneyiniz.

Sub Button1_Click()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
a = CDate(s1.[f2])
b = CDate(s1.[g2])
For i = 2 To 100
tar = CDate(s2.Cells(i, "a").Value)
If a <= tar And b >= tar Then
Top = Top + s2.Cells(i, "b").Value
End If
Next i
s1.[h2].Value = Top
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Serdar SELEN]

Hocam ben yapamadım ya EK te ugrastıgım dosyayı gonderdım bır bakarsanız sevınırım

 

[Serdar SELEN]

Hocam yapamadım EK tekı dosyaya bır bakarsanız sevınırım

 

[Recep İpek]

Dosyanızı inceleyiniz.

 

[Serdar SELEN]

Cok tesekkur ederım hocam elınıze saglık hepınız harıkasınız ya cok guzel seyler ogrenıyoruz sızlerın sayesınde saolun saolun saolun

 

[mehmetslbs]

Merhabalar ben aşağıda kafamdaki programın bir kısmını yazdım.Programın sonraki aşamasında takıldım.Programda a sütununa alt alta beş değer yazdığımızda program kendi belirlediği aralığa göre yazdığımız sayıların karşına 1 ve 0 yazıyor.Benim sizden istediğim bir sonraki aşama olarak bu 1 ve 0 ların bulundugu sütunların alt alta toplamasını sağlayan program yazmak.Bunu nasıl yapabiliriz?



Sub deney()
a = 2
Do
a = a + 1
For i = 1 To 5
If Cells(i, 1).Value < a Then
Cells(i, 1 + a).Value = 1
Else
Cells(i, 1 + a).Value = 0
End If
Next i
Loop While a < 10
End Sub

 

[anit35]

ekli örnek dosyayı inceleyiniz.

sub button1_click()
a = cdate([f2])
b = cdate([g2])
for i = 2 to 100
tar = cdate(cells(i, "a").value)
ıf a <= tar and b >= tar then
top = top + cells(i, "b").value
end ıf
next i
msgbox top
[h2].value = top
end sub

selam recep bey
yukardaki kodu
benim excel hazırlamış olduğum ekte yüklediğim dosya nasıl uyarlaya biliriz.
Saygılarımla sedat abu

 

[Orion1]

Aşağıdaki linkte sorunuza cevap verdim.
http://www.excel.web.tr/showthread.php?goto=newpost&t=132108