.tintandshade

Any tips on cleaning this up to make it run a bit quicker? I've done all the tips i know, which is basically shutting off calculations, screen updating, etc. until the end. There is a lot of selecting and formatting but every time i try to mess with it, it breaks it. Thanks in advance! Sub...

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...

Hello, I have some conditional formatting to apply across numerous rows in my worksheet and I would like to speed up that process as much as possible by using VBA. Ideally I will select some cells and then the VBA would run through each row and apply the Red (High) - Green (low) cell colour...

Hi all. I'm hoping somebody can help please. I've recorded a macro for one of my pivot tables, but I would like this recording to be applied to 3 other pivot tables in the same sheet. At the moment, my code only references a range (A1:J14) and not the pivot table (PivotTable5) - can anybody...

Hi, I was hoping for a bit of help with this VBA code please. What I am trying to accomplish, is a general macro that can be used on each Client sheet (rather than a macro for each individual sheet) that can cope with changing data and it's location (although the data headings will always be on...

Hello I have the below code (I am only providing the bottom half of the code as it is long). What I would like to do is where I left the first gap in the code I want the macro to check if Cell B16 is blank on sheet: "weekly process", if yes I want it to skip to the next blank and run from there...

Hi All I am really having a hard time computing the correction rate from a pivot table. Correction Rate is computed by adding up NA,Within 1 Day, Within 3 days and within 5 days divided by the Grand Total. However, if I have uncorrected items, my codes dont work. Uncorrected shows up in column...

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, The code is supplied below, All was working spot on until the code in Red was added. Basically i recorded a macro and took the coede from there and placed it here. What is hould do is the following. Range A4:E30 add All borders "thats it" But whilst you are there i would like to also add the...

Hi! Hope y'all doing just fine... So I have this problem with a recent code I'm working on. Basically I want to apply some formatting to the color off a range of cells after I run this macro I've created but it keeps telling me that there's a "Next without For" and I don't understand why... I...

I have a followup question to an earlier post. The formulas are all working great. However, I need for the coding to overlook 3 customers when selecting the "Top 5 Customers". These customers are GMIT, BGS GRM, and GMIT SC. I'm not sure how to incorporate this into what I have currently...

Hello Everyone. I just recently got upgraded from Excel 2013 to Excel 2016. When I had 2013 version, I built a vba code where I created an Excel workbook instance, posted some data into it via Access vba and then once it is done the code will connect to my Personal.xlsb and run a build in macro...

Hi all, I'm currently looking the lines of code to link different items coming from 2 different listboxes. Here is my code that allows to, at least, link items of a single list between them: Here is the macro applied to the commandbutton that displays the items of the listbox in an excel...

I would like to color a range of cells a particular color upon entry of 1 of 6 identifiers: o, o!, o#, y,y!, and y#. I do not wish to use conditional formatting, because I want to assign the code to other buttons for other users (unique coloring system). I have the following code, but it seems I...

Hi, Please could someone help me? I have this following 2 codes that works fine but I was wondering how it can be made into 1 code? Cells(Rows.Count, "A").End(xlUp).Select Selection.ClearComments With Selection.Interior .Pattern = xlNone .TintAndShade = 0...

Hi, I have a long sub that goes column by column and does various formatting. In the below section of code it conditionally formats a column based on the column number. Unfortunate when the raw data is imported into the sheet it will sometimes not line up correctly but the column names will...

I am trying to run a macro to edit a table's formatting including table totals. Some tables do not have table totals and this is creating an error. How do I insert an is error inside my code? Range("A2").Select ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium8"...

Hello friends, I have looked for an answer to my question but have not been successful. Therefore, I am asking the experts here. Let me explain what the VBA window looks like. The project explorer shows: AddRemovePlayerForm PlayerSelectForm Sheet1(Setup) Sheet2(8 Teams) Sheet3(8 Teams...

when the file is downloaded it always has a random name that begins with "report...….." the numbers part is random. I am trying to modify the code so that it will work no matter the name of the file and worksheet. see code below: Option Explicit Sub MORE_ReportFormatter() ' '...

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...