argus316

calvuch respondió: Prueba esto: Copia esta función en algún modulo de tu libro: Public Function sistema(dato As String) Dim sh As Integer Dim sl As Integer dato = UCase(dato) sh = InStr(1, dato, "SH", vbTextCompare) sl = InStr(1, dato, "SL", vbTextCompare) If sh > 0...

Eduard Caballero respondió: Como veo que maneas código puedo recomendarte: En lugar de un for podrías usar, un hacer mientras la celda este vacía Do While Not IsEmpty(ActiveCell) Si no logras hacerlo sube un ejemplo de lo que quieres para tratar de ayudarte.

Uriel Baray respondió: Hay un montón de formas, la que sigue te puede servir esta probada. Sub ENCUENTRA() Dim VALOR As String VALOR = Sheets("HOJA1").Range("D11").Value With Sheets("TABLA GENERAL").Range("a:a") .Select .Find(VALOR).Activate End With ActiveCell.Select End...