Fatura Sayısı

[arşivist1]

tabloyu sonra eklemeye çalışırım

şöyle bir sıkıntım var.

a sütununda hasta isimleri
b sütununda o hastaların hasta giriş tarihleri

hasta tarih
aaa 08/04/2015
aaa 09/04/2015
aaa 10/04/2015
aaa 19/04/2015
aaa 25/04/2015
aaa 30/04/2015

tarihlerinde gelen hastaya ben fatura kesicem
fatura on günde bir kesiliyor
08/04 tarihinde fatura kestim
19/04 tarihinde kestim
30/04 tarihinde kestim

bu tabloda binlerce satır var.
benim istediğim

hasta tarih
aaa 08/04/2015
aaa 19/04/2015
aaa 30/04/2015


teşekkür ederim

 

[YUSUF44]

Makrosuz çözüm isterseniz eğer B sütununda tarihler sıralıysa C2 hücresine ilk fatura tarihini girdikten sonra C3 hücresine aşağıdaki formülü kopyalayıp aşağı doğru çoğaltırsanız C sütununda istediğiniz sonucu verir. C sütununuz boş değilse araya bir sütun ekleyebilirsiniz:

=EĞER(B3>C2;C2+11;C2)

Makro için ise yine C sütununu boş bırakarak (ya da araya sütun ekleyerek) aşağıdaki kodlarla C sütununda istediğiniz sonucu görürsünüz:

Sub fatura()
If IsDate([C2]) = False Then
uyarı = MsgBox("C2 hücresine ilk fatura tarihini girmeniz gerekir!", vbCritical)
[C2].Select
    GoTo 10
End If
For i = 3 To Cells(Rows.Count, 1).End(3).Row
    If Cells(i, 2) > Cells(i - 1, 3) Then
        Cells(i, 3) = Cells(i - 1, 3) + 11
    Else
        Cells(i, 3) = Cells(i - 1, 3)
    End If
Next
10
End Sub

 

[arşivist1]

arkadaşım derdimi anlatamadım sanırım

ADLE HASAN 01.04.2015
ADLE HASAN 01.04.2015
ADLE HASAN 01.04.2015
ADLE HASAN 07.04.2015
ADLE HASAN 07.04.2015
ADLE HASAN 07.04.2015
ADLE HASAN 14.04.2015
ADLE HASAN 15.04.2015
ADLE HASAN 15.04.2015
ADNAN KIRDA 01.04.2015
ADNAN KIRDA 15.04.2015
ADNAN KIRDA 15.04.2015
ADNAN KIRDA 15.04.2015
ADNAN KIRDA 20.04.2015
ADNAN KIRDA 20.04.2015
ADNAN KIRDA 20.04.2015
ADNAN KIRDA 30.04.2015

şöyle bir tablom var bunların istatistiğini her ay kuruma göndermek zorundayız.
yukarda verdiğim örneklerden ayıklamalar yaparak
D ve E sütununa alttaki bilgileri aktarmasını istiyorum.
liste hasta ismine göre sıralı.

ADLE HASAN 01.04.2015
ADLE HASAN 14.04.2015
ADNAN KIRDA 01.04.2015
ADNAN KIRDA 20.04.2015
ADNAN KIRDA 30.04.2015

 

[YUSUF44]

İlk verdiğiniz bilgilere göre aklıma gelen çözümü yazdım ben. İkinci mesajınızda ise farklı örnek ve farklı sonuç istediğinizi belirtiyorsunuz. Bizim anladığımız sizin anlattığınzıdan fazla olmuyor genellikle. Kusura bakmayın, sorunuzun son hali beni aşıyor.

 

[arşivist1]

teşekkür ederim.
ilginiz için.