#function

Function maxsayfa(sayfano As Byte, sütun As Integer, satır As Integer) As Currency Dim hedef As String hedef = Sheets(sayfano).Cells(satır, sütun) maxsayfa = hedef End Function Bu şekilde fonksiyon ekledim sonucu veriyor fakat sayılar değiştimi sonucu otomatik vermiyor formül çubuguna...