I've built a simple inventory tracking system, and decided a reporting feature would be nice. There are four categories that are entered when inventory is removed...Date, Employee Name, Item Description, Location, and quantity.
Four my reporting purposes I'm only concerned with Date, Employee name and Item Description.
I've been able to write code that does what I want using a multiple Cases and a For loop once the case is identified. However, the more data there is the longer this takes...so I decided to stretch myself and try my hand at arrays (first time really working with arrays), but I'm having trouble figuring out exactly what I need to do.
Here is what I think the steps need to be.
1. Store my data (the categories above) which are located in the Check Out sheet
2. Go through the arrayed data to find exact matches based on my search criteria (here is where the Cases come in)
3. Pull out only that data and write the information to a "Report" Sheet
4. Export that sheet to PDF (this part I already have)
Below is a copy of what my current "working" code looks like (I should mention that the search selections are made from a userform this is what the Cases are deciphering between which ones are blank etc...), also most of my variables are instantiated as Public variables within a Public_Variables module also below.
Let`s assume that I have numerous "Serial Number" in "Sheet1" : http://i40.tinypic.com/2iqbspt.jpg
Now I want to create some cards in "Sheet2" that each card have a serial number that related serial number there is in "Sheet1" : http://i43.tinypic.com/34fz690.jpg. Need easy solution for doing it while when I drag one card to copying it then related serial number in sheet1 would be appear in required field. I mean first card has first serial number of sheet1 and second card has second serial number of sheet 1 ; but I want to doing it quickly with dragging.
when is it appropriate to us arr(1 to 10) Vs. For i = 1 to 10. I know this may sound like a silly question and expose my ignorance - but I suppose there is no other way to learn :|
I faced a problem to attach this small WB as an XLS
I'm looking for some way to some the red cells without looping.
In this example the array was filled with A1:A10 values. In the real situation the array gets its values from other source than a Worksheet Range.
As you can see I manged to transport the Array Values to F1:F10 and from here I could calculate the sum of F3:F8 but I do not want to use any helper columns.
I have created some code of which this is an extract
Dim i As Variant
i = Array(37, 38, 41, 42)
For Each i In i
'Some Code Next i
the routine works fine when the i variable is hard coded, but once the above is included it fails (Error 10 This array is fixed or temporarily locked).
I have a For loop, its an array with 5 file names in it. The loop checks for the files in the path, and if the file is there it places the file in the corresponding sheet in the workbook. If it is not, I get the option to browse for the file. Originally all 5 files were required, however now the requirements changed and only 4 are required the last file "byband.csv" is not required. So they want the option a message box telling the user the file is not required they can browse or keep going.
I worked out the second part but only by taking "byband.csv" out of the loop and writing a separate procedure for it, I wondered if in my original procedure I could isolate "byband" and if not found go to another part of the procedure. Basically, I needed to do the following:
If the file in the array byBand.csv is not found, Then:
vmbProceed = MsgBox(strFifthImportFile & strMessage, vbYesNo + vbQuestion, strTitle) If vmbProceed = vbNo Then Exit Sub Else
go to Line 1 in the procedure below.
Code:
Sub import_Employee_Data()
'This is Step 1 when the frmDataImportSplash is activated. 'This procedure imports the byEmployee.csv sheet. The procedure checks if the file is 'in the same directory as the template. If the file is not there, a browser window appears to allow the user 'to browse for the missing file. A series of message boxes guide the user through the process and 'verifies that the user picked the right file. The user can cancel the import at any time.
Dim strPath As String Dim strFirstImportFile As Variant
how to fill array with cells form selections and loop my macro for each cell of that array.
Code: 'this is macro I need to execute for each cell in my selection. Here I threat each cell from selection as solo selection.
Sub SELECTION_CELL_COUNT_SINGLE() Dim z As Integer, q As Integer, X As Boolean, I As Integer, txt As String Dim tmp As String, J As Integer, K As Integer Dim sStrip As String
I would like to use array v to store all the results of the for loop u...How can Ido it?
Dim myRange As Range Dim AnsRange1 As Integer Dim AnsRange As Range Set myRange = Application.InputBox(Prompt:="Select row to insert 10 rows below", Type:=8) AnsRange1 = myRange.Row Dim u As Integer Dim v As Integer Dim var() As Single v = 0 For u = 23 To 24022 Step 9 var(v) = u Next u If Not (AnsRange1 = v) Then MsgBox AnsRange1 Else Range(AnsRange1 & ":" & AnsRange1 + 9).Insert Shift:=xlDown End If End If
trying to loop through an array, with each loop calculating a formula (VLOOKUP) for one cell based on the values of a cell in another sheet.
Not sure but I think it has something to do with looking up a text value while the loop returns a value.
Private Sub ExpandFormula() 'calculates Counttarget formula in COUNTTARGETS sheet across required range Dim CellsDown As Long, CellsAcross As Integer Dim i As Long, j As Integer Dim TempArray() As String Dim TheRange As Range Dim CurrentValue As String
'get the dimensions CellsDown = Worksheets("SEPARATE").Range("D9").Value CellsAcross = Worksheets("SEPARATE").Range("E9").Value
'redimension temporary array Redim TempArray(1 To CellsDown, 1 To CellsAcross) .....................
Is it possible to use an array without looping through it? I have code that has two loops: One that is just for the array and the other that loops through the data. It would be nice if I could get it down to one loop, but I'm not sure if it's possible. For example, if you have Dim varArea As Variant
varArea = Array(1,2,4,6,8,12)
For x = LBound(varArea) To UBound(VarArea) Do While Not C Is Nothing Code here Is there a way to advance to the next item in the array without using the loop.
I am having a problem calling buttons. I have an array with button names and another array with their caption texts and I would like to call them one by one in a for loop:
For i = 1 To UBound(button_array) Sheets("Statistic").Shades(button_array(i)).Caption = button_text(i) Next i
But the only way I seem to be able to call them is by their set names, like:
I am trying to fill an array with only a few values within a loop (when XspacingA is 0.5, add the value of the Line to the array) and keep getting the error "Subscript out of range".
I have created a macro that loops through and creates an array of the visible sheets. Now I would like for it to print each of those sheets out. I think my main mistake is in my declaration of the array type, since I have not worked with arrays much before.
how to make the following code operable. Currently when I run it I'm getting a "Run-time error (9): Subscript out of range" error.
I have to use VisibleSlicerItemsList as it is an external data source (so cannot use ActiveWorkbook.SlicerCaches(Slicer Name).SlicerItems(Slicer Valuel).Selected = True/false)
Now, when user chooses 2,3 or more countries, they will be in cells A2, A3, A4... etc.
So, if the user selected 2 countries I would need to run a following code:
I'm hoping to automate some pivot table refreshes. I've got a dozen pivot tables on a sheet all with different numbers. I'm hoping I can write a code that loops through the pivot table names and runs the refresh. Here is the code as it is right now. I've essentially copied, pasted, and changed the name of the pivot table for the refresh.
I would like to create an array in vba (22,21,20,19,18...) that renames the PivotTable and runs the code.
sub Refresh () Dim pt4 As PivotTable Dim Field4 As PivotField Dim NewCat4 As String
I am trying to loop through column A and I want to store in an array where I find "App" within the cell value. I am trying to find "App" but will store the whole cell value in the array. I could not figure out the Find method, so I tried the MID function but am having no luck.
Here is my code:
Code: Sub Arraytest() Dim arr As Variant, lastrow As Long, i As Long, f As Long, l As Long f = 0 lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row ReDim arr(1 To 1, 1 To lastrow)
If I have a spreadsheet with 52 weeks or 365 days worth of data on it, is there a way (without using the hide function) to display dates of a certain range? For example, I only want to see the data from week 30 - week 40. Is there some kind of macro out there that I could maybe enter start date and end date in to a 2 cells (start date & finish date) and it will automatically filter it for me?
I am building an excel folder with 200+ work sheets in it. there is a master sheet which i collect the rest of the data for the other sheets. My problem is, is that i want to be able to change the sheets quickly on the master sheet when i copy and paste or drag down. The formula that i am using in the cell on the master sheet is =SUMIF(sheet18!$B$4:$B$30,"rd1",sheet18!$E$4:$E$30)
Is there a way to quickly change the sheet from 18 to 19 to 20 and so on, or do i have to go into each formula and change it manual??
Any quick way of deleting all named ranges within a given workbook? I can loop over them, but it takes forever. (I've got about 20,000 names in total).
Turning the normal things off doesn't do much good either (e.g. auto-calculating, events, etc)
I have a single column with references on sheet 1, on sheet 2 I have a single named cell 'FormRef' which contents change (references). Active cell is in sheet one column A (column with references). If I use the FIND function dropdown and enter the '=FormRef ', Excel to quote "cannot find data".
Like a shortened version of vlookup I think. I want the active cell to go to the cell that has the contents of the single named cell in sheet 2
i am use dir to put into an array all the folders in a folder then enter the first folder and repeat. the problem i am having is when it encounters a file it also puts it into the array and then errors once it trys to enter that "folder" (which is a file)
right now the code doesnt do anything but the plan is then to call another subroutine that lists all the files im looking for in a folder (that sub does work)
what am i doing wrong? all the things i can find on google show it the way i am doing it.
Sub GetDirList(topfolder As String) Dim FolderArray() As Variant Dim FolderCount As Integer Dim FolderName As String
FolderCount = 0 FolderName = Dir(topfolder, vbDirectory) ' Loop until no more folders are found Do While FolderName <> "" If Not FolderName = "." Then If Not FolderName = ".." Then FolderCount = FolderCount + 1 Redim Preserve FolderArray(1 To FolderCount) FolderArray(FolderCount) = FolderName End If End If
Is there a way to quickly format a cell so that it acts as though it is just a number and can still be used in a formula but also have a label? For instance I would like to be able to type in "10cm" and have the cell equal 10 and have it formatted to "General cm".
I realize that this is possible with the cell formatting menu, and can be applied to lots of cells at once, my question is can this be done somehow by just typing into the cell so that I can enter lots of cells that may have different labels without having to go into the cell format menu for each one.
When I type an 11 into my textbox (in my userform), I believe that the moment I type the first 1, the "event" kicks in. Is there anyway that I can have the change even "wait" until I am finished typing in all the digits of my number?
Code: Private Sub TextBox1_Change() Dim prime As Integer, divisor As Integer, currentcol As Integer Dim faccount As Integer, currentresidue As Long, currentfactor As Long Dim i As Integer, j As Integer prime = TextBox1.Value TextBox2.Value = prime - 1 'Write divisors across and phi of the divisors across at the bottom Spreadsheet1.Range("c2").Value = 1
I want to clear the range A10:IV65536 or all the cells containning numbers under the row A10.
Right now it takes for ever to clear it mannually because excel recalculates everything... i have over 100 000 data and id like to find a way to delete them quickly.
Is there a way to clear a range without excel recalculating everything???
If not the best way i think would be to clear the last columns first all the way to the first columns.
I am using Excel 2003 to run a workbook that contains 60 separate worksheets. To make it easier for the techs to navigate the workbook I created a block of 60 autoshapes, (5 blocks high x 12 blocks long) each block hyperlinked to each worksheet and labeled with the worksheet name. I then placed one of these blocks at the top of every worksheet. A tech can click on the block and it takes him right to the page he is looking for, pretty straight forward. It works very well, but as you can guess this is a lot of autoshapes to be stuck in one workbook (3600) and whenever you make major changes to the workbook than the blocks become a factor, and if you resize the columns or add one, or change a worksheet name... I thought about just creating 60 custom buttons and sticking them on a custom tool bar - but I found trying to create a button with a number on it like "34" (for "worksheet 34") was pretty tough in the button editor.
way to create a set of hyperlink buttons that will allow you to quickly navigate through 60 worksheets?
