Hocam nedense derdimi anlatamadım bir türlü.
Yüklemiş olduğum dosyalardan "Kopyası Cari Bakiye Robotu yazan dosyayı Ofiice 2007 de açıp geliştiriciden visual basic açınca rapor sayfası kısmında alttaki formül var.
Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet, x As Integer
[a2:f65000] = Clear
Set s1 = Sheets("BAKİYE ")
Set s2 = Sheets("VERİLEN")
s1.Range("a5:z65000").Sort Key1:=s1.Range("B5")
s2.Range("a5:q65000").Sort Key1:=s2.Range("a5")
A = Sheets("BAKİYE ").Cells(65000, 1).End(xlUp).Row
Range("a2:a" & A - 3).Value = Sheets("BAKİYE ").Range("b5:b" & A).Value
Range("B2:B" & A - 3).Value = Sheets("BAKİYE ").Range("H5:H" & A).Value
Range("C2:C" & A - 3).Value = Sheets("BAKİYE ").Range("J5:J" & A).Value
Range("D2" & A - 3).Value = Sheets("BAKİYE ").Range("L5:L" & A).Value
Range("G2:G" & A - 3).Value = Sheets("BAKİYE ").Range("C5:C" & A).Value
Range("H2:H" & A - 3).Value = Sheets("BAKİYE ").Range("G5:G" & A).Value
Range("I2:I" & A - 3).Value = Sheets("BAKİYE ").Range("F5:F" & A).Value
i = Cells(65000, 5).End(xlUp).Row
For C = 2 To Cells(65000, 1).End(xlUp).Row
i = Cells(65000, 5).End(xlUp).Row
Set n = s2.Range("a4:a65000").Find(What:=Cells(C, 1).Text, LookIn:=xlValues)
If Not n Is Nothing Then
ff = n.Row
f:
If CDate(s2.Cells(ff, 8)) < Date Then
Cells(i + 1, 5) = Cells(i + 1, 5) + s2.Cells(ff, 16)
If Cells(i + 1, 6) <> "" Then
If Cells(i + 1, 6) > Date - CDate(s2.Cells(ff, 8)) Then _
Cells(i + 1, 6) = Date - CDate(s2.Cells(ff, 8))
Else
Cells(i + 1, 6) = Date - CDate(s2.Cells(ff, 8))
End If: End If
If s2.Cells(ff, 1) = s2.Cells(ff + 1, 1) Then
ff = ff + 1
GoTo f:
End If
Cells(i + 1, 5) = Cells(i + 1, 5) - Cells(i + 1, 3)
If Cells(i + 1, 5) <= 0 Then Cells(i + 1, 6) = ""
End If
Next
End Sub
Ben buradaki formülde bir düzeltme istiyorum sadece ama bir türlü derdimi ifade edemedim sanırım.
Mevcut formül son faturadan bu yana olan günü hesaplıyor. Bana kapanmayan son faturadan bu yana geçen gün lazım.
İlgilienen herkese teşekkür ederim.
Son Düzenleme: 04/12/2012, 10:51, Düzenleyen: nemiroff.