Macro buna nasıl yazılır

[drseref]

"1.elimde hastalarımın adı,soy adı ve doğum tarihi listesi var.fakat ben bakanlığın verdiği
izlem aralıklarında muayene etmem gerekiyor.benim doğum tarihlerine göre izlem tarihlerini yani soru işaretli yerleri mecroyla atamam gerekiyor."

"2. Sayfa 2 dede bu izlem aralığında olan hastaları
raporlamam gerekiyor."

 

[drseref]

1.elimde hastalarımın adı,soy adı ve doğum tarihi listesi var.fakat ben bakanlığın verdiği
izlem aralıklarında muayene etmem gerekiyor.benim doğum tarihlerine göre sarı
doğum tarihi+0.GÜN
doğum tarihi+30.GÜN
doğum tarihi+30.GÜN
doğum tarihi+59.GÜN
doğum tarihi+60.GÜN
doğum tarihi+89.GÜN
doğum tarihi+90.GÜN
doğum tarihi+119.GÜN
doğum tarihi+120.GÜN
doğum tarihi+149.GÜN
doğum tarihi+180.GÜN
doğum tarihi+209.GÜN
doğum tarihi+270.GÜN
doğum tarihi+299.GÜN
izlem tarihlerini yani soru işaretli yerleri mecroyla atamam gerekiyor."

yardımlarınız için şimdiden tşk ederim.

 

[drseref]

ben formüle yaptım ama macroyla yapmak istiyorum.
acil.....

 

[ynmcan]

ben formüle yaptım ama macroyla yapmak istiyorum.
acil.....

Syn. Drseref;
Birinci sorunuz için
Ekteki dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Sayfa1")
  For sat = 5 To .Range("C65536").End(3).Row
  
.Cells(sat, 5) = .Cells(sat, 3)
.Cells(sat, 6) = .Cells(sat, 3) + 29

.Cells(sat, 8) = .Cells(sat, 3) + 30
.Cells(sat, 9) = .Cells(sat, 3) + 59

.Cells(sat, 11) = .Cells(sat, 3) + 60
.Cells(sat, 12) = .Cells(sat, 3) + 89

.Cells(sat, 14) = .Cells(sat, 3) + 90
.Cells(sat, 15) = .Cells(sat, 3) + 119

.Cells(sat, 17) = .Cells(sat, 3) + 120
.Cells(sat, 18) = .Cells(sat, 3) + 149

.Cells(sat, 20) = .Cells(sat, 3) + 180
.Cells(sat, 21) = .Cells(sat, 3) + 209

.Cells(sat, 23) = .Cells(sat, 3) + 270
.Cells(sat, 24) = .Cells(sat, 3) + 299

Next sat
End With
End Sub

İkinci soronuz için biraz daha açıklama yapabilirseniz yardımcı olalım.

 

[drseref]

çok teşekkür ederim.

 

[Necdet]

Merhaba,

Örnek dosyada C sütunu (Doğum Tarihi) değiştiğinde hesaplama yapacaktır.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
On Error GoTo Son
Dim Gunler, _
    i   As Integer
    
Gunler = Array(0, 30, 59, 60, 89, 90, 119, 120, 149, 180, 209, 270)
    For i = 0 To UBound(Gunler)
        If IsDate(Target.Value) Then
            Cells(Target.Row, i + 4) = Target.Value + Gunler(i)
'           Cells(4, i + 4) = Gunler(i) & ". GÜN"
        Else
            Cells(Target.Row, i + 4) = ""
        End If
    Next i
Son:
End Sub