This has solved and issues I have been working on for months! Youre the best! Thank You! I would love to explore more maybe around how you can automatically pull data from an online source? Keep up the good work!
I really appreciate your hard work and amazing guides they're very useful in fact you saved my life a lot of times. I would like you to make if possible a video about how to solve this issue I'm facing: 1. Have a sheet with a table column *A* , *B* , *C* . 2. In column *A* I have *Status* as header. I column *B* I have name as header. And finally in column *C* I have Phone number. 3. And now in column *D1* I have a drop-down list with all the months of the year 4. And now *here's the problem* I want to store every data input entered in each of those fields and then load each cell value according to the month selected. 5. Let's say I have A2 = Active, B2 = Mark, C2 = 12345678 and the selected month is January. And then I have A2 = Inactive, B2 = Markus, C2 = 123458 and the selected month is February I will try to share the worksheet so it's more clear
If you have values in rows, but need totals sorted this way, will the information in the row that is associated with that individual move as totals are sorted?
Hi, thank you for useful video. When I first copied your code, it worked immediately! But it was for a wrong column. After changing to the right column, it no longer works. I tried pasting your original code, but even the wrong column that changed at first did not even sort now. I tried reopening the file again, creating new sheet code but nothing work. Please help!
you can expand your sort range Range("B1:B" & lastrow).Sort key1:=Range("A1:Z" & lastrow), _ order1:=xlAscending, Header:=xlNo but the last value entered in the value in "B"
You are amazing and I love all of your videos, but there is something that I have searched all of the Google and RU-vid but didn't find it which is how to collect or filter only those cells that contains insert note or note. Please tell me how to do so. Many thanks.
If I understand you correctly, I have to videos on how to collect comments List all comments from sheet on separate sheet in Excel ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-3fRwsG7150g.html Change the Colour on Cells that have comments in Excel ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-zUwbu1Ztak0.html
Thanks so much. Best. Now, I have a request. If I have to sort, let it be, few students with their marks for 5 subjects. I have a column of 5 students with their marks for 5 subjects. if I add another student with his marks, what do I do to obtain the change in alphabetic order (for students) with the change in their respective marks? Thanks.
Amazing Work! Can you let know how to get your data automatically sorted by cell color in the case where cells are conditionally formatted by specific colors based on value entered? So, how to get the data sorted by cell color automatically with every new entry that changes cell color due to conditional formatting?
Hey Barb! Thank you for your extremely helpful video! I liked and subscribed! :) I have two quick and easy questions about custom sorting! 1.) I am sorting data by the terms "Expired, Pending, Grace, Current". - How do I modify your code to sort data by these terms instead of the numeric/alphabetic sorting? 2.) I am sorting data from A1 to E46 (an entire block of data). What do I modify your code to in order to sort this bigger range of data?
Hey Barb. Awesome code. What if you wanted to do with multiple columns & sort them Independently of each other. For example, I want to sort column "A" Ascending, then column "B" Ascending, column "C" Ascending, etc... all independent of each other. I've tried pasting the VBA multiple times with the appropriate ranges, but it's always giving me an error. Any Advice? Thank you in advance!
I figured it out. Private Sub Worksheet_Change(ByVal Target As Range) Dim lastrow As Long lastrow = Cells(Rows.Count, 1).End(xlUp).Row If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("A1:A" & lastrow).Sort key1:=Range("A1:A" & lastrow), order1:=xlAscending, Header:=xlYes End If lastrow = Cells(Rows.Count, 2).End(xlUp).Row If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("B1:B" & lastrow).Sort key1:=Range("B1:B" & lastrow), order1:=xlAscending, Header:=xlYes End If End Sub
Hi, I have same concern and found this. If Not Intersect(Target, Range("L12:L55")) Is Nothing Then Range("L12:L" & lastrow).Sort key1:=Range("L12:L" & lastrow), _ order1:=xlAscending, Header:=xlYes
Hello, very educative video. However i have a problem with this code. Its working when I enter the number, but when I put the formula, it doesn't sort ascending after calculation. Do you have any solution to my problem?
I use userform to insert the data to the last row. And i want to automatically sort it. I applied your codes in the wsheet but i need to click the data in the table first in order to sort. Is there any way for me to automatically sort the data without the needs to click the table? Thankyou for your code btw 🙏🏻
Private Sub Worksheet_Change(ByVal Target As Range) Dim lastrow As Long lastrow = Cells(Rows.Count, 2).End(xlUp).Row If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("B1:B" & lastrow).Sort key1:=Range("B1:B" & lastrow), _ order1:=xlAscending, Header:=xlNo End If End Sub
I know this is an old video, so hopefully you see this. Is there a way so that when the names are sorted any values to the rows next to them move with them. I'm making a sheet that organizes the game supply for my colleges board games. It will have columns that show the games name and information about it (min and max time, min and max players, type of game). Ex. If I insert a new game into the list and it moves from row z to b it cant contain the previous information for the game there. I will also have on filters, so club members can choose to view games certain types of games. Ex. shortest play time to longest. I'm hoping this makes sense
I am going to refer you to a really old video, the best way to do this is with the built in function ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-AsSyaWy7yiI.html
Please note the values in the "C" column must be entered before the values in the "B" column Private Sub Worksheet_Change(ByVal Target As Range) Dim lastrow As Long lastrow = Cells(Rows.Count, 2).End(xlUp).Row If Not Intersect(Target, Range("B:B")) Is Nothing Then Range("B1:C" & lastrow).Sort key1:=Range("B1:B" & lastrow), _ order1:=xlAscending, Header:=xlNo End If End Sub
