As you can see from the picture that i have three entries of "9207116092" i want that it should automatically drag the value(date in this case) if its updated in any of the rows have the same PO number (9207116092) rather than old dragging option i want it to be done automatically. Is there any way to do it either by excel vba or just excel
Posts by Jibran9717
-
-
Masterfile (Autosaved).xlsmPOD.xlsm
documents for your reference
-
So i basically want to get PO matched from the file browse from computer and copied in a way that wherever PO "9207116092" in C4 of file POD is mentioned in Masterfile ColumG "PO" (like we dont have to right "9207116092" again and again just onetime is enough and that value (01/03/2020 in this case) is pasted to al the rows having PO number "9207116092" in POD columnF in Masterfile
Noye: Use macro UPLOAD POD to upload file
Code
Display MoreSub uploadPODdata() Dim WScopy As Worksheet, WSdest As Worksheet, desWB As Workbook, FileToOpen As Variant, DRow As Long, cRow As Long, lastRow As Long, fnd As Range, PO As Range Set desWB = ThisWorkbook Set WSdest = desWB.Sheets(1) Application.ScreenUpdating = False FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & Import Range", FileFilter:="Excel Files (*.xls*),*xls*") If FileToOpen = False Then Exit Sub Set OpenBook = Application.Workbooks.Open(FileToOpen) With Sheets(1) DRow = .Cells(Rows.Count, "C").End(xlUp).row For Each PO In Range("C5:C" & DRow) Set fnd = WSdest.Range("G:G" & DRow).Find(PO, LookIn:=xlValues, lookat:=xlWhole) If Not fnd Is Nothing Then fnd.Offset(, -1) = PO.Offset(, 1) End If Next PO End With With WSdest cRow = .Cells(.Rows.Count, "A").End(xlUp).row .Range("N4:N" & cRow).Formula = "=if(F4=E4,M4*1,M4*0)" End With ActiveWorkbook.Close False Application.CutCopyMode = False Application.ScreenUpdating = True End Sub