Hi there!
I'm a newbie here seeking for help!
I have different sheets per category that needs to update daily, and I have a unique identifier on each sheets. The data that needs to be update is under UPDATE sheet, am trying to update the specific range ( I to V) data on my update sheet to their respective sheets. sample.xlsx
Any ideas of how to quickly and efficiently accomplish this task?
Thanks for any help.
Instead of individual sheets the data should be maintained on one sheet with a column for identifiers.
Hi there!
I found a this code and it copies the entire row but what I want is to copy a specific range only.
Can anyone help me with this code..
Option Explicit
Sub UpdateData()
Dim xRow As Long, yCol As Long, k As Long, intPos As Long
Dim ws As Worksheet, wsMaster As Worksheet
Dim dataCompare As String, destCompare As String
Dim destRange As Range, copyRange As Range
On Error Resume Next
Application.ScreenUpdating = False
Set wsMaster = Worksheets("master")
wsMaster.Select
xRow = Cells(Rows.Count, "A").End(xlUp).Row
yCol = Cells(1, Columns.Count).End(xlToLeft).Column
For k = 2 To xRow
wsMaster.Select
dataCompare = Trim(CStr(Range("A" & k)))
For Each ws In Worksheets
intPos = 0
If ws.Name <> "master" Then
ws.Select
Set destRange = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
intPos = Application.WorksheetFunction.Match(dataCompare, destRange, 0)
If intPos > 0 Then
Application.CutCopyMode = False
wsMaster.Select
Set copyRange = Range(Cells(k, 2), Cells(k, yCol))
copyRange.Copy
ws.Select
Range("A" & intPos + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End If
Next
Next
Application.ScreenUpdating = True
End SubThere are several options available to work with data and it's easier to maintain if it on one sheet.
Also, when posting code use Code Tags not Quote Tags
Don’t have an account yet? Register yourself now and be a part of our community!