Calamartin

toldeman respondió: Prueba este código, copia hasta la fila 500, pero puedes modifícalo en el código: Sub buscar_fila() Dim c As variant Dim columnaultima As Long columnaultima = Cells(4, Columns.Count).End(xlToLeft).Column c = InputBox(valor) For i = 1 To columnaultima...