verilen 2 tarih arasındaki günlere belirli bi değeri verdirmek ?

[zelimhan]

Değerli arkadaşlarım.
Şöyle bir şey yapmak istiyorum mümkünmü mümkünse nasıl.Şimdiden teşekkür ederim.

aşağıdaki gibi bi tablo var

mesela
1.grup 05.01.2014 11.01.2014 oda :90
2.grup 01.02.2014 09.01.2014 oda :80
...
şimdi istediğim. 2.sayfada ilgili hücreye 1.grup yazarsam önceden hazırladığım ve ayın 1 inden 31 ine kadar teker teker hücreye yazılmış tabloda 05.012014 tarihi ile 11.01.2014 tarihleri arasındaki 5,6,7,8,9,10,11 tarihlerinin altındaki satıra oda sayısını yazsın.Yani mesela 1.grup yazdım bakacak 05 ile 11 1/011/2014 tarihlerinde işlem var ve 90 oda gidecek 05 ten başlayarak 11 .satıra kadar ilgili hücreleri alt satırına 90 yazacak.

yani tablodaki 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 gün lerde ilgili 2 tarihin arasını bulacak ve altlarına 90 yazacak.


şeklinde iki tarih arasını bulacak ve altına oda sayısını yazacak.

 

[zelimhan]

çok önemliydi arkadaşlar yardım edermisiniz.

 

[antonio]

Değerli arkadaşlarım.
Şöyle bir şey yapmak istiyorum mümkünmü mümkünse nasıl.Şimdiden teşekkür ederim.

aşağıdaki gibi bi tablo var

mesela
1.grup 05.01.2014 11.01.2014 oda :90
2.grup 01.02.2014 09.01.2014 oda :80
...
şimdi istediğim. 2.sayfada ilgili hücreye 1.grup yazarsam önceden hazırladığım ve ayın 1 inden 31 ine kadar teker teker hücreye yazılmış tabloda 05.012014 tarihi ile 11.01.2014 tarihleri arasındaki 5,6,7,8,9,10,11 tarihlerinin altındaki satıra oda sayısını yazsın.Yani mesela 1.grup yazdım bakacak 05 ile 11 1/011/2014 tarihlerinde işlem var ve 90 oda gidecek 05 ten başlayarak 11 .satıra kadar ilgili hücreleri alt satırına 90 yazacak.

yani tablodaki 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 gün lerde ilgili 2 tarihin arasını bulacak ve altlarına 90 yazacak.


şeklinde iki tarih arasını bulacak ve altına oda sayısını yazacak.

Dosyanız ekte.

 

[zelimhan]

supersin yavv.Allah razı olsun.

 

[zelimhan]

Yanlız ben formulleri bulamadım benim işleve uygulamak için.makro mu yoksa formülmü acaba.

 

[antonio]

Yanlız ben formulleri bulamadım benim işleve uygulamak için.makro mu yoksa formülmü acaba.

Sayfa2 sekmesine sağ tıklayıp "Kod Görüntüle" yi seçerseniz, kodları inceleyebilirsiniz. Sayfa1 de yazdıklarınıza göre Sayfa2 "Activate" yani "Açılış" olayına göre o kodlar harekete geçirilir. Başka bir deyişle, nasıl ki bazı kodları harekete geçirmek için bir düğmeye basmak bir olaydır, burada da, kodları harekete geçiren olay; Sayfa2 nin açılması dır.

Private Sub Worksheet_Activate()
Dim sh1 As Worksheet, sh2 As Worksheet, ss1 As Integer, ss2 As Integer, _
ilk As Integer, son As Integer
Range("A2:AG" & Rows.Count).Clear

Set sh1 = Worksheets("Sayfa1")
Set sh2 = Worksheets("Sayfa2")
ss1 = sh1.Range("A" & Rows.Count).End(3).Row
ss2 = sh2.Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
If ss1 = 2 Then Exit Sub
For i = 2 To ss1
    sh2.Range("A" & i) = sh1.Range("A" & i).Value
aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", _
"HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
sh2.Range("B" & i) = aylar(Month(sh1.Range("B" & i)) - 1)

    ilk = Day(sh1.Range("B" & i))
    son = Day(sh1.Range("C" & i))
        For j = ilk + 2 To son + 2
sh2.Cells(i, j) = sh1.Range("D" & i).Value
        Next j
Next i
sh2.Range("A" & ss1 + 1).Select
Application.ScreenUpdating = True

End Sub

 

[zelimhan]

antonio değerli kardeşim ekte istediğimi tam anlattım.senin hazırladığın makroyu tam anlamıyla uyarlıyamadığım için sana çalışmayı göndermek istedim.yardımcı olabilirsen çok sevinirim.şimdiden teşekkür ederim.

 

[antonio]

antonio değerli kardeşim ekte istediğimi tam anlattım.senin hazırladığın makroyu tam anlamıyla uyarlıyamadığım için sana çalışmayı göndermek istedim.yardımcı olabilirsen çok sevinirim.şimdiden teşekkür ederim.

Sayın zelimhan, dosyanızı inceledim. Manuel olarak çalışmak için iyi düzenlenmiş olmakla birlikte, makrolarla aynı çalışma sayfasının kullanışlı olarak çalışabileceğine pek ihtimal vermiyorum. Bence en iyisi profesyonel bir yazılım firmasından destek almaktır.
Yardımcı olamadığım için üzgünüm. Umarım diğer arkadaşlardan bir çözüm gelir.
Kolay gelsin.

 

[zelimhan]

Teşekkür Ederim Yinede.Umarım bi yardımcı olan arkadaş olur.işimi çok kolay ve hatasız yapabilirim böylece.