Juan Chero

Sub prueba() Dim values(1 To 21) As Double Dim filas(1 To 2) As Integer Dim j As Integer values(1) = 1.02 values(2) = 2.01 values(3) = 2.03 values(4) = 2.05 values(5) = 2.07 values(6) = 3.01 values(7) = 4.02 values(8) = 4.03 values(9) = 6.01...

Sub Acceder1() Set h1 = Sheets(1) Set h2 = Sheets(2) Dim P1 As Object Dim P2 As Object Dim f1, f2, x, Finf1, Finf2 As Integer For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set P1 = h1.Range("C:C").Find(h2.Cells(i, 1).Value) Set P2 =...