yan sayfaya otomatik atsın

[seyfiseval]

dosya ektedir

yardımlarınız için şimdiden teşekkürler.

 

[vardar07]

"O" sütununa tarih girince diğer sayfaya otomatik atar. Dosyayı inceleyiniz.

 

[seyfiseval]

ilginiz için teşekkürler

fakat yan sayfaya tek bir hücreyi dolduruyor
istediğim taksit sayısı kadar doldurması ve tarihleri bir sonraki aylara göre ilerlemesi

 

[seyfiseval]

yapılabilirmi acaba ?

 

[vardar07]

Kodları aşağıdaki ile değiştirip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As Worksheet, s As Worksheet
Set t = Sheets("TAKSİTLİ SATIŞ"): Set s = Sheets("senetler")
If Intersect(Target, Range("O3:O16")) Is Nothing Then Exit Sub
If t.Cells(Target.Row, "N") < 1 Then
a = 1
Else
a = t.Cells(Target.Row, "N").Value
End If
For i = 1 To a
son = s.Range("B65536").End(3).Row + 1
s.Cells(son, "B") = t.Cells(Target.Row, "D")
If t.Cells(Target.Row, "N") <> "" Then
s.Cells(son, "E") = DateSerial(Year(t.Cells(Target.Row, "o")), Month(t.Cells(Target.Row, "o")) + (i - 1), Day(t.Cells(Target.Row, "o")))
s.Cells(son, "F") = t.Cells(Target.Row, "M") / t.Cells(Target.Row, "N")
Else
s.Cells(son, "F") = t.Cells(Target.Row, "M")
End If
Next
End Sub

 

[seyfiseval]

Allah razı olsun mükemmel oldu işi.