Related:
- I have a problem regarding how to automatically update data in other Sheets.
- Transfer data from one excel worksheet to another automatically - Guide
- How do i update my facebook account to new version and design - Guide
- How to update ps3 with usb - Guide
- How to update emojis - Guide
- Play store update - Guide
2 responses
Try reverse engineering this solution:
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!
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!
