Page

<p>Sub Primer3()<br /> Dim n As Long<br /> LastRow_004 = wb_004.Cells(wb_004.Rows.Count, 1).End(xlUp).Row<br /> Set wb_004 = Workbooks.Open(PathFile + &quot;ZLE004_2024.xlsx&quot;).Worksheets(1)<br /> Set wb_otch = ThisWorkbook.Worksheets(1)</p> <p>For i = 2 To LastRow_004 Step 1<br /> n = WorksheetFunction.Match(wb_otch.Cstr (i).Value, Range(&quot;L&quot;+Cstr(i):&quot;L300000&quot;), 0)<br /> &nbsp; &nbsp; With Range(&quot;B1400:B1410&quot;)<br /> &nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;&Ccedil;&iacute;&agrave;&divide;&aring;&iacute;&egrave;&aring; = &quot; &amp; .Cells(n) &amp; vbNewLine &amp; _<br /> &nbsp; &nbsp; &nbsp; &nbsp; &quot;&Agrave;&auml;&eth;&aring;&ntilde; = &quot; &amp; .Cells(n).Address &amp; vbNewLine &amp; _<br /> &nbsp; &nbsp; &nbsp; &nbsp; &quot;&Ntilde;&ograve;&eth;&icirc;&ecirc;&agrave; = &quot; &amp; .Cells(n).Row &amp; vbNewLine &amp; _<br /> &nbsp; &nbsp; &nbsp; &nbsp; &quot;&Ntilde;&ograve;&icirc;&euml;&aacute;&aring;&ouml; = &quot; &amp; .Cells(n).Column<br /> &nbsp; &nbsp; End With<br /> &nbsp; &nbsp; Next<br /> End Sub</p>