Fon Alış ve Satış Adedi Başka Sütuna Aktarma

[assenucler]

Değerli Dostlar;


İyi bayramlar.

Bankadan gelen ekstredeki "C" sütunda yer alan adetleri "D" sütunundaki açıklamaya göre, ekteki dosyanın J (Alış) ve K (Satış) sütunlarına kaydı, formül ya da makro ile nasıl yapılabilir?

Yardımınız için teşekkürler.

Sevgi ve saygılar.

 

[Ömer BARAN]

Merhaba.

►FORMÜL:
-- J2 hücresine;

=[COLOR="red"]EĞER[/COLOR]($G2>0;0+[COLOR="red"]PARÇAAL[/COLOR]($C2;14;[COLOR="red"]BUL[/COLOR]("Pay";$C2;1)-15);"")

-- K2 hücresine;

=[COLOR="red"]EĞER[/COLOR]($F2<0;[COLOR="red"]EĞER[/COLOR]([COLOR="red"]EHATALIYSA[/COLOR]([COLOR="red"]BUL[/COLOR]("Pay";$C2;1));"";0+[COLOR="red"]PARÇAAL[/COLOR]($C2;14;[COLOR="Red"]BUL[/COLOR]("Pay";$C2;1)-15));"")

►MAKRO:
.

[B]Sub FON_ADET()[/B]
Set wf = Application.WorksheetFunction
son = Cells(Rows.Count, 1).End(xlUp).Row
Range("F2:H" & son).NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
Range("J2:K" & son + 1).NumberFormat = "#,##0 "
For sat = 2 To son
    If Len(Replace(Cells(sat, "C"), " Pay", "")) = Len(Cells(sat, "C")) Then GoTo 10
    If Cells(sat, "G") > 0 Then
        Cells(sat, "J") = 0 + Mid(Cells(sat, "C"), 14, wf.Search("Pay", Cells(sat, "C"), 1) - 15)
    ElseIf Cells(sat, "F") < 0 Then
        Cells(sat, "K") = 0 + Mid(Cells(sat, "C"), 14, wf.Search("Pay", Cells(sat, "C"), 1) - 15)
    End If
10: Next
Cells(son + 1, "J") = wf.Sum(Range("J2:J" & son))
Cells(son + 1, "K") = wf.Sum(Range("K2:K" & son))
[B]End Sub[/B]

 

[assenucler]

Değerli Üstadım,

Öncelikle Kurban Bayramınızı kutlar; sevdiklerinizle birlikte sağlık, huzur ve mutluluk dolu nice bayramlar dilerim.

İlgi ve yardımınız için en içten teşekkürlerimi, sevgi ve saygılarımı sunarım.

 

[Ömer BARAN]

Estağfurullah, iyi bayramlar dilerim.
.

 

[assenucler]

Merhaba.

►FORMÜL:
-- J2 hücresine;

=[COLOR="red"]EĞER[/COLOR]($G2>0;0+[COLOR="red"]PARÇAAL[/COLOR]($C2;14;[COLOR="red"]BUL[/COLOR]("Pay";$C2;1)-15);"")

-- K2 hücresine;

=[COLOR="red"]EĞER[/COLOR]($F2<0;[COLOR="red"]EĞER[/COLOR]([COLOR="red"]EHATALIYSA[/COLOR]([COLOR="red"]BUL[/COLOR]("Pay";$C2;1));"";0+[COLOR="red"]PARÇAAL[/COLOR]($C2;14;[COLOR="Red"]BUL[/COLOR]("Pay";$C2;1)-15));"")

►MAKRO:
.

[B]Sub FON_ADET()[/B]
For sat = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Len(Replace(Cells(sat, "C"), " Pay", "")) = Len(Cells(sat, "C")) Then GoTo 10
    If Cells(sat, "G") > 0 Then
        Cells(sat, "J") = 0 + Mid(Cells(sat, "C"), 14, WorksheetFunction.Search("Pay", Cells(sat, "C"), 1) - 15)
    ElseIf Cells(sat, "F") < 0 Then
        Cells(sat, "K") = 0 + Mid(Cells(sat, "C"), 14, WorksheetFunction.Search("Pay", Cells(sat, "C"), 1) - 15)
    End If
10: Next
[B]End Sub[/B]

Yukarıdaki; koda Fon Alış ve Fon Satış en son dolu satırının bir altına "Genel Toplamı" aldırmak için nasıl ekleme yapılması gerekiyor?

 

[Ömer BARAN]

Tekrar merhaba.

Kod'daki Next satırı ile End Sub satırının arasına aşağıdaki satırları ekleyin.
.

Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, "J") = WorksheetFunction.Sum(Range("J2:J" & Cells(Rows.Count, 1).End(xlUp).Row))
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, "K") = WorksheetFunction.Sum(Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row))

 

[assenucler]

Teşekkürler ve iyi geceler üstadım.

 

[Ömer BARAN]

Kolay gelsin, sağlıcakla.
.

 

[assenucler]

Bir ricam olabilir mi?

Günaydınlar;


Rica etsem, mevcut kodlarda parasal değerler satırı ile "TOPLAM" hücresi binler basamak ayrımı için kod eklenebilir mi?

 

[Ömer BARAN]

İlk kod cevabımda değişiklik yaptım.
Sayfayı yenileyerek ilk cevabımdaki kod'u kontrol edin.
.

 

[assenucler]

Çok teşekkür ederim, sağ olun var olun.