Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
sub testFind() Dim GSRNsp As String Dim PlantnameSP As String Dim Skownership As Integer Dim MeasuringRfact As Integer Dim rangeFind As Range With Workbooks(WorkbookName).Sheets("DividedPD's") x = .Cells(Rows.Count, "J").End(xlUp).Row For i = 2 To x GSRNsp = .Range("J" & i).Value 'this is a unique id nr like(703213102 stored as text) PlantnameSP = .Range("K" & i).Value Skownership = .Range("L" & i).Value MeasuringRfact = .Range("M" & i).Value Set rangeFind = Workbooks(targetSheetName).Sheets(tabName).Range("3:3").Find(What:=GSRNsp, After:=Range("A3"), SearchOrder:=xlByColumns) 'rangefind will now return the unique id like (703213102) while it should return the range 'or something? next i end with
|Draw several entries from another worksheet and enter them in one cell separated by manual line breaks||8||29|
|How to skip the SAVE AS dialog box in an Excel Macro||2||35|
|Printer Setup Pop-up when Opening Excel File||4||12|
|Need help on countif statements using VBA and excel||16||24|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!