Function

[kalibre101]

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 tıkladığımda çaılışıyor
otomatik çalışması için ne yapabilirim?
koddamı sıkıntıvar yardımcı olabilirmisiniz?

 

[ÖmerBey]

Merhaba,
Aşağıdaki gibi deneyiniz...

Function maxsayfa(sayfano As Byte, sütun As Integer, satır As Integer) As Currency
Application.Volatile
Dim hedef As String
hedef = Sheets(sayfano).Cells(satır, sütun)
maxsayfa = hedef
End Function

 

[kalibre101]

Merhaba,
Aşağıdaki gibi deneyiniz...

Function maxsayfa(sayfano As Byte, sütun As Integer, satır As Integer) As Currency
Application.Volatile
Dim hedef As String
hedef = Sheets(sayfano).Cells(satır, sütun)
maxsayfa = hedef
End Function

Teşekkür ederim çalıştı

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...