.weight

I have the below code. It used to work fine but suddenly when I run it it will start to run fine but at the end it will display the message box "update complete" but the entire workbook is frozen and grayed out/parts of text everywhere etc. However the macro works fine if I run it straight from...

Hi all, I am really struggling to use VBA to automatically add borders - see below: Data is always from column A to S but varies in length Task 1 - Add an extra think border around the whole worksheet (Code is below) So essentially I just need a way of selecting all the cells from A1 to the...

Hi All, Hopefully a very simple question. I have a part of a larger macro that selects a range and then draws a box around it. I would like to extend the range that the box is drawn around by one cell at the bottom. I've fiddled with it unsuccessfully. Code below. Thanks for your help...

Hi to all, iam new here and stuck atone point. Desperately need help. I have a macro which is working only for a single transaction. What it does is, it take value from INPUTsheet.A2 cell then runs SAP gui, SAP gui exports a excelfile(SAPTO.XLS) to temp location. Then macro opens the file...

I havea column that need to apply thick border around individual cell if cell fromanother column (same row) meets criteria. Column K row 6 and below is thecolumn need to apply thick borer to. Column BK row 6 and below is the column itneeds to check if it contains specific content. example: if...

Hello I am new to the site and hoping someone can help me. I have large data set that feeds in to a pivot table for multiple categories which then needs to be split on to separate worksheets and formatted. I am a novice when it comes to VBA so have recorded a macro and replicated it for each...

Greetings everyone! I'm working on a macro to do my daily copying/pasting for me. It works by copying data from a daily updated PivotTable and pasting it in the correct sheet/cell location. Here's a picture of my table just to give you an idea of how my data is set up...

Hey guys- I have a sheet, probably excessively long based on my newness to VBA, that is adding an extra sheet instead of just the "Noon" it's supposed to....maybe someone spots an error I can't find. Thanks! Sub AddNoonSheet()'Speeds up the formating part Application.DisplayAlerts =...

Greetings - this works, but is more of an optimization question. I am wanting to add borders (all) around my selected range. Is there a shorter way to write this code? This is what the Macro Recorder created Range("A1:" & colName & lRow).Select Selection.Borders(xlDiagonalDown).LineStyle...

Hi, a member in another thread just helped me out with the below code and it now works great. The code/macro is run when a 'Form Control Button' is clicked in the active sheet. Could someone please help me with adding a password setup and where to place it in my code: Password Box: "Please...

Hi, could anyone please help me with the below code (Format_Sort_PSA_TL): It is a recorded sequence of multiple formatting, print setup and sort events. Recorded in one worksheet only named 'Booking.' Executed by clicking a 'Form Control Button' within 'Booking' worksheet. Works as...

Hi all, I got a Excel file that contains all my reports that are on the same tab one after the other. Each report has his own personalize print layout (different paper size, some are on one page, others are separated on two pages, etc.) Some report became so big after some time, that I need...

Hi, I currently have the code below in use. Private Sub CommandButton1_Click()Dim CustomerName As String Worksheets("DATABASE").Select CustomerName = Range("A6") Worksheets("INFO").Select Worksheets("INFO").Range("CF2:CI2").Select If Worksheets("INFO").Range("CF2").Offset(1, 0) <> "" Then...

Hello! I am getting an "Else without If" error message on the following code. How can I make it recognize the Else for the second If statement? Thanks! (The purpose of the macro is to format a column or set of columns in a pivot table, beginning on row 4, based on how many data points there...

Hi, Please can you assist to make this recorded macro much more of a simple looking code. Range("F16").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle =...

Hi, I have a dynamic range with column headings (from columns A to R) for which I need to add totals to each columns from L to R. I have the following code which works; Dim lastRow As Long lastRow = Cells(Rows.Count, "D").End(xlUp).Row Cells(lastRow + 3, "L").Formula = "=SUM(L2:L" &...

Hi Guys, I have a range from I10:O99, which needs formatting, prior printing. The formats include : Borders Font Verdana / Size 12 Font Colour - Black or Red - Which I can change later Align Horizontal - Left Align Vertical - Centre Row height = 30 Column width = 12 I have done it using a...

Hello! I have a VBA code which was built in 2006, worked in 2016, and broke in 2017 when we updated to Excel 2016. For the life of me, I cannot find the issue. This code is designed to link from excel file 1, copy information from excel file 2, and paste it to a worksheet in excel file 1 with...

Hi, I am very elementary when it comes to creating macros and code. I have a macro that was given to me to run on data that I exported from an application with only certain columns. This macro is supposed to format the data as needed for meetings. I am trying to run the macro and getting the...

Hi, I would like to add borders to all cells within the range of columns U:AE, starting from row 5, all the way down to the row where column B is still populated with data. Columns U:AE will at times be blank, hence I need to reference another column that will always have data in. Finally...