Sub BuscarEnRango() Dim rngTabla As Range Dim rngCelda As Range Dim intNumero As Integer Dim blnEncontrado As Boolean Worksheets(1).Activate Set rngTabla = Range("M6:N11") intNumero = InputBox("Introduzca el número a buscar") For Each rngCelda In rngTabla.Cells If rngCelda.Value ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online