Shift+Ctrl+Down Arrow
Edit > Go to (ctrl+g in '97)
Special
Blanks
[OK]
Edit > Delete
"Delete Entire Row"
Short Version-Select all rows under last used cell
Excel UI "Go to" Blanks (whatever that does...)
Delete selected rows
I am trying to delete all the rows that have blanks in both columns "D" and "F".
VB:
With Sheets("2012")
For k = 6 To 1000
If (.Range("D:" & k) = "" & .Range("F:" & k) = "") Then
[Code]....
I have data that gets seperated into different cells and what i need is for all the data to line up from left to right with no empty cells in between.. so basically shift delete on each cell and shift the data left.
So i thought i know, ill simply f5, select the blanks, delete and shift left... however that option doesnt come up.. it simple says delete row?
What is the best way to select all the blanks in a range and delete them and have the cells that contain data move to the left so all data is next to each other.
I have just started trying to learn VBA as its pretty cool but I am getting stuck on how to filter by non-blanks. It's probably something easy:- here is what i have got so far, but its not working
With ActiveSheet
.AutoFilterMode = False
. Range("A1:V1").AutoFilter
.Range("A1:V1").AutoFilter Field:=22, Criteria1:=0
.Range("A1:V1").AutoFilter Field:=5, Criteria2:="<>"
End With
REPLACE ENGINE OIL & FILTER, VEHICLE INSPECTION, FILL FLUIDS
RESET THE OIL REPLACEMENT REMINDER LIGHT.
(blank row )
(blank row )
E
I have an excel file with many columns containing information at the end of each column like this.
It lists car verbage, then 2 blank cells are required , followed by an E.
I was wondering if a macro could be used to where it looks at a column, finds where the verbage ends, and automatically inserts 2 blank cells below it followed by an E. In other words it needs to make sure only 2 blank cells are after the verbage and an e should follow in the cell below. If the column has 3 blank cells below the verbage it should fix it and add the E at the appropriate space.
I am trying to add a macro that finds a dynamic range (number of rows changing with different data sets) sorts column B, then column A, moving blanks to the bottom. My dilemma is as follows:
I have a template with formulas that cannot be changed (I cannot paste special values, or clear the cells). Column A includes HLOOKUP formulas for cells A14:A120. Column B includes VLOOKUP formulas for cells B14:B120. The different data sets I pull in have different numbers of lines, which is why I need to maintain the formulas. However, I cannot seem to find a way to accurately sort column B first from smallest to largest and then column A from smallest to largest. In all data sets there will be at least a few blank lines that I need to move to the bottom. However, due to the formulas within the cells (column A returns a value of 0 and column B returns a value of “ “), excel does not recognize them as being blank. Here is a sample data set.
Branch
S&C Group
77770000583-DOWNERS GROVE BRANCH
MWBF2
77770000585-CHICAGO RIVER BRANCH
MWBF1
77770000587-WEST TOWN BRANCH
MWBF1
[code].....
In this case, I would like St. Charles & Algonquin to be at the bottom because column B is blank.
I have been using this macro, which works perfect:
Sub Signflip()
Dim cell As Range
For Each cell In Selection
If IsNumeric(cell.Value) Then cell.Value = -cell.Value
Next cell
End Sub
It allows me to select cells and flip from neg to pos, pos to neg, and it won't error out on text cells. Great little macro.
However, I don't like how it puts a zero in blank cells. It slows down the macro when I select large areas. Is there a way to make this macro work the same way but skip over empty or blank cells and not enter a zero.
I've been looking around to find something like this for a while and I'm pretty new to VBA, so I haven't figured it out myself yet.
Basically, I need a macro that can take a 7-column range and replace the values in all cells containing 0 (but not 10, 20, etc) with a blank cell so that a count function in another column can function.
When I just select the range and use 'Find and Replace' to remove the 0s, it alters 10s, 20s, 30s, any number that even ends in zero instead of just the value of zero itself,
I have the following Conditional Formatting vba code shown below which allows me to format diffrent ranges according to the values in the cell, What I want to be able to do is that if Mycell.value ="" then do not apply the colorindex value, in other words leave any cell in the range which has a null value unchanged.
Private Sub CommandButton1_Click()
' Conditonal format for New hourly report
Dim Mycell As Range
'SL80range formatting
For Each Mycell In Range("sl80range")
Select Case Mycell
Case Is >= 0.8
Mycell.Interior.ColorIndex = 4
Case 0.7 To 0.79999
Mycell.Interior.ColorIndex = 44
Case 0.00001 To 0.6999
Mycell.Interior.ColorIndex = 3
Case Else
End Select
Next
I created a macro to create the beginning of a pivot table- just the rows and slicers, because when I tried making a longer macro to create the entire pivot table (formatting, etc) I couldn't get the macro to work.
So I do get all the vertical rows I want, and I do get all the slicers I want. But I get blank space. I think this is because the pivot table is created from another tab, and the length of data in that tab will vary from file to file (I'm doing another 30 or so of these, all with varying amounts of data, but the same data categories).
Anyway, I get slicers, but in addition to getting the categories I want, I also get "(blank)" below the names in the slicers. Is there a way to add some code to the macro to remove the blanks so I don't get this field?
I have copied and pasted the macro below, with identifying data changed.
I need a macro that will take the values that are in the far right cells and move them to an area on the left. the columns they will be pulling from are the IU & IV column starting with row 2 down to row 460. from there I need the values to be pasted into the D & E Columns starting at row 6. The two columns IU & IV are a date and a task for that date. When they are pasted into the columns D&E they will need to be sorted by dates (or just all of the blanks removed), with the soonest occurrence at the top. The reason for pasting values is because I have formulas pulling the tasks and dates off of another sheet. The last thing is that the macro needs to be triggered by the information in cell c2, when that cell is changed the formulas go to work and everything in cells IU & IV update. That is when I would like the macro to kick in and work the miracle.
I have been trying to build a colony of formulas that could do it, but I have given up, then I tried to make an array index it for me, but that wasn't working for me either.
find attached an example of the spreadsheet I am working with. Please bear in mind that this is a much simplified version of the version I am currently working on (which needs to have 1000 lines). What I am trying to achieve is allow my team to enter rows of data into the spreadsheet in a format that they will be familiar with - then hit the button on the sheet which will then take a copy of the second sheet (which looks up against the first) and spit it out in a .txt file ready to be uploaded into our computer system.
The main priority that I need to fix is that when the .txt file is opened in notepad it contains a huge amount of blank data rows at the bottom - I assume that it is taking accross all 65536 lines into the .txt where I only want the rows that have data in them in the .txt. At present our computer system will not accept the .txt due to all the blank rows (its limit is 1000 lines).
I want to delete a sheet in a macro but when I run the macro, I always get a message warning and I have to answer the msg box to delete the page. Below is the macro command I am using.
Sheets("Tel").Select
ActiveWindow.SelectedSheets.Delete
I have an data in a columns. Here I need to count the non-blanks and blank records.
View 5 Replies View RelatedSo this is what I am trying to do, I have a column in my data that is for telephone numbers. When I receive the file some of the fields are blank in that column. I need to add to my current macro a part that evaluates the column for blanks and adds a static telephone number in the blanks (up to the last row of data in the file). I have been able to accomplish this with the following:
Range("N2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "1112223333"
However, when the file that I receive has a telephone number in all the fields the code breaks at this point. I have tried On Error Resume Next, but that just replaces all the remaining cells in the column with the static 1112223333..
I have recently grabbed the very helpful "Macro to delete VBA code" from this site, and it's working but with one small problem.
My worksheet runs a lot of code, then deletes all macro code and saves itself.
The problem is the next time i open I still get the macro security warning!
I've checked thoroughly and there is definatley no vba left anywhere.
If I open the document, enable macros, and save it, then open it again, I no longer get the warning.
I have date from column a to k
I have a formula on column L
I want macro to delete all rows with #N/A
Need a macro for the following situation, will be incorporated into my other macro.
For each row in column C,
if value for first 4 letters = "abc " or "def " or "ghi " or "jkl " then delete entire row.
I'm looking for code that will prompt a user to select column(s) to be deleted.
- With the exception of columns A,B,C.
- Only entire columns can be deleted
- Rows can not be selected for deletion
I want to delete a row if it contains componenten.
In here i ask to delete componenten not.
Or should i take "*componenten*" or totaly someting else
For MY_ROWS = Range("c65536").End(xlUp).Row To 1 Step -1
If UCase(Range("c" & MY_ROWS).Value) = "COMPONENTEN" Then
Rows(MY_ROWS).Delete
End If
Next MY_ROWS
Have a sheet that has a $ value in Col J would like to run a macro that would delete the Row if the value is $0.00 and move the rows up.
View 9 Replies View RelatedOn a daily basis I populate data on different worksheets. Meaning on each day I have to delete T-2 data to populate T-1 data.
I would like a macro to select a date to delete rows from each worksheet containing the date in Column A of each worksheet
I have a macro that I would like to remove itself from the file as its last action. I don't want a warning message re file containing macros to show on opening the file.
View 9 Replies View RelatedI experimented with a simple macro in a worksheet template, but decided not to keep it and deleted the macro. However whenever I add the template to the workbook, it still asks about the macro and whether or not I want to enable it.
When I go back to tools/macro to delete it, there is NO macro that shows up in the dialog box. Why is the workbook still asking me to enable a macro I deleted?
I am running some macros, but at the end of the macro running i want it to delete itself.
View 4 Replies View Relatedi wrote this macro and want to delete last two rows on active sheet this macro.
Sub deleteLast2Rows()
With ThisWorkbook.Worksheets(1)
Dim rowNum As Integer
Dim m As Range
rowNum = 2
Set m = .Range("A" & rowNum)
rowNum = rowNum - 2
EntireRow.Delete
End With
End Sub
I have tried to record this but I cannot get it to work? On the tab “Add & Delete” cell “L17” I have a drop down list that is a list of the policy numbers from the “Data” tab.
What I am trying to do is assign a macro that searches column “J” on the “Data” tab based on the “L17” content on the Tab “Add & Delete” when it finds the data it then clears the contents of that entire row.
I'm using following code to delete some image called "Dev_Graph"
Sub Del_Graph()
'
' Del_Graph Macro
Sheets("Report").Unprotect Password:="1234"
ActiveSheet.Shapes.Range(Array("Dev_Graph")).Select
Selection.Delete
Range("B11").Select
Sheets("Report").Protect Password:="1234"
End Sub
the problem is, If i run this macro when there is no Image, i got a error msg.
I have a large file of data and the data looks like this repetitively, however, there are also useless data. But I figure out that the repeat data looks the same compare to the useless data. I need to extract the data that I only need. Is there a way to set a macro to search for a String from the beginning of the excel file, when the string is found, it will keep the 2 rows above and 56 row below it, then loop.
Here is an example of it:
A1 USELESS DATA
A2 USELESS DATA
A3 USELESS DATA
A4 USELESS DATA
A5 GOOD DATA
[Code] ....
The macro will start from A1 then go down till find STRING, then will keep 2 row above it which is A5+56 row below it which is A63.
Then continue at A64, then find STRING at A66 and do the same which is copy A64 (2 row above)+till A122 (which is 56 row below), then continue.
Since A123 to A155 does have any STRING, they will all be deleted..
I have a huge spreadsheet that I want to be able to sort through and delete the unwanted rows. I want to do a search for anything in column C that equals 2225 including the next row after and delete the rest. Here is an example...
View 3 Replies View Related