Para Transferi Formülü

[tcserkanakin]

Merhaba, Excelde "A" hesabından "B" hesabına para transferi yapmak istiyorum ve aynı zamanda da bu transfer gerçekleşince gönderen hesaptan bakiye düşecek giden hesaba tutarı ekleyecek. Banka hesap sistemi veya kasa transferi sistemi gibi.

Bununla ilgili formül kullanımı nasıl olmalıdır

Yardımlarınızı bekliyorum

Teşekkürler

 

[Asri]

Linkteki dosyayı deneyiniz.


http://s2.dosya.tc/server3/wgbarn/Havale_Deneme.zip.html

Sub havale()
  Sheets("Hesap A").Select
  Range("W1").Formula = "=Sum(C2:C3000)"
  hesapabakiye = Cells(1, "W").Value
  
  Sheets("Hesap B").Select
  Range("W1").Formula = "=Sum(C2:C3000)"
  hesapbbakiye = Cells(1, "W").Value
    
  Sheets("Havale").Select
  tarih = CDate(Cells(2, 1).Value)
  gonderen = Cells(2, 2).Value
  alici = Cells(2, 3).Value
  tutar = Cells(2, 4).Value
  
  bugun = Date
  If tarih < bugun Then
     MsgBox ("Geçmiş tarihli havale yapılamaz.")
     Exit Sub
  End If
  
  If tarih > bugun Then
     MsgBox ("İleri tarihli havale yapılamaz.")
     Exit Sub
  End If
  
  If gonderen = alici Then
     MsgBox ("Gönderen ve alıcı aynı hesap olamaz.")
     Exit Sub
  End If

  If gonderen = "Hesap A" And tutar > hesapabakiye Then
     MsgBox ("Hesap A nın bakiyesi yetersiz.")
     Exit Sub
  End If

  If gonderen = "Hesap B" And tutar > hesapbbakiye Then
     MsgBox ("Hesap B nin bakiyesi yetersiz.")
     Exit Sub
  End If
  
  Sheets(gonderen).Select
  sonsatir = Cells(Rows.Count, "A").End(3).Row + 1
  Cells(sonsatir, 1).Value = tarih
  Cells(sonsatir, 2).Value = alici & "  giden havale"
  Cells(sonsatir, 3).Value = tutar * -1
  
  Sheets(alici).Select
  sonsatir = Cells(Rows.Count, "A").End(3).Row + 1
  Cells(sonsatir, 1).Value = tarih
  Cells(sonsatir, 2).Value = gonderen & " gelen havale"
  Cells(sonsatir, 3).Value = tutar
  
  Sheets("Havale").Select
  MsgBox ("Havale işlemi tamamlandı")
  
End Sub

 

[tcserkanakin]

Emeğiniz için teşekkürler, tam olarak bu değil

Mesela 4 adet hücre var

1. hücre gönderen hesap örn. Halkbank 2. hücre karşı hesap hesap Yapı Kredi 3. hücre tür (gelir gider transfer) bu hücre transfer seçildiğinde karşı hesabın bakiyesi artacak diğer hesaptan bakiye düşecek 4. hücrede tutar bölümü olacak gelir gider veya transfer tutarı yazılacak

 

[Asri]

Emeğiniz için teşekkürler, tam olarak bu değil

Mesela 4 adet hücre var

1. hücre gönderen hesap örn. Halkbank 2. hücre karşı hesap hesap Yapı Kredi 3. hücre tür (gelir gider transfer) bu hücre transfer seçildiğinde karşı hesabın bakiyesi artacak diğer hesaptan bakiye düşecek 4. hücrede tutar bölümü olacak gelir gider veya transfer tutarı yazılacak

Madem böyle bir detay var ilk mesajda neden vermezsiniz ki?
Bu şekilde ilgilenen bir arkadaş çıkacaktır.

İyi çalışmalar.

 

[tcserkanakin]

evet biraz detaylı olmadı ilk örnek, emeğiniz için teşekkürler, bu başka bir çalışmamda yardımcı olabilir