Ba bs formu muhasebeciler

[ebubekir63]

arkadaşlar merhaba
yapmaya çalıştım ama bulamadım yardımcı olabilirseniz seviniim
sorum tüm muhasebeceiler ilgilendiriyor
gönderdiğim dosyada firmalar ve karşılarında tutarlar olan 2 sütün var
yaptırmamız gereken işlem bu firmaların toplam tutarlarını ve sayılarını ayrı bir yere yazdırmak 5 000 tl üstü olanları

yani
arcelik 6 000 3
turkcell 32 000 2
beko 6 000 1


bosch yazmıyacak
yardımcı olacaklara şimdiden teşekkürler

 

[halit3]

bu kodu denermisiniz.

Sub aktar()
Worksheets("Sayfa2").Range("A1:B65536").ClearContents
sat = Worksheets("Sayfa2").[b65536].End(3).Row
For r = 1 To Worksheets("Sayfa1").[a65536].End(3).Row
aranan1 = Sheets("Sayfa1").Cells(r, 1).Value
say2 = 0
If Sheets("Sayfa1").Cells(r, 1).Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("A1:A" & r), aranan1) = 1 Then
For i = 1 To Worksheets("Sayfa1").[a65536].End(3).Row
aranan2 = Sheets("Sayfa1").Cells(i, 1).Value
If aranan2 = aranan1 Then
say2 = say2 + CDbl(Sheets("Sayfa1").Cells(i, 2).Value)
End If
Next i
Sheets("Sayfa2").Cells(sat, 1).Value = Sheets("Sayfa1").Cells(r, 1).Value
Sheets("Sayfa2").Cells(sat, 2).Value = say2
sat = sat + 1
End If
End If
Next r
MsgBox " Düzenleme Tamanlanmıştır..."
End Sub

 

[ebubekir63]

pardon bunu nereye ve nasıl yazacağım access bilmiyorum
excel formül olarak girdim .range de hata veriyor

size zahmet

 

[halit3]

pardon bunu nereye ve nasıl yazacağım access bilmiyorum
excel formül olarak girdim .range de hata veriyor

size zahmet

ekli dosyayı kontrol ediniz.

 

[Ali]

Ömer Bey'in çalışmasınıda inceleyebilirsiniz.

Ba ve Bs Bildirim Formlarıyla İlgili Örnek Uygulamalar

.