shift=xldown

I'm trying to create a macro that sets up my reports with a header and spaces above and before the data Essentially what I want to do is add a column in the front of my data, add 6 Rows above my data, turn gridlines off, and open my workbook that contains my header and copy and paste it into...

I need a macro to prompt for user defined row entry. Once that is accomplished it needs to simultaneously copy data from two specific columns (unique naming convention for the header - e.g., Ledger Code (Column D) and Cost (Column F)) from a neighboring workbook to columns J and Q to the target...

Hi Everyone, Any help here would be greatly appreciated! I've tried checking trust settings, etc. on other people's computers, they're set to allow macros. I'm getting run-time error 438 when i run this code on other's computers. Any idea why? I red fonted/underlined the line of code that the...

Hello, I have this Macro and I need it to repeat until there are no more lines. the tricky part is that the macro creates 6 new rows each time. also how can I make it delete the rows with zero balance? thank you Sub Create_Rows() ' ' Create_Rows Macro ' ' Keyboard Shortcut: Ctrl+q '...

Hi I have been trying to write some code which checks if a cell is empty, if the cell is empty it moves the data from that row and the next 2 columns down a row. The problem I have is that the second column contains the address of a linked cell, hence I need to check if the address is still...

How can i copy 6 rows from Tab2 to a list in Tab1 below each row. Finally i want it to the last record. Sub CopyPaste11() Dim i As Long For i = 1 To 6 'Copies the specified selection to the Clipboard Sheets("Tab2").Select Range("A3:U8").Select...

Hi I have recorded the following Macro but it seems to insert another extra row(third row) with format which I did not intend to record: Sub Macro5() ' ' Macro5 Macro ' ' ActiveCell.Range("A1:A10").Select ActiveWindow.SmallScroll Down:=3 ActiveCell.Offset(10...

Hi I have a data set which contains hundreds of cities and I want to run a pivot on each city and export each city's pivot to a new workbook. To accomplish this I ran a Macro to break each cities data out into its own sheet. Now for each city I would like to insert blank rows above the data and...

I have a file where some VBA is ran which creates an output into a new file and does some formatting etc and then the VBA return to the original file where the VBa was first ran from. The issue is the user will sometimes change the file name which creates an error in my code. Please see my code...

Hello. I'd love some help with "baking" the indirect formula, as i've never worked with it before. My formula is as follows: =IF(COUNTIFS($X$100:$X$500;$AC3;$W$100:$W$500;">"&1)>1;"2";IF(COUNTIFS($X$100:$X$500;$AC3);"1";"0")) I have a VBA macro for endusers to create a new row...

Hi, I've always wondered why this kind of codes doesn't work: Worksheets("Titles").Rows("1:1").Copy Worksheets(Array("V1", "V2").Rows(1)).Insert Shift:=xlDown Any help is appreciated.

How to get this Marco to work in 2016? Sub Send_Part_Number_Request() 'Clear current data Rows("102:155").Select Selection.ClearContents 'Copy data below to be sorted before it is added to body of email Range("B47:C97").Select Selection.Copy Range("B102").Select...

Hi all, I would like to ask how to refer a cell an read a value from there. Selection.Resize(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove I want that resize number refer to a cell and read that. For example in "BW5" cell there is a number (let's says 5) How should i refer...