Zehad Rian Jim

Hello DESTINY,
First, thanks for your curious question. It was amusing to solve the problem. Let me guide you to fulfill your query.

Step 1. Assume you have a Dataset where you have the Names of the employees in one column and the types of the employees in another.

Step 2. Then insert the following code in the VBA window.

Sub Copy_Rows_3()
Dim r1 As Range, Row_Last As Long, sht As Worksheet
Dim Row_Last1 As Long
Dim src As Worksheet
‘Change this to the sheet with the data on
Set src = Sheets(“Dynamic”)
Row_Last = src.Cells(Cells.Rows.Count, “C”).End(xlUp).Row
For Each r1 In src.Range(“C5:C13” & Row_Last)
On Error Resume Next
Set sht = Sheets(CStr(r1.Value))
On Error GoTo 0
If sht Is Nothing Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = CStr(r1.Value)
‘Sheets(CStr(r.Value)).Cells(1, 1) = “Total”
Row_Last1 = Sheets(CStr(r1.Value)).Cells(Cells.Rows.Count, “B”).End(xlUp).Row
src.Rows(r1.Row).Copy Sheets(CStr(r1.Value)).Cells(Row_Last1 + 1, 1)
Sheets(CStr(r1.Value)).Cells(1, 2) = WorksheetFunction.Sum(Sheets(CStr(r1.Value)).Columns(3))
Set sht = Nothing
Else
‘Sheets(CStr(r.Value)).Cells(1, 1) = “Total”
Row_Last1 = Sheets(CStr(r1.Value)).Cells(Cells.Rows.Count, “B”).End(xlUp).Row
src.Rows(r1.Row).Copy Sheets(CStr(r1.Value)).Cells(Row_Last1 + 1, 1)
Sheets(CStr(r1.Value)).Cells(1, 2) = WorksheetFunction.Sum(Sheets(CStr(r1.Value)).Columns(3))
Set sht = Nothing
End If
Next r1
End Sub

N.B. if you are following our article, use the VBA code under the method “Copy Rows in Excel to Another Sheet Dynamically” and change the marked portions.

Step 3. After pressing Run, you will get the result in individual desired cells.

Thanks

Hello CALEY FORBES,
Thanks for the amazing question. Let me guide you in solving this problem.

First, I want to solve your first query. I think to solve your problem it is better to use our first method ‘Automatically Copy Rows in Excel to Another Sheet Using Filters’ method than using VBA code. The reason behind this is I think the first method will do your desired work without hesitation.

For the second query, you have to insert the following formula in the VBA windows.

Sub Cut_Range_To_Clipboard()
Range(“B4:B10”).Cut ‘This will cut the source range and copy the Range “B4:B10” data into Clipboard
‘Now you can select any range and paste there
Range(“J2”).Select
ActiveSheet.Paste
End Sub

Note: in the Range section you can change the desired option to paste accordingly.

I hope, your problem will be solved in this way. You can share more problems in an email at [email protected]
Happy Excelling!!!

Thanks, RICARDO SERRÃO for your two amazing queries. Let me help you out in solving your problems.
First, we are going to discuss your first question. The problem you faced is about custom sorting.
At the very beginning, we arranged a dataset of change in percentage.

Then, as you wished we have used the COUNTIF function in this dataset.

As a result, we have found the values.

Now, select Dataset> go to Data>Sort options.

After that, in the Sort window, select Change% in Sort By option, Cell Values in Sort On option, and Custom List in the Order option. Press OK to execute it.

Furthermore, click on the NEW LIST option and write the condition manually in the List Entries area and press Add option.

Because of that, you will get the desired condition in the Custom Lists section and press OK.

Afterward, if you can see the desired condition in the Order box then press OK.

Lastly, you will get the result accordingly. As in the condition, you have entered less than zero at first then zero to ten and at last greater than zero that’s why in the Excel section you will get the same order accordingly.

So, that’s the solution to your first query. Now, Let’s go through your second problem.
First, by reading your example, at first by using a formula, we created a Uniques Names list.

Second, you have to write down the same unique names list in another column. The behind this is, in the array, you can’t use sorting.

Third, then enter the Observations you made next to the new column.

Forth, as we want to sort, so we mark each name with a unique Id number in a new column.

Fifth, go to select the table>Data>Sort options.

Sixth, select the Id option in the Sort by option, and Cell Values in the Sort On option, click on the Largest to Smallest option in the Order section, and press OK.

Finally, you will get the desired result.

So, this is the solution to your second query.
Therefore, our journey comes to an end. The problems were very fun to solve and I really feel amazed by helping you. Thank you once again. Best of luck.