Ödeme Aylarına Göre Müş.Senedi İçin Muhasebe Kaydı Oluşturma

[bertokay]

Üstadlarım Merhaba,

Dosya Ekinde senetler sayfasında alt alta ödeme vadesine göre sıralanmış senet listem var muhasebe kaydı sayfasında muhasebe programımıza atmak için kayıtları oluşturmaya çalışıyorum ancak ödeme ayı 1 olanlar için 121 01 04 01 ,ödeme ayı 2 olanlar için 121 01 04 02, ödeme ayı 3 olanlar için 121 01 04 03 yazdırmaya çalışıyorum beceremedim.Acaba bu konuda yardımcı olabilir misiniz?

 

[çıtır]

j2 kopyalayız aşağıdoğru çekerek çoğaltınız

=AY(I2)

 

[bertokay]

Ödeme ayı
2 olanlar için A sütununa 121 01 04 02 ve B sütununda denk gelen satırına "ŞUBAT 2018 SENETLERİ"
3 olanlar için A sütununa 121 01 04 03 ve B sütununda denk gelen satırına "MART 2018 SENETLERİ"

Gibi makro ile nasıl yazdırabilirim?

 

[çıtır]

Deneyiniz . Hata olursa yılların yazımını düzenleyiniz.

Sub aylarıyaz()
Dim s1 As Worksheet
Dim i As Integer
Set s1 = Sheets("MUHASEBE FİŞİ")
For i = 2 To s1.Cells(65536, "I").End(3).Row
If s1.Range("C" & i) <> "" Then
s1.Range("A" & i) = "120 01 04" & " " & Format(s1.Range("I" & i), "mm")
s1.Range("B" & i) = Format(s1.Range("ı" & i), "mmmm") & " " & Format(s1.Range("I" & i), "yyyy") & " " & "SENETLERİ"
s1.Range("B" & i) = UCase(Replace(Replace(s1.Range("B" & i), "ı", "I"), "i", "İ"))
End If
Next i
End Sub