Hücredeki sabit verinin verilen tarih aralıklarına gore otomatik olarak kopyalanması

[TheRapsody]

Herkese iyi geceler
Oncelikle http://www.excel.web.tr de emeği gecen herkese tesekkurlerımı bildirmek isterim.

Takıldıgım konu özet ile şu şekilde :

E5 ve F5 hücrelerde tarih aralıkları var 22.05.2011 30.11.2011

G5 hucresınde ıse adam sayılarını yazmaktayım : 10 adam

S5 hücresi ve EX5 hücresi aralıgında tarıh aralıkları mevcut.

G5 hücresine yazdıgım adam sayısının S5 ve EX5 hücreleri aralıklarına tarihleri dikkate alarak otomatik olarak yazdırmak istiyorum . Yardımcı olabilir misiniz

Herkese iyi çalışmalar dilerim

 

[İhsan Tank]

Merhaba
Dosya yok mu_?

 

[TheRapsody]

Merhaba
Dosya yok mu_?

Merhaba İhsan Bey Örnek dosyayı ekledim yardımcı olabilir misiniz
İyi Çalışamalar dilerim

 

[İhsan Tank]

Merhaba İhsan Bey Örnek dosyayı ekledim yardımcı olabilir misiniz
İyi Çalışamalar dilerim

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub tarihli_aktar_61()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox(CDate(Range("F4")) & " İle " & CDate(Range("G4")) & vbLf _
& "Arasına " & Range("I4") & " Verisini Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 11 To Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(2, ts) >= Range("F4") And Cells(2, ts) <= Range("G4") Then
Cells(4, ts) = Range("I4")
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & " Sürede " & vbLf _
& CDate(Range("F4")) & " İle " & CDate(Range("G4")) & vbLf _
& "Arasına " & Range("I4") & " Verisini Aktardım", , "Bitiş"
End Sub

 

[İhsan Tank]

Merhaba İhsan Bey Örnek dosyayı ekledim yardımcı olabilir misiniz
İyi Çalışamalar dilerim

Merhaba
Belki formül ile istersiniz diye formül çözümünü de gönderiyorum.
L4 hücresine yapıştırın ve sağ'a doğru çoğaltın.

=EĞER(VE(L$2>=$F$4;L$2<=$G$4);$I$4;"")

 

[TheRapsody]

Teşekkür

Merhaba
Belki formül ile istersiniz diye formül çözümünü de gönderiyorum.
L4 hücresine yapıştırın ve sağ'a doğru çoğaltın.

=EĞER(VE(L$2>=$F$4;L$2<=$G$4);$I$4;"")

İhsan Bey çok teşekkür ederim.

İyi Çalışmalar

 

[İhsan Tank]

İhsan Bey çok teşekkür ederim.

İyi Çalışmalar

Rica ederim
:keyif: