Hücredeki Değeri Referans Olarak Almak

[htsumer]

Şöyle bir fonksiyon kodum var.

Function STOPAJ(kumulatif_matrah As Double, matrah As Double) As Double

Dim Fark As Double
Const bir_dilim As Long = 12600
Const iki_dilim As Long = 27000
Const uc_dilim As Long = 94000

'*****ORANLAR*********
DEĞER1 = 0.15
DEĞER2 = 0.2
DEĞER3 = 0.27
DEĞER4 = 0.35

'************* I. DILIM ****************
If kumulatif_matrah <= bir_dilim Then
STOPAJ = Round(matrah * DEĞER1, 2)

'************* II. DILIM ***************
ElseIf kumulatif_matrah > bir_dilim And kumulatif_matrah <= iki_dilim Then
Fark = kumulatif_matrah - bir_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER1
STOPAJ = Round(STOPAJ + Fark * DEĞER2, 2)
Else
STOPAJ = Round(matrah * DEĞER2, 2)
End If

'************* III. DILIM ***************
ElseIf kumulatif_matrah > iki_dilim And kumulatif_matrah <= uc_dilim Then
Fark = kumulatif_matrah - iki_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER2
STOPAJ = Round(STOPAJ + Fark * DEĞER3, 2)
Else
STOPAJ = Round(matrah * DEĞER3)
End If

'************* IV. DILIM ****************
ElseIf kumulatif_matrah > uc_dilim Then
Fark = kumulatif_matrah - uc_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER3
STOPAJ = Round(STOPAJ + Fark * DEĞER4, 2)
Else
STOPAJ = Round(matrah * DEĞER4, 2)
End If
End If
End Function

Bu kodun en başında

Dim Fark As Double
Const bir_dilim As Long = 12600
Const iki_dilim As Long = 27000
Const uc_dilim As Long = 94000

12600 sayısını Parametreler sayfasını B11 hücresinden alacak kod ilavesi istiyorum.
[B11] yapıyorum ama bu sefer aktif olduğu sayfanın B11 alıyor

Const bir_dilim As Long =Sheets("Parametreler").Range("B11") de hata veriyor

 

[htsumer]

güncel.....

 

[hamitcan]

Const, benim bildiğim sabit değerleri tanımlamak için kullanılıyor. Aşağıdaki şekilde kullanmayı deneyin.

Dim bir_dilim As Long
bir_dilim = Sheets("Parametreler").[b11]
MsgBox bir_dilim

 

[Erdem Akdemir]

Merhaba,

Const metodunu kullanırken değişken atayamazsınız diye biliyorum.
Dim metodunu kullanabilirsiniz.

 

[htsumer]

Teşekkürler Hamit bey o kodu nereye ekliyeyim mesajımdaki silip yerinemi?

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

 

[htsumer]

Teşekkür ederim bu işimi gördü..