I have a problem regarding how to automatically update data in other Sheets.

- - Latest reply: ac3mark
Posts
13035
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
October 11, 2019
- Jan 4, 2019 at 10:45 AM
Hello,
I m looking to have few different sheets that automatically updated based on information that is added or changed in master sheet.
One sheet i need to sorted by supervisor, one sheet by the store incharge and another sheet sorted by the admin.
Whenever i add the data in master sheet with the name of supervisor, admin or store incharge it automatically update in their relevant sheet.

System Configuration: Android / Chrome 71.0.3578.99
See more 

2 replies

Posts
13035
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
October 11, 2019
1479
0
Thank you
I would love to help. You stated that you have a problem. Post your code here and we can help.
Respond to ac3mark
Posts
13035
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
October 11, 2019
1479
0
Thank you
Try reverse engineering this solution:

Function FindLastRow(OnWhatsheet)
FindLastRow = Cells(ThisWorkbook.Worksheets(OnWhatsheet).Rows.Count, 1).End(xlUp).Row
End Function

Function LoopForMove(FromWhatSheet, ToWhatSheet)
Dim LastRow, Cnt
Dim CellValue As String
Dim CellLoc
Dim nret
If WhatCol = "" Then
WhatCol = "A"
End If
If Qualif = "" Then
Qualif = "X"
End If
LastRow = FindLastRow(FromWhatSheet)
For Cnt = LastRow To 1 Step -1
CellLoc = WhatCol & Cnt
CellValue = ThisWorkbook.Worksheets(FromWhatSheet).Range(CellLoc).Value
If CellValue = Qualif Then
nret = Moveit(FromWhatSheet, CellLoc, ToWhatSheet)
End If

Next
End Function

Function Moveit(FromSheet, WhatRange, ToWhere)
Dim MoveSheetLastRow

With ThisWorkbook.Worksheets(FromSheet)
.Select
.Range(WhatRange).EntireRow.Select
End With

Selection.Copy
MoveSheetLastRow = FindLastRow(ToWhere)

With ThisWorkbook.Worksheets(ToWhere)
.Select
.Cells(MoveSheetLastRow).EntireRow.Select
End With

Selection.Insert
ThisWorkbook.Worksheets(FromSheet).Select
Application.CutCopyMode = False
End Function


This will do what you are asking, you just have to configure it!

I am not in the business of providing TURN key solutions, but I attempt to help you LEARN how to provide your OWN solutions. Please Do not ask me to alter this code, but I will answer questions regarding how to deploy it. This is a very simple set, and you should be able to get it to run on your workbook. Hint, deploy it in a MODULE. PLease understand, NO sheet will ever do any moving without USER interaction first, so what that means, is you will have to PRESS a KEY, OR A BUTTON or something!
Respond to ac3mark