sheetssheet1.select

Hi guys- I am running this code on a document with ~ 25,000 rows by66 columns wide. This code right now is taking around 45 seconds to 55 seconds to run, and sometimes I get the (not responding) and it takes over a minute. I was wondering what steps in my code could be adjusted to run faster...

Here's a bit of a puzzler. I built a code to do the following steps: 1. Apply a filter 2. Copy visible cells 3. Paste the visible cells to a new sheet 4. Rename the new sheet 5. Migrate back to the old sheet and delete the visible rows (thus removing them from the unfiltered data) Trouble is...

Hiya, I'm a newly registered user with newly registered user problems !! VBA is steep learning curve for me, but hopefully with your help I will get there. I have a basic script that opens up three Excel spreadsheets, puts them in three separate tabs. My current issue is that the spreadsheets...

Hey! I've seen this thread which seems to be what I'm after, but doesn't quite work for me... https://www.mrexcel.com/forum/excel-questions/593812-macro-autofilter-skip-if-blank.html When I use the answer here it skips even if there is a field present. Below is what I have, there are several...

Hi. I have a macro to Password protect and hide sheets but cannot get one to unlock and unhide them to work. I am using the code below to lock the workbook and hide the sheets Sub Lock1() Sheets("2018").Select ActiveWindow.SelectedSheets.Visible=False Sheets("Comments").Select...

I have many columns in my spreadsheet Some cells have formulas others do not I tried the following code to improve the creation of all formulas on the worksheet rowM = 16000 Sheets("Sheet1").Select Range("BA4:KZ4").Select Selection.Copy Range("BA5:KZ" & rowM).Select...

Everything in my code works perfectly except the line marked below. Can someone help me figure out how to get it to find the next blank row and then paste. If I take the line of code out, it works but it replaces the previously saved data. Private Sub CommandButton1_Click() With...

Hi, I am trying to create a macro that will delete multiple rows at once, based on different criteria. The rows need to be selected first and deleted simultaneously. My code seems to "forget" the first selection and only delete the rows from the last if-statement. Any help would be greatly...

To, All experts, pls provide me some professional code for below line of code..So i can learn the new.. Windows("Book1.xlsm").Activate Sheets("sheet1").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy...

I am using this code to copy any rows in Sheet 1 with a value in B:B to Sheet 2. I altered the code so far to suit my needs but I only need to copy the date from Column A and B from Sheets 1 and paste into Sheet 2, not the entire row. Anyone know how to do this? I assume I need to change...