simplify code

=IF(($C$6-C29)>400,4,IF(($C$6-C29)>350,3.5,IF(($C$6-C29)>300,3,IF(($C$6-C29)>250,2.5,IF(($C$6-C29)>200,2,IF(($C$6-C29)>100,1.5,IF(($C$6-C29)>50,1,0.5))))))) I'm creating a worksheet to assist my chefs in their fish order. C6 refers to how many reservations we have that evening. C29 is the...

Hi all, I got this code and I got the feeling it's possible to simplify it. Got this piece of code alot for a whole set of ranges (column K, M, P, R and on). It take some time to write so if it's possible to simplify it will help me alot If (Target.Count = 1) Then...

Hi All, I'm looking to simplify my macro which is triggered when a value within a drop down changes. The macro then finds all rows within a table that do not contain that value that matches the drop down and calls a macro to hide rows that do not match. As this process contains a few steps in...

Hello! I just starting learning VBA to solve this problem. I have data that I need to interpret, but the way it is outputted makes it impossible. I figured out how to use VBA to solve it using this forum, but I am aware it is done about as clunkily as possible (i.e. I use a ton of 'Select'...

Hi all I have this part in my code, it works, but I'm pretty sure it can be written in less lines. And I can't figure out how exacly. Who can help me with this? Background info: This macro shows an InputBox where the user has to choose one of the GemOptions. The GemOptions are stored in sheet...

I have the following code: Selection.End(xlDown).Select Selection.ListObject.ListRows.Add AlwaysInsert:=True Selection.ListObject.ListRows.Add AlwaysInsert:=True Selection.ListObject.ListRows.Add AlwaysInsert:=True Selection.ListObject.ListRows.Add AlwaysInsert:=True...

Hello, I need to keep track of my colleagues daily/monthly progress and need to sum from multiple tabs (31 tabs) and multiple columns. Every tab is for a day of the month and im try to add Jon Does data from every tab, using Index Match to do this, but if just one of the MATCHs doesn't find a...

Hi, First of all thanks in advanced for your help. I'm fairly new to coding VBA in Excel. so I have managed to create the following code (which works as intended) and I am curious to know if there is anyway to simplify it as I need to add more lines to it. The intended result is that when a...

The following code is ALOT... is there a way to simplify it? It was most likely recorded. I'm sure it slows down the Macro significantly... and it hurts my eyes :eeek::eeek: Rows("1:1").Select Selection.AutoFilter Columns("F:F").Select Selection.Cut Columns("E:E").Select...

Hi all I essentially would like a simplified version of the following...

So my problem is that I have 900 lines of code in a Worksheet Change event sub. On my rig, it runs pretty quickly, but on the PC the sheet will be used on, it takes about 2 seconds to run, so from a productivity standpoint, it's not ideal. What the sub does is it colorcodes the rows based on...

HI, I'm new to VBA and wrote a very simple code to pull data from a survey and store it in a text file. The code is pasted below. I'd like to know if there is a way to simplify the code using For loops to step through the objTs.WriteLine commands and increment the number at the end of the...

Hi, All.. I'm running one code like this : Dim shape As Excel.shape For Each shape In Sheets("Chart").Shapes shape.Delete Next For Each shape In Sheets("Chart2").Shapes shape.Delete Next For Each shape In Sheets("Chart3").Shapes shape.Delete Next How do we make it...