Yaşı (ay olarak) işaretle

[omeryılmaz]

İlçemizde Sosyal Yardımlaşma ve Dayanışma Vakfı tarafından Şartlı Nakit Yardımı yapılan 0 - 5 Yaş Bebeklerin kaç aylık olduklarının takibinin yapılması için Ekte Formda Formülle düzenlenmiş alanın, B hücresindeki Dolu veri sayısına göre Makro ile yapılandırıması için nasıl bir düzenleme yapılabilir.

Yardımlarınız için şimdiden şükranlarımı sunuyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim X As Long, BUL As Range
    
    Range("R3:BD" & Rows.Count).ClearContents
    
    For X = 3 To Cells(Rows.Count, 2).End(3).Row
        If Cells(X, 2) <> "" Then
            AY = DateDiff("m", Cells(X, "P"), Date)
            Set BUL = Range("R2:BD2").Find(AY, , , xlWhole)
            If Not BUL Is Nothing Then
                Cells(X, BUL.Column) = 1
            End If
        End If
    Next
 
    Set BUL = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[omeryılmaz]

Teşekkürler Hocam