Reduce The Number Of Lines That Are Highlighted
May 16, 2009
I have the following code in a User form and I was wondering if there was a way to reduce the number of lines that are highlighted, but obviously still get the required results!
Private Sub cbSearch_Click()
Dim Product As Range
Set Product = Sheets("Master").Range("A1:A300").Find(Val(tbLookFor), lookat:=xlWhole, LookIn:=xlValues)
If Product Is Nothing Then
MsgBox "Incorrect Product code, try again"
Else
'Populate the userform with data
tbData1 = Product.Offset(0, 1) 'Down 1 row, over 1 column
tbData2 = Product.Offset(0, 2)
tbData3 = Product.Offset(0, 3)
tbData4 = Product.Offset(0, 4)
tbData5 = Product.Offset(0, 6)
tbData6 = Product.Offset(0, 7)
tbData7 = Product.Offset(0, 8)
tbData8 = Product.Offset(0, 9)
tbData9 = Product.Offset(0, 10)
tbData10 = Product.Offset(0, 11)
tbData11 = Product.Offset(0, 12).....................
View 9 Replies
ADVERTISEMENT
Dec 17, 2013
I have a problem where I extended a formula down to over 40,000 records which has increased the file size substantially. I only need it to scroll down to a few thousand rows now that I realized that there is alot less data to populate the worksheet. Is there any way to get it back to a scroll range that is more modest in size?
View 1 Replies
View Related
May 13, 2009
i have data in 1 worksheet say sheet1 which i copy to another sheet say sheet2. i do some processing like using some formulas on the data from columns A to D and getting an output in column E in the same sheet. Now the problem is, before i start the calculations in sheet2, the file size is 400 kB... and after the calculations are done, it becomes 20 mB... i dont know why this happens... there are some things which i think might be a reason but not very sure...
1. i calculate the last row in column A using
lastrow = Range("A65536").End(xlUp).row
i tried Range("A500") and it seemed fine... Now u may tell me that i can just use 500 and make things simpler but its just a workaround and not a solution...
2. i use macros.. this is just an info...
3. Another thing is, if i use 500, the number of active rows is 500... i dont know whether the right word is active rows but wat im trying to say is, the scroll bar for the rows movement reaches row 500 when it reaches the bottom.
View 9 Replies
View Related
Mar 18, 2009
I was created an annual leave planner and I would like the box in Colum A to reduce the number of days they have left every time they book leave. I would like it to start off as 25 days leave including UK bank holidays.
View 4 Replies
View Related
Nov 27, 2008
I'm using nested IF functions to reduce a large number of bands to a smaller set using the following formula:
=IF(LEFT(D4,1)="
View 9 Replies
View Related
Jul 9, 2012
I have code in VBA that takes a source Excel file and parses it to multiple re-formatted worksheets. Each formatted worksheet is different depending on a variable in the source. There are n of each type of data (1:n Water Sources, 1:n Water Treatment, 1:n Water Storage). Each item needs a copy of a blank re-formatted worksheet appended to the end of the existing data-type worksheet. For example: Water Source #2 is appended to the bottom of Water Source #1 on the same worksheet.
Currently, I am opening the blank re-formatted workbook each time an additional variable of same type is found in the source file. Meaning, if there are 8 Water Sources, I am opening and closing the blank re-formatted workbook 7 times to copy a blank Water Source to the bottom of the Water Source worksheet and then populate the data. AND if there are 3 Water Treatment, I would open and close the blank formatted workbook 2 more times to copy a blank Water Treatment to the bottom of the Water Treatment worksheet. The same goes for Water Treatment.
Obviously, a huge waste of resources and performance. I would rather open the blank re-formatted workbook once (first time an additional worksheet is needed), use the worksheets as needed, and close it at the end.
Attached is my current, working code of the above.
How should I re-write it to check if the blank workbook is already open use it, if not open it?
Code:
Sub Add_Facility(ByVal Worksheet_Name, Copy_Range, Max_Limit)
Dim Last_Row As Integer
Dim Source_Range As Range
Dim Dest_Range As Range
Dim wkb As Workbook
Set wkb = ActiveWorkbook
[Code] ........
View 5 Replies
View Related
May 8, 2014
Recently I work on a project involving various formulas and functions in it.
At this moment I am trying to add some option to my file and I will explain briefly.
I intend to include formula which will number the cell in a line (row) when it is filled with some data.
I guess it is connected with array formula and also may be COUNTIF function but could not figure out how to use it.
I will upload a sample file which will show the idea.
Sample file: Number the lines.xlsx
View 4 Replies
View Related
May 19, 2014
I recorded the following macro to move all entries in a sheet to a single column:
[Code] .....
Before the macro runs, my data is 11 rows long, after running the macro my data is 17 rows long.
What would be the syntax to add a loop for the macro to repeat the procedure every 11 rows until reaching the end of the data?
View 2 Replies
View Related
Jan 10, 2007
I am trying to copy part of one line of pasted information in to a certain place on the line below.
i.e I want
ABCabc
to look like
ABC
abc
This needs to happen for a large number of lines. I have already added a space in between all the original lines.
View 9 Replies
View Related
Jan 17, 2008
I am attempting to pull the Highest number out of a row of cells. Then grab the info 23 lines below. What I have is a spreadsheet that pulls from other spreadsheets and tracks all of my sales for the year. This is divided up into tabs for each day of the week. I am a formula to find the highest sales for Tuesdays {LARGE(Tuesday!B8:BB8,1)} then in the cell below it I need it to show the date that days sales happened on. That date is listed 23 lines lower. I have tried using {HLOOKUP((MAX(Tuesday!B8:B88)),Tuesday!B8:B88,23)}. This kinda works. It pulls from the 23rd line but only from the first column. Not the column that has the highest sales. I have searched for a solution but I must not be typing in my question correctly.
View 10 Replies
View Related
Dec 27, 2012
I have a spreadsheet with sales which I colour green when they are outstanding and red when they are despatched. I would like to automatically add a 1 in an adjoining column when the cell is green (eg outstanding) or zero when they are despatched so that it totals up the number of outstanding orders.
a b
172.95 (this column would be green)
024.00 (this cell would be red)
124.00 (this cell would be green)
132.25 (this cell would be green)
View 3 Replies
View Related
Jul 17, 2013
I am trying to display number of lines which depends on value pass by user. Actually user is passing some value. On which some group of lines has to be display.
E.g.
for 1 value 9 lines
for 2 value first 9 lines + another 9 lines
for 3 value first 18lines = 9 lines
and so on till 52.
View 2 Replies
View Related
Jun 11, 2008
I need to count the number of Carriage returns in a string of text in a group of merged cells also I need to add a carriage return after the 1024 character because I have the wrap text on. My overall goal is have copy text fit into a group of merged cells without any being cut off by excel.
View 4 Replies
View Related
Apr 29, 2014
i have done in Word VBA successfully (basically, change the Style for a certain number of lines):
VB:
Dim myRange As Range
Set myRange = ActiveDocument.Range(ActiveDocument.Range.Start, ActiveDocument.Range.Start)
[Code].....
View 2 Replies
View Related
Jun 11, 2014
I built a workbook that is used by our account team to summarize account status. Each worksheet has several cells that use conditional formatting to call attention to the status reported in that cell. Each manager sends their worksheets to a Senior manager who then consolidates into a single workbook containing approximately 50 worksheets. Once consolidated, the file size has grown to over 12 Mb and this needs to be reduced to a more manageable number, preferable 4 Mb or less. Prior to buliding the new version of this workbook, the file size was less than 2 Mb.
I have removed the Macros and believe the size is due to the conditional formatting in each worksheet.
Once the worksheets are compiled, is there a way to remove the conditional formatting and save the existing format - Similar to a "Paste Values" function? The senior manager does not need to change cell value to the formatting of the worksheet he receives could be saved.
To be specific - one cell turns has no color if the value is 10 or less, is yellow if 11 - 15, and Red if 16+. Once sent to the manager, the variance in this cell is not needed; he only needs to see the color associated with the value when sent. Next week he will receive an updated worksheet and a new value will be entered. The conditional formatting is only needed by the individual preparing the original worksheet.
View 3 Replies
View Related
Sep 12, 2008
I am a big fan of huge files (30MB+) all interlinked with array formulas ...and lots of them. The problem is...one calculation take literally 5 hours. (I have one file I try to calculate since cca 4 hours now...it's at 63%)
I keep getting extra memory with no visible improvement on the processing time. Is there a trick out there that I can use? Something is clearly wrong.
I feel I will soon have to give up Excel, or my formulas, or my job ...
View 14 Replies
View Related
Nov 30, 2009
I have a spreadsheet with 34K rows. I would like to reduce to only the rows that include a certain word.
View 5 Replies
View Related
Jul 31, 2013
The spreadsheet contains 3000 lines and the scroll bar has enlarged to as long as the whole spreadsheet.
When trying to scroll down it takes 0.001 second to scroll way down to bottom line.
It's too fast.
Tried deleting empty cells by Control "-". The spreadsheet either freezes/crashes/ or just get worse and the time it takes to scroll does not change.
View 7 Replies
View Related
Jan 12, 2014
I have a working VBA Module that needs to be reduced. If you notice I have copied it 5 total times to get it work the right way.
Code:
Sub TestingSub()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Set wsSource = Worksheets("Catering and Rental Worksheet")
Set wsDest = Worksheets("Catering BEO")
'Entertainment Sub Box Fill
wsSource.Range("D13").Copy
wsDest.Range("F17").PasteSpecial xlPasteValues
Application.CutCopyMode = False
[Code] .....
View 3 Replies
View Related
Feb 14, 2014
I have a table that constantly refreshes itself.
[ProductTable]
Product Quantity (live)
P1 10
[AnotherTable1]
Product Quantity Field_3 ... Field_n
P1 =vlookup("P1", ProductTable, 2, FALSE)
The lookup should perform once to find the cell of interest. Subsequent value update should not trigger additional scans. Is this case? If not, how do I cut down the time on the look up?
View 1 Replies
View Related
Mar 31, 2008
I have xls file size 50MB
I want to reduce size kindly give me some tips to reduce size.
View 9 Replies
View Related
Apr 20, 2008
Let's take the following dataset:
View 9 Replies
View Related
May 1, 2006
I got a CD with pricing and (high resolution) pictures (for printing). I've built the search/display macros for displaying a page on the net, so all I want to do is reduce the pics (Adobe Photoshop) to save memory - easy, right? Why can't I get the pics out of excel for work in Photoshop? I've done the tools>options>General tab>ignore other applications (clear) thing. I've done the "shift>edit>copy picture" or "right-click>copy" thing - but I can't paste anything anywhere. What's up? I didn't think I was this bad, but I guess I am; life is humbling.
View 4 Replies
View Related
Feb 13, 2007
I currently have an excel file with lots of formulas on quite a few pages and these are carried down for so many records - its sort of a template to generate information from/to certain sheets for many other purposes.
- is there any way to compress the file (without actually zipping it) as it must remain a working document?
View 7 Replies
View Related
Apr 28, 2008
My excel file has grown to 23Mb. It has around 10 worksheets and a similar number of userforms. Because the file is large, it slows down the VBA code when it encounters a save command. Is there any way I can improve this? Do userforms use alot of memory or is it the length of code? There are a few images on the userforms but the images are less than 1 Mb in total when all added together.
View 3 Replies
View Related
May 6, 2008
I have a column with numbers in about 500 rows. The entries are 5 numbers long and others 8. So I thought i could use one of the following: A macro code to tell a cell to delete the first 3 numbers if the entry is 8 numbers long?
OR
A macro code to tell a cell to reduce itself to 5 digits long starting from the right? Attached is a small example
View 3 Replies
View Related
May 15, 2014
Is there a way to reduce the Excel file size considerably? Any quickest and easiest way to reduce file size in excel ...
View 3 Replies
View Related
Aug 14, 2013
When we sell things here at a 'sale' price there is always an argument as to who's department needs to give the discount off.
Each job we do has a labour time and an hourly labour rate.
Each part has a profit in it.
So if something is normally £100 but we are going so sell it for £80 we need tio split the £20 reduction evenly to both departments based on the GP each department has in the sale.
See attached : GP Reduction per department.xlsx
View 4 Replies
View Related
Jan 8, 2007
I still cant figure out how to write macros. If someone could help me out with this I would appreciate it.
Currently I have a worksheet that is 20mb.
This file contains what takes up most of the space. I repeat this line many times throughout the worksheet.
010807.zip
Once again it is a zero eliminating code.
If someone could reduce the number of formulas for me, I think I could figure out how to adapt it to repeat throughout the sheet.
View 11 Replies
View Related
Apr 24, 2009
I have been building a spread sheet data base which I think is pretty simple.
It now has quite a few formula's and is taking time to calculate when I add data.
I have tried to simplify some formula's and get rid of complex one's that can be replaced with simple ones... Is there any advice or suggestions for reducing the calculating time..?
View 12 Replies
View Related