Ay hesabı

[musculus2]

Makro olarak
herhangi bir hücredeki tarih değerinin sadece ay kısmını nasıl ifade edebilirim ?

A1 de 12.Mart.2006 olsun ,
B1 de 17.Nisan 2006 olsun vb.
C1 ...
D1...
E1 de 25.Mart.2006

A3 hücresine Mart 2006 yazdığımızda bana A1,E1 hücrelerinde olduğunu makro olarak nasıl bildirebilirim.

 

[Necdet]

Ben pek anlamadım sanırım

 

[musculus2]

Çözdüm ;

Set s1 = Sheets("Bebek izlem")
Set s2 = Sheets("aylık")
s2.Range("b7:i51").ClearContents
bb = [f1].Value
'2.İzlem
For a = 5 To s1.[c65536].End(3).Row
kk = s1.Cells(a, "c").Value

If Mid(kk, 4, 7) = Mid(bb, 4, 7) Then
s = s2.[c65536].End(3).Row + 1
s2.Cells(s, "b").Value = s1.Cells(a, "a").Value
s2.Cells(s, "c").Value = s1.Cells(a, "b").Value
s2.Cells(s, "d").Value = s1.Cells(a, "c").Value
s2.Cells(s, "f").Value = s1.Cells(a, "e").Value
s2.Cells(s, "g").Value = s1.Cells(4, "c").Value

End If
Next a

[F1] 'de gg.aa.yyyy formatında tarih giriliyor