Sub sade()
i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1
i.Cells(son, 2) = n.Cells(mv, 2)
i.Cells(son, 3) = n.Cells(mv, 3)
i.Cells(son, 4) = n.Cells(mv, 4)
i.Cells(son, 5) = n.Cells(mv, 5)
i.Range(i.Cells(son, 7), i.Cells(son, sgun + 6)) = 1
' i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son))
End Sub
yukarıdaki düzeltmeyi yapın.
afatsum75, 27-05-2009 tarihinden beri AccessTr.neT üyesidir.
