MASRAF BEYANI

[serkans]

Arkadaşlar, şimdiye kadardiğer arkadaşların sorularına da vermiş olduğunuz cevaplardan çok faydalandım, teşekkür ederim...
Ekteki masraf beyanını kolaylaştırmak adına bana yardımcı olabilirmisiniz.
Sayfa 1 demasraf beyanı ve hesap kodları bulunmaktadır. 2. sayfayada muhasebe programından alıp yapıştırdığım muhasebe fişi var. Birinci sayfadaki hesap kodlarının karşısına ikinci sayfadaki kodların tutarlarını getirtiyorum. Ancak 2.sayfada aynı kodun altındaki 191 01 201 koddaki tutarı o kodun yanındaki kdv sütununa yazdıramıyorum. İpucu ; Evrak Kodları aynıdır...
Þimdiden yardımlarınız için teşekkür ederim.

 

[veyselemre]

makroyla bir çözüm

 

[serkans]

Nasıl yaptığını öğrenebilirmiyim, detaylarını...
mesela, daha sonra o muhasebe fişini silip yenisini kopyalayacağım...
o zaman hata verirmi,
yaptığın şeyi açıklamanı rica edebilirmiyim,
teşekkürler...

 

[serkans]

Normal Fonksiyonlarla yapma şansımız yok mu?

 

[serkans]

veysel emre
dostum yardımcı olabilecekmisin

 

[MURYIL34]

Aktar denildiği zaman aktarmıyor galiba

 

[serkans]

veyselemre,
dostum yardımcı olabilecekmisin

 

[veyselemre]

dosyadaki hesaplama makrosu aşağıdaki gibi


[vb:1:c19044ed3d]Sub toplamlar()
Set s1 = [Sayfa1]
Set s2 = [Sayfa2]

s1.Range("E4:F67").ClearContents

On Error Resume Next
For x = 2 To s2.[a65536].End(3).Row Step 2
c = s1.[b:b].Find(s2.Cells(x, 1)).Row

If c > 0 Then
s1.Cells(c, 5) = s1.Cells(c, 5) + s2.Cells(x, 2)
s1.Cells(c, 6) = s1.Cells(c, 6) + s2.Cells(x + 1, 2)
End If

Next
End Sub
[/vb:1:c19044ed3d]

sayfa2 deki muhasebe fişi aynı formatta olursa sorunsuz çalışır yani,
sayfa2 nin a sütununda hesap kodu ve onun hemen altında 191 kdv kodu olmak kaydıyla fiş detayı sayfa2 nin sonuna kadar da olsa çalışır

 

[serkans]

çok teşekkür ederim dostum...

 

[serkans]

tekrar merhaba

dostum, rica etsem yeniden uyarlarmısın, muhasebe fişi bu formatta çıkıyor ve değiştirmeden her seferinde böyle yaparım...

ayrıca, yapmak istediğimiz şeyi normal fonksiyonlarla formülleyemezmiyiz?

teşekkür ederim...

 

[serkans]

veyselemre, dostum masraf beyanı na tekrar bakıp işlemi yapabilirmisin...
ayrıca bunu visual basic yerine normal fonksiyornlarla formülleyip yapma şansımız var mı?
tekrar teşekkür ederim...

 

[veyselemre]

yeniden düzenledim, fonksiyon kısmını bilemem çok zor görünüyor

[vb:1:0394c1c586]Sub toplamlar()
Set s1 = [Sayfa1]
Set s2 = [Sayfa2]

s1.Range("E4:F67").ClearContents

On Error Resume Next
For x = 3 To s2.[b65536].End(3).Row - 1 Step 2
c = s1.[b:b].Find(s2.Cells(x, 1)).Row

If c > 0 Then
s1.Cells(c, 5) = s1.Cells(c, 5) + s2.Cells(x, 4)
s1.Cells(c, 6) = s1.Cells(c, 6) + s2.Cells(x + 1, 4)
End If

Next
End Sub[/vb:1:0394c1c586]