I believe I am looking for a very simple VBA code but am not sure because of how my current Macro is structured.
During one point while my macro is running it checks a certain cell (B16) and if it is blank it will issue a message, "No Results" and will end sub. If there is results it...
I have the below code that used to run fine but now it seems to be getting hung up and excel now freezes and the macro does not complete.
Any idea what could be causing this?
Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...
Hi Everyone, I am hoping someone can help me with my issue.
I am trying to create a macro but there is one part where I am stuck. I need to insert a column, enter in 0 and convert to number with 2 spaces.
I am having two issues. 1. if i select the whole column it will add 0.00 all the way to end...
I have recorded the following macro
Sub Macro1() Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Range("$A$1:$C$500").AutoFilter Field:=3, Criteria1:="="...
OK so this has been working but now im getting a runtime error when it gets to this code.
Any advice? Greatly appreciated.
' Prep Macro
' Hide and prep columns for final save
' Resize and hide columns
Columns("A:A").ColumnWidth = 5...
Is there a way to delete all the rows int he selected autofilter in the below code. At the moment it only looks as rows 2:29.
ActiveSheet.ListObjects("Brecon_Mail_Merge").Range.AutoFilter Field:=12, _
I have a macro which does exactly what I need it to.
The macro is run and then there is another summary tab whichuses formulas with Named Ranges to calculate values.
There are 3 Named Ranges: (on ZTDA Tracker tab)
When I run my macro, the...
I have the code below in Office 365. The issue that I have are that it didn't want to copy the format correct, even if I add
the following code.
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
If I run this code...
So i am working on a macro that will allow me to open a window in workbook 1 to find an excel report file and then format that report. Once the format is complete it then copies and pastes to workbook 1 to the specified tab so that the original file is not touched or modified. I have 3...
I want to change the range that the macro pulls automatically, as below:
' Weekly Macro
I have the small pasted VBA below. I was wondering what code can I add in so that if it cannot find, it will move onto the next find? Thanks!
Dim rngName As Range
Set rngName = Range("L1:CA1").Find("Name")
Please, a need delete cells equal "*".
I try use this code:
On Error Resume Next
Do While ActiveCell <> ""
If ActiveCell.Value <> "*" Then
But... suceless :(
I recorded the following macro and would like to extend the macro to row 1,000. The macro inserts a row, deletes column C, then cuts cells A5 and B5 and paste the cells in F2 and G2. It then deletes 8 rows.
Then it repeats the process
' Macro1 Macro
Can you please help me by adjusting this VBA for autofill until empty and not until cell "C346"?
Thank you very much!!
' Keyboard Shortcut: Ctrl+y
Selection.ColumnWidth = 8.57
Trying to modify VBA in macro that we use to produce payroll data. The report process generates an Excel file, but it has 2 issues that I need to solve.
1. Stop deleting first 4 rows.
2. Stop deleting any columns.
The original report (from Pentaho 3.8) creates extra columns and merged columns...
Hi good people!,
This is my code:
On Error GoTo a:
Edit: I solved this right after posting. Solution is at the bottom in case you wanted to try to figure it out yourself.
My workbook has a sheet which contains eleven pages worth of cells to be printed. Three of these pages are required, but the other eight are only to be printed if they...
I have the following VBA program that kicks off an .exe.
The .exe was built using AutoIT, which captures mouse clicks and other things.
When I run the .exe outside of the VBA program, everything works perfectly - however, when I run it from within the VBA, everything works except the copy and...
Hello, I have a workbook with a a button, which I want to lock everything and delete the button. The following is the code:
Application.CutCopyMode = False 'clears clipboard
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select 'selects export...