counter

I am a librarian interested in tracking book checkouts over time. I only need to track how often an item has been used, not when or by whom it was used. My library is too small to justify the purchase of an ILS (circulation software), so I am looking for a simpler solution using what I already...

I am trying to determine the number of rows of data in a Pivot field. My code looks like this: Sub LookupCommon() 'A sub to populate the CSV file with common data Set WS1 = Sheets("5. Final CSV") Set WS2 = Sheets("4. PivotTable") Set MyPivot = WS2.PivotTables(1) Counter =...

I have developed a Macro for my work, and it's going brilliantly. Thanks to everybody on here so far who has helped. The next stage is for me to create pivot tables of the data. I have a table called "Final" data which contains the data for the pivot table, however the format of the pivot...

Hi, I have the following code. When I run it - this line of code triggers an error: Set rng_clients_prev = ThisWorkbook.Worksheets("Daily Totals").Range(Cells(4, col_Arr(0)), Cells(finalRow_clients, col_Arr(1))) error message: Run-time error '1004': Application-defined or object-defined error...

how i create counter that count down to 9/5/19. I not sure how do that? i want day hours minutes and sec Thanks you Thomas

I am using a sub I got from the internet that randomly highlights cells. what I need is to have the counter reference a cell instead of being set in the code (see below). I want to be able to put a value in cell H1 and that replace the 150 in the formula. This would make it easier as my sheets...

My sheet named Database has numerous rows of data. The first 2 columns have titles, and the user can select from these titles in a drop down list and filter the data so it only displays results that contain these titles. In addition to this, I have another subroutine called GetNextResult. The...

i have question time that counter for code Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim hour As Boolean hour = Not (hour) Do While hour = True DoEvents Range("A3") = TimeValue(Now) Loop End Sub how i get to start when you open the file witout click anywhere in a cell TY Thomas

I have an advanced filter set up and separate to that subroutine I have another subroutine that loops through the filter results and places the value into a text box. That all works fine but I'm trying to include a counter so for every result that's being displayed the counter goes up, and then...

Hello All, I am having an issue with this little piece of code. For some reason it is only transposing the information every other line and has been driving me crazy. I am still pretty new to VBA, so any help would be greatly appreciated. Dim numrows As Integer Dim counter As Integer Dim x As...

good afternoon all. i have a vba program that populates text/list boxes on a form, based on a users request in the form. it reads off a excel sheet that has delivery information for fedex shipments. the cells that contain the delivery "street address" are giving me an issue because they...

Hello guys, i'm storing a range of variables into a 1d array and i want to remove the duplicate variables beforehand instead of clearing the array after. My function is: Function StoringIntoArray(startSKU As Long, endSKU As Long, columnSKU As Long) Dim arTmp Dim skuArray() Dim...

Good afternoon all. is there a function in VBA to have a "counter" to record how many times a form gets used?

Hi, I am new to VBA and trying to create a form for a gas station. The form is made so a user can enter sales information and it will calculate month to date totals as pages are added through a new day button at the top. The button should create a new sheet that is named as the next day. The...

Hi all I need to gather numbers from different columns of each lines into one cell ( for each line) in the following format, I am not succeeding with the engineering format and the counter 1.1,2.1 ,etc : 1.1,2.393e+00, 1.019e+01, 1.560e+00, 2.821e+00, -2.505e+00, 4.428e-01 2.1,2.393e+00...

I have this code this list the files of a folder into a ListBox called "Filelist". how can i modify the code to include the files in its subfolders? Function FileArray(Path As String) Dim Name As String, Counter As Integer, Files() As String Name = Dir("C:\Users\USER\Documents\*.xls"...

When we get a cell trigger, like when a "2" appears in a certain Cell I need to change the start counter in Countif as follows: At row 15 I need something like these: If(ao14=2,countif($A$(row15):$A15,C$5),countif($A$5:$A15,c$5)) or If(ao14=2,countif($A$(B15):$A15,C$5,countify($A$5:$A15,C$5))...

I have code for Hiding and Unhiding rows in Excel sheet. Current problem is: 1) Running twice NewUnhideJobs (position of second section) 2) Running once HideAllJobs 3) Running NewUnhideJobs As the result we have position of third section and not first as it should be. So NewUnhideJobs does...

I have a macro running through 300+ rows of data just fine then suddenly I get the Type Mismatch error and I just cannot figure out why. Here's the portion of my code that's causing this. It bombs out on the If statement. Any help would be most appreciated. rownum = 2 counter = 2 For counter...

I don't know that much about writing macro codes. I got this code on the internet, and it puts the header in all of my worksheets. I only want to put it in one "Enter Header Here". I see where in the code it is referencing the entire workbook, but I don't know what to put in to limit to the...