Makro ile metni çevirme

[muyat]

Formülüm aşagıdaki gibi olup istedigim gibi çalışıyor..
Bu formülü I2 hücresine yazdıgımıda g2 ve h2 hücresine yazılan tarihlerin hangi aylara ait oldugunu ı2 hücresine yazıyor...
yani diyelimki g2 hücresine 27.01.2018 ,h2 hücresine de 30.03.2018 yazdıgımızda I2 hücresinde otomatik olarak "Ocak ve Mart" yazıyor...Bu formülü de tüm ı2 sütununa sürüklediğimde formül otomatik olarak çeviriyor.

Aşagıdaki formülü makro ile nasıl yapabiliriz yardımcı olur musunuz?Örnegin formül I Sütunun 1000.hücresine kadar çalışıyor olcak...Yukardaki gibi sürükleyerek formülü kopyaladıgımda kutucugun etrafında çerçeve oluşuyor.O nedenle makro ile yapmak istiyorum.

=EĞER(G2="";"";""&METNEÇEVİR(G2;"aaaa")&" ve "&METNEÇEVİR(H2;"aaaa")&"")

 

[çıtır]

İşlem yaptığınız sayfanın ismini yazan sekmede fare sağ tuş yapınız.Kod görüntüle çıkan boş alana kodu kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2:G65536,H2:H65536]) Is Nothing Then Exit Sub
SonSatir = Cells(65536, "G").End(3).Row
Range("I2:I" & Cells(65536, "I").End(3).Row).ClearContents
For i = 2 To SonSatir
If Range("G" & i) <> "" And Range("H" & i) <> "" Then
Range("I" & i) = Format(Range("G" & i), "mmmm") & " ve " & Format(Range("H" & i), "mmmm")
End If
Next i
End Sub