Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim x As Long
Dim Y As Long
Dim rngForm As Range
'
' Asigno el rango donde deseo aparezca el formulario
Set rngForm = Range("B8:E8")
'
' Verifico si el cursor se encuentra en alguna celda del rango
If Union(Target, rngForm).Address = rngForm.Address Then
'
'Calculo la aparicion Izquierda del form
x = UserForm1.Width - Range("B8").Left
'
'Calculo la aparicion superior del form
Y = Range("B8").Top + UserForm1.Height + 13
'
'llamo al formulario
UserForm1.Promedio x, Y
'
End If
'
Set rngForm = Range("B3:E7")
'
If Union(Target, rngForm).Address = rngForm.Address Then
'
'llamo al formulario
Call calculadora.VerCalcu(ActiveCell.Address)
'
End If
'Código añadido para el TERCER FORMULARIO NOTA
' Borré esta 1ª línea:
' Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim notaform As String
notaform = ActiveCell.Address
'Si se elige una celda entre el rango
If Not Intersect(Target, Range("h3:h7")) Is Nothing Then
'Llama los formularios
NOTA.Show
End If
End Sub