Índice

Solución 2.5 Utilizar el tipo "PezTropical"

Sub NuevoPezTropical()  
  Dim NuevoPez As PezTropical 
  On Error GoTo Salida_error 
  NuevoPez.Nombre = InputBox("Introducir el nombre") 
  WorkSheets("Hoja1").Range("I2").Value ...