I'm trying to figure out the if conditions for this relatively simple problem. Basically, this is an import from a word document where the table strays onto a new page. I want to try and repair this with a bit of VBA.
This is what it looks like:
1: cell 1 |the content should all be in this cell
2: |but the import sometimes splits it into two
3: cell 2 |
Basically if and only if cell Ax is blank (in this example A2), then I want the rows to merge each cell and repair the table.
I have a spreadsheet that I need to insert a blank row every other row and then merge that blank row. I can do this with the macro below. My question is that I only want the merge on each blank row to merge A:H. Example would be insert row 9 and merge A9:H9. Insert row 11 and merge A11:H11. and so on till the end.
Code: Sub insertrow() Application.ScreenUpdating = False Rows("9").Select Do While Not IsEmpty(ActiveCell) ActiveCell.EntireRow.Insert ActiveCell.EntireRow.Merge ActiveCell.Offset(2, 0).Select Loop Application.ScreenUpdating = True End Sub
I am a CAD person, trying to edit a large spreadsheet for reading into CAD.
I need to merge 2 worksheets into a 3rd. Then search and delete the blank rows. (There is only 3 columns in the document, but can be as many as 5,000 rows or more)
The Cad program does not like blank rows, so I have to delete them if users insert them, and there may be several in a row. (Users need only edit one of the worksheet, No. 2)
The 3rd worksheet must then be saved to a Tab-Delimited txt file in the same location on the network as the xls document.
I am able to select the worksheets and copy to a 3rd, but how to go to the end of the data, before merging the other data from the 1st worksheet into the third.
I have a large list of text in one column which i need to combine between blank rows into one cell or a new column, the number of rows to be combined varies.
for example
aa bb
ww xx zz
rr
gg hh ii jj
would become
aa bb ww xx zz rr gg hh ii jj
I have over 30000 lines so doing it by hand is not an option.
A macro that will delete a tab or tabs in a file if and only if rows 11, 13, 23 & 25 are completely blank within that tab? So basically ALL rows would need to be blank, if there is any data within any of those rows, then tab should NOT be deleted.
I want to insert blanks rows above rows that have the number 1 inserted in column C.
I about 60,000 rows in all, doing it manually takes forever because I have to keep waiting for Excel to push the rows down every time I insert a new row.
Is there an efficient way to grab all the rows with a 1 in column C and insert rows in one swoop? If not, I will settle for any way other than manually.
I have a spreadsheet with columns and columns of data. What I'd like to do is identify which rows have blank/no data in all specified columns (H, K, O, S, U, W, and Y).
To clarify, I need to identify each row where all of these columns are blank (as opposed to each row where at least 1 column is blank).
I have a data copied from pdf to excel and need to segregate the data page wise so i need a macro to set the pages in specific cells example page 1 ranging from A1 to A60
Page 2 ranging from A61 to A120 and so on
Example of pdf data
PAGE 1 Should be in cell(A1 to A60) - Data can be less than cell A60 but page 1 should be within this range
A 1 CHURCH 6 HOUSE 5
[Code] ......
PAGE 2 Should be in cell(A61 to A120) - Data can be less than cell A120 but page 2 should be within this range
I need a VBA to delete rows with blank cells within columns F - AZ Columns A - E contain headers but also need to be deleted if cells in columns F -AZ are blank.
I need a code that will copy the format AND formulas of the entire row that I have selected (or activatedwith my cursor) to each and every blank row - until it gets to the last row of data on this spreadsheet.Since any employee could have more than 1 row of data - I am using a code that inserts1 blank row after each NEW employee name.
NOTE: This report is initially sorted by employee name so that each occurrence is grouped together.REPORT SPECIFICS:1) This report reflects typical paryoll information.2) Certain columns have data that is either in text, general, or number ($) format3) The number of columns may vary depending on which PR report is being worked4) For the sake of simplicity - we can assume that the column titles will always be across row 15) Each employee name on this report may repeat several times depending on how many weeks they worked,so the SUM() formula should adjust automatically to capture all the rows of data to add up for each employee
HERE IS MY CODE TO INSERT 1 ROW Sub InsertRowAtNewNameONE()Dim LR As Long, i As LongLR = Range("C" & Rows.Count).End(xlUp).RowFor i = LR To 2 Step -1If Range("C" & i).Value Range("C" & i - 1).Value Then Rows(i).InsertNext iEnd Sub
NOTE: See below: I will format and add formulas where I need on the 1st blank row that was createdand I need a code that will copy this particular row to all blank rows to the last.
I have written such loop which I want to delete entire row when a given cell is empty:
Code: lastrow = Cells(Rows.Count, "A").End(xlUp).Row For Counter = lastrow To 2 Step -1 If Cells(Counter, 6).Value = "" Then Selection.Rows(Counter).EntireRow.Delete End If Next
It works not the way I want. It has ommited some blank rows and also removes 5th row everytime I run it.
I am trying to use VBA to populate the first blank cell in row 6 with the word "Short"
I keep getting sub or function not defined and I am sure its because I am trying to Frankenstein some code together to get it to work. So far everything works as I need but this last step.
I have created a form where a date and remark is added every few days. I am using Phone Number as the base of VLookup. I want a code so that the date and remark which is entered in a Text Box, is stored in the first available blank cell pertaining to that employee. I want the first date and remark to be under "Date 1" and "Remark 1".
Thereafter, if another remark is subsequently added for that employee, the form would ask to enter his phone number to identify which employee the remark pertains to. Then the Text Box where remark is entered should be stored under "Remark 1" if there has been no remark before, "Remark 2" if "Remark 1" already exists, "Remark 3" if "Remark 2" already exists and so on.
I do not want to enter it in a new row. I want to enter the remark in the next blank cell of the row which matches the employee Phone Number.
I was wondering if someone might be able to assist me with using VB to insert a new row below a cell containing specific text.
For example:
- All of my data is in column A
-I want to scan all of column A, and if there is a cell that contains "ACHCAMERIGROUP M", then I want a blank row inserted below it. If column A does NOT contain that text....do nothing.
I have a row in a table from columns C to CZ. All the cells in the row contain a formula, between 1 and 204 cells in the row will have a value (i.e. will not be blank).
The cells with a value will start at column C and may or may not have a blank cell before no more values and blank cells to the end (Col GZ).
Example:
C D E F G H I J K >..........................GZ
23 34 67 74 2 34 6 2 56 all blank ("") to end
or:
C D E F G H I J K >..........................GZ
23 34 67 "" "" 34 6 all blank ("") to end
I need to hide the entire columns when the cells in this row are blank but NOT if the blank cell has valued cells after it (i.e. do not hide columns F and G in the second example.
I can do this by looping back from col GZ and hiding the columns one at a time, which is very slow. I am stuck on the code to select all the relavent columns and hide together.
i am trying to Put a specific value i,e "NO Deliveries" in blank Cells in the same row based on value in 1st cell of the Row which has a fixed value . note:the columns and rows are dynamic for example: I want to put the value "no Deliveries" in cell C because its blank.
I have a code now that in excel, when the button is clicked, will put file into a new email and format the email.
What I have been trying to do, is make it so that if Cell C10 is blank, you get a prompt telling you it must be filled out before you can proceed with the submission.
Here is the code now:
Sub SendTimeCard() On Error GoTo err_handler Dim OutApp As Object Dim OutMail As Object
Dim subject As String Dim body As String ' Be sure the workbook is saved first ThisWorkbook.Save
I have a column which contains unique values and also blank cells between them. These blank cells are associated with the cells having value below them. e.g.
Suppose these above are 14 cells (A1:A14); I want to merge preceding set of blank cells with the values below them.... in this example I want to merge A2,A3,A4,A5 with value in A6...
Likewise A10,A11 merge with A12 to show value in A12.
I have the attached xl. I want to make import from a specific folder other xl files and after that I want the sheet 1 to find if the values in column g and m (together in the same time) can find it in other xl files. If yes then this values in sheet 1 must turn to red. Can this done?
In my attached file, I've atttached a sample whereby in Sheet1 to Sheet3 I have data with the same format.
I want to copy all data with TD_SUB_ACNT_CODE = ETMY0100 into Sheet4. My actual data actually have more than 10 sheets and the sheet count can be more.
I have 2 spreadsheets of delivery information. Sheet 1 contains data of all stores in the UK with addresses. Sheet 2 containts contacts of all stores that promotional matrial needs to be sent to.
The only common cell in a column of 4 digit store numbers.
I need to delete all rows from sheet 1 that do not contain a value in the store number column that is displayed on sheet 2.
I'm trying to delete rows which has columns that appears to be blank. Below code worked fine but it took about 15 min for the macro to work through the spreadsheet.
I'm trying to create a table that adjusts dynamically to how many cells in a row have text in them. In other words, when a cell is left blank, the entire row should not appear in the table.
I've tried the following code:
Sub test() Dim i As Integer Dim nrrows As Integer
[Code]....
When I run this code, it hides all rows, even the ones that aren't blank. why this might happen and how I can make it work?
What I have are invoices that span an entire month that I need to convert into a format for the billing department. The columns I have right now are: "Invoice Number"Cost CenterAccountFundType of Service" Date of Completion"Unit PriceQty Total Price
I need to generate a file with the headings as: Cost CenterFund"Date of Completion"Account Total Price. Since Total Price only appears on the rows that have the final information I need, I want to have a script that grabs every line in which the Total Price column has data, generate a file of the summary lines, then throw that through another macro to reformat it into the final format, or just do it in one step. In summary I need to grab rows where Column I is not empty, whats the best way to do this?
I am looking for VBA code that will add the character ")" to the first blank cell in each row. The amount of columns in each row changes and the amount of rows change. I attached a sample spreadsheet.
