veriyi sayfadan almak

[serdarinho43]

ARKADAŞLAR MODÜLE 'DE YAZAN AŞAĞIDAKİ KODDA TÜM RAKAMLARI SAYFADAN ALMASINI İSTİYOTUM mesela 7801'i "vergi sayfası A2 hücresinden 0.15'İ C2 hücresinden alsın bunu yapabilir miyim??

Function VERGİ2008(KümlatifMatrah As Double, VergiMatrahi As Double)
If KümlatifMatrah + VergiMatrahi <= 7800# Then VERGİ2008 = 0.15 * VergiMatrahi: Exit Function
If KümlatifMatrah + VergiMatrahi >= 7801# And KümlatifMatrah + VergiMatrahi <= 19800# Then
ilkoran = 0.15: ikincioran = 0.2: sontutar = 7800#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 19801# And KümlatifMatrah + VergiMatrahi <= 44700# Then
ilkoran = 0.2: ikincioran = 0.27: sontutar = 19800#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 44701# Then
ilkoran = 0.27: ikincioran = 0.35: sontutar = 44700#: GoTo hesapla
End If
hesapla:
If KümlatifMatrah <= sontutar Then
VERGİ2008 = ilkoran * ((sontutar - KümlatifMatrah)) + ikincioran * (((KümlatifMatrah + VergiMatrahi) - sontutar))
Else
VERGİ2008 = ikincioran * VergiMatrahi
End If
End Function

 

[Orion1]

Aşağıdaki satırı değiştirip deneyebilirsiniz.
7801 yazan yerlere

sheets("vergi sayfası").range("A2").value

0.15 yazan yerlerede

sheets("vergi sayfası").range("C2").value