PRIMA PROVA:
Dim logvalue as double
Dim N as double 'base del logaritmo
Dim X as double 'argomento del logaritmo
logvalue = log(X, N)

In questo primo caso l'errore è "Numero errato di argomento o assegnazione non valida". Stesso errore anche se sostituisco le lettere con i numeri e anche se converto le lettere es. Val(X), etc..

Se poi utilizzo la formula 
logvalue = application.worksheetfunction.log(X, N)
l'errore è "impossibile trovare la proprietà log per la classe application..."

Ho trovato sul web un'altra sintassi per il calcolo del logaritmo, che è questa:
(supponiamo che N = 3 e X = 10000)
logvalue = log(10000) / log(3#)
e funziona, calcola il logaritmo in base 3 di 10000.

Bene direte voi...sì, ma quando vado a sostituire i numeri con le lettere, quindi
logvalue = log(X) / log(N#)
l'errore arriva ed è "Il carattere di dichiarazione tipo non corrisponde al tipo di dati dichiarato".
Se allora elimino il #, l'errore diventa "chiamata di routine o argomento non validi"

Chiaramente in tutti i casi ho provato Val(X), etc., ma senza alcun risultato utile.





 

Sub a()
Dim logvalue As Double
Dim N As Double 'base del logaritmo
Dim X As Double 'argomento del logaritmo
N = 2
X = 5
logvalue = WorksheetFunction.Log(X, N)

End Sub

Sub PDA()
Dim A As Double
Dim B As Double
Dim C As Double
Dim yrBegBall As Single
Dim yrEndBall As Single
Dim ratatt As Single
Dim intcomp As Single
Dim intrepay As Single
Dim outrow As Integer
Dim rownum As Integer
Dim outsheet As Integer

Dim N As Double
Dim X As Double
Dim Base As Double
Dim Valore As Double
Dim DurataAmm As Double

outrow = 5
Rows(outrow + 3 & ":" & outrow + 1000).Select
Selection.Clear
A = Range("B1").Value
B = Range("B2").Value
C = Range("B3").Value
If C > 0.15 Then
MsgBox "Tasso interesse oltre soglia 15%. Prego, re-inserire il tasso"
End If

Base = (1 + C)
N = Base
Valore = (B / (B - A * C))
X = Valore
DurataAmm = WorksheetFunction.Log(X, N)

yrBegBall = A
Cells(outrow + rownum + 3, 7).NumberFormat = "€ 0,0.00"
Cells(outrow + rownum + 3, 7).Value = A
For rownum = 1 To B
intcomp = yrBegBall * C
intrepay = ratatt - intcomp
yrEndBall = yrBegBall - intrepay
Cells(outrow + rownum + 3, 3).HorizontalAlignment = xlCenter
Cells(outrow + rownum + 3, 3).Value = rownum
Cells(outrow + rownum + 3, 4).Value = ratatt
Cells(outrow + rownum + 3, 5).Value = intcomp
Cells(outrow + rownum + 3, 6).Value = intrepay
Cells(outrow + rownum + 3, 7).Value = yrEndBall
yrBegBall = yrEndBall
Next rownum
Range(Cells(outrow + 4, 4), Cells(outrow + DurataAmm + 3, 8)).Select
Selection.NumberFormat = "€ 0,0.00"
Selection.VerticalAlignment = xlCenter
Selection.Font.Bold = False
Selection.RowHeight = 20
End Sub