ximolc

A ver si este código hace lo que quieres: Public Sub Busca_Numero() 'Definicion de variables Dim x As Integer Dim buscar As String buscar = Worksheets(1).Cells(5, 1) For x = 7 To 16 Step 1 If Worksheets(1).Cells(x, 29) = buscar Then...

Esa fórmula simplemente dice que el valor de la celda será igual al valor de la celda G25 de la hoja "calculoA".