1.endxlup.row

I am needing some help here. I have a sheet that has dates in column O. I have a code that copies dates based off a date, but I have to enter the date into the code. I would like to be able to enter a date in say cell A1 and then run the code to copy the rows based off the date I enter in A1...

I wrote this code for a project. It filters two tabs then appends one set of values to the bottom of the other and then saves the result to a new file. It works fine, but sometimes with 100 or more values for "i" it can take a while. Any suggestions or different code to make it run faster...

Hi All I'm using the code below to create template copies, how can i adapt it to avoid duplicates please and only create unique worksheets. Sub NewDays() Dim i As Long, LastRow As Long, wksht As Worksheet Sheets("Tides").Activate LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1...

I have an If loop comparing values. I am trying to move data from sheet "clean18" to sheet "monthcompare" based on the criteria. Everything in the code works. there are no errors. I just can't get the data from "clean 18" to list in "monthcompare" correctly. I would like the "clean18" data to be...

I'm having an issue copying data to another sheet within the same workbook. in the code provided the program works fine. Sub dinocheck() Dim i As Integer Dim r2 As Integer Dim lastrowdl, lastrowc, lastrowh, lastrowo, lcol As Long lastrowdl = Sheets("dino list").Cells(Rows.Count...

Hi all, I found the following code when searching for a way to insert multiple rows based on a given cell's value. Can someone please help me understand what the code says? Sub Insert_Row () Lastrow = Worksheets(“Sheet1”).Cells(Rows.Count, 1).End(xlUp).Row For i= Lastrow To 2 Step by -1...

I am maximizing a value ($L$4) by changing the values in ($A$2:$A$134), value changed from 0 to 1 and limiting to only 6 records being chosen. I want to copy a specific cell (Column C) for each of these and place it in a row in the new spreadsheet. Output would look like this <colgroup><col...

Hi im trying to filter some data all the data is contained within "master" and the filtered results need to be in "filter" I want to have two criteria to filter with from within the "filter" sheet; 1. value of the cell ("C3") 2. dates values in cells ("C4") and ("C5") Within the "master"...

Hi all, I've done some searching and found a code that works reasonable well for what I need, but I do need a little help to edit it. The below code looks in two different tabs within the same spreadsheet and finds and discrepancies, then copies the rows over to a 3rd tab, pasting them 1 under...

I have a list of data that I am building a macro to cleanup. In my first column I have values that range from 2 to 8. This has already been filtered from highest to lowest so the2’s are at the bottom and so on… I need to delete every row except the 8’s and the first rowof 7. There will always be...

What am I doing wrong in the third loop? I want to copy rows if the value is not equal to one of the conditions in my IF statement. I don't get any errors, so my logic/ approach is def wrong. The first 2 loops work just fine. Sub copy_date() Application.ScreenUpdating = False Dim a As Long, b...

Hi, I have a worksheet (Sheet1) with data in each row. I want the data in Sheet1 to be transferred to sheet2 if column 10 (J) equals "Yes", and once transferred/copied to sheet2, the data is deleted from sheet1 and the all the blank rows are deleted. Column 10 value will be either Yes or No. Any...

Hello, I'm having trouble with the code that I use to copy a specific cell of a sheet from multiple workbooks within a folder to the master sheet. The debug tool points at the line of "With .Worksheets("financial_report"). I'm not sure why? The code is below: <code style="margin: 0px; padding...

I'm using the following code but get a runtime 424 error. Also, I would like to the sheet name in c17 to last cell Private Sub CommandButton1_Click() lastcell = ThisWorkbook.Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row For i = 17 To lastcell With YhisWorkbook newname =...

Hi, I am brand new to macros and need some help. I have a sheet that needs to be split into multiple sheets, based on the criteria in column E. The data changes periodically so I have to run the macro every couple of days. I need the macro to clear the contents of the target sheet (without...

Hello all, Need some help figuring this out. I am trying to create a macro to search a specific column for any text value and it copy it. I have the copy/paste part down, I need a way to have it search the column for any text. Text values vary by school names and they can change. Thank you...

hello! I have a column of numbers in the form of 70.00.01.0024, 70.00.01.0013, 71.00.00.0013, 71.00.00.0024, etc. What im trying to do is, find the cells and cut the rows that they are at (e.g. B1:B4). I tried doing that searching 70.**.**.**24 but doesn't work. here's what I have so far...

Private Sub btnTedavi_Click() Dim cikti As Worksheet, doz As Worksheet, kanlar As Worksheet, TutulumP As Worksheet Set cikti = ThisWorkbook.Sheets("cikti") Set doz = ThisWorkbook.Sheets("doz") Set kanlar = ThisWorkbook.Sheets("kanlar") Set TutulumP = ThisWorkbook.Sheets("Tutulum Paterni") If...

Dear Forum, please help me with the following problem: I´ve a workbook with two sheets. I wrote two macros for Sheet2 Both works perfect my problem is that I can't get them working on Sheet 1 the NOT-working code: the working code: I've tried for hours without success Please help! Thank...

Guys, I'm trying to select all the cells on my worksheet. In order to do so, I was thinking about trying to use range and the variables lr and lc which stand for last row and last column. However, currently it's not working. This is the code I have: Sub Graphs() Dim lr As Integer, lc As...