Estoy haciendo una macro para preguntar una lista de códigos de dientes de los pacientes con el fin de imprimirla en una celda junto a un texto, de igual forma una vez se imprime en la celda de la derecha imprime el precio según la cantidad de dientes dimite el usuario, lo cual funciona bien. Sin embargo, arroja el error:
Error de compilación: El tipo no coincide
Ya que no se si se esta imprimiendo en la celda correctamente el texto junto a la variable definida como un vector
Sub DIENTES()
Dim numd As Integer
Dim tooth(1 To 50) As String
Dim ttooth As String
Set r = ActiveCell
numd = InputBox("¿DIGITE CUANTOS DIENTES A REMPLAZAR?")
For i = 1 To numd
tooth(i) = InputBox("Digite el diente " & i)
Next i
ttooth = InputBox("BIODENT (B), DURATONE (D)")
Select Case ttooth
Case "B"
Dim bi As Variant
bi = 20000
r.Value = "-DIENTES A REEMPLAZAR / BIODENT (c/u $20.000) en: " & tooth
r.Offset(0, 1).Value = bi * numd
Case "D"
Dim du As Variant
du = 35000
r.value = "-DIENTES A REEMPLAZAR / DURATONE (c/u $35.000) en: " & tooth
r.Offset(0, 1).Value = du * numd
Case Els
MsgBox ("ERROR DE DIGITACION")
End Select
End Sub