Eğer ve formül

[1903emre34@gmail.com]

Merhaba,

Her ayın toplamları tutar bölümünde (siyah) gösterilmiştir.

her ay sondaki tutarın (pozitif) toplamı son gündeki birim (pozitif) çıkartılıp pozitif olursa 656 hesaba örneğin ocak ayı,

Her ay sondaki tutarın pozitif son gündeki birim (negatif) çıkartılıp sonuç artı olursa 656 hesaba örneğin mart ayı,

Her ay sondaki tutarın pozitif ama metin kısmında muhasebe kaydı veya kur farkı var ise onu almayıp (son günüde ise olsa bile) bir önceki tutarı alıp birim (negatif) çıkartılıp 656 hesaba örneğin mayıs ayı

http://s6.dosya.tc/server11/f6vp5w/Calisma.zip.html

 

[Asri]

Makro ile çözüm, kontrol ediniz.

Sub Aylik_hesaplar()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = 6 To sonsatir + 1
      kod = Cells(i, "A").Value
      If kod = "" Then
         toplam = Cells(i, "J").Value
         For j = i - 1 To 1 Step -1
            metin = Cells(j, "E").Value
            If metin <> "KUR FARKI" And metin <> "MUHASEBE KAYDI" Then
               tarih = CDate(Cells(j, "C").Value)
               ay = Month(tarih)
               birim = Cells(j, "G").Value
               Exit For
            End If
         Next j
         fark = toplam - birim
         If fark >= 0 Then
            Cells(ay + 5, "N").Value = fark
         End If
         
         If fark < 0 Then
            Cells(ay + 5, "M").Value = fark
         End If
      End If

   Next i
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub

 

[Ömer BARAN]

Merhaba.

Formül ile çözüm isterseniz aşağıdaki gibi istediğiniz sonuca ulaşılması lazım. Formülleri aşağı doğru kopyalayın,

-- M6 hücresine;

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]MAK[/COLOR]($C:$C)<0+("1."&KIRP($L6)&".2017");"";[COLOR="red"]EĞER[/COLOR]([COLOR="red"]VE[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)<0;[COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)-[COLOR="red"]KAYDIR[/COLOR]($G$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-([COLOR="red"]ESAYIYSA[/COLOR]([COLOR="red"]ARA[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($E$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-1;0);{"KUR FARKI";"MUHASEBE KAYDI"};{1;1;0}))+1);0)<0);[COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)-[COLOR="red"]KAYDIR[/COLOR]($G$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-([COLOR="red"]ESAYIYSA[/COLOR]([COLOR="red"]ARA[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($E$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-1;0);{"KUR FARKI";"MUHASEBE KAYDI"};{1;1;0}))+1);0);""))

-- N6 hücresine;

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]MAK[/COLOR]($C:$C)<0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");"";[COLOR="red"]EĞER[/COLOR]([COLOR="red"]VE[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)>0;[COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)-[COLOR="red"]KAYDIR[/COLOR]($G$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-([COLOR="red"]ESAYIYSA[/COLOR]([COLOR="red"]ARA[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($E$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-1;0);{"KUR FARKI";"MUHASEBE KAYDI"};{1;1;0}))+1);0)>0);[COLOR="red"]KAYDIR[/COLOR]($J$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1);0)-[COLOR="red"]KAYDIR[/COLOR]($G$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-([COLOR="red"]ESAYIYSA[/COLOR]([COLOR="red"]ARA[/COLOR]([COLOR="red"]KAYDIR[/COLOR]($E$1;[COLOR="red"]KAÇINCI[/COLOR]([COLOR="red"]SERİAY[/COLOR](0+("1."&[COLOR="Red"]KIRP[/COLOR]($L6)&".2017");0);$C:$C;1)-1;0);{"KUR FARKI";"MUHASEBE KAYDI"};{1;1;0}))+1);0);""))

 

[1903emre34@gmail.com]

Teşekkürler, makro ve formül yoluyla çözüm önerileri sorunsuz çalışıyor.

 

[Ömer BARAN]

Teşekkürler, makro ve formül yoluyla çözüm önerileri sorunsuz çalışıyor.

Kolay gelsin.
.