Logging Changes To A Worksheet Range
Oct 29, 2009
i have a spreadsheet with the following range in a worksheet called "Data".
The range is A3:CH9 where column A contains the data label and row 3contains a label for each month. So the data itself is in B4:CH9
Is it possible to set a macro that logs any changes to the data in the range
B4:CH9 and log that change in another worksheet (eg: "Log"). It would say who made the change (based on the USERNAME), what cell was changed, when it was changed and what the value was changed from and to.
View 10 Replies
ADVERTISEMENT
Dec 12, 2008
I'm trying to automate some webscraping on a website that requires a login, and was wondering how I would do so using Macros with a specific username password somewhere in the spreadsheet, lets say B2, and C2 respectively. The website I'm trying to login is this; http://underground.chacha.com/account/. I think I have most of the scraping figured out; its just the log-in for now.
View 2 Replies
View Related
May 8, 2009
Is there a way to copy/transfer a cell value to an adjacent cell when the value of the cell changes. So if A1= 5, and it changes to 3, have B2 = 5 when this happens.
View 14 Replies
View Related
Oct 1, 2009
I keep a spreadsheet with the 50 or so wireless phones in our "lab". When someone checks them out, the rules are that they change the cell under Available to "NO" and add their user ID. When they return the device, they change the Available cell back to "YES". What I want is a log of who checked out the device, and when... which would be kept in "sheet 2".
I attached a small spreadsheet with the same columns and information you would see in the regular spread sheet. Sorry, I would rather have put it here, but I couldn't figure out how to do that.
The spreadsheet has code which updates the "Counter" when someone checks out a device. Many thanks to the "Rocket Scientist" who helped me with that.
View 11 Replies
View Related
Nov 30, 2008
I'd like to log live update data continuously,i.e. as the data in the cell changes. The problem I'm facing is that the data comes in at uneven intervals-- ranging from 30 to 50 ticks per second. So I can't really use a timer function. I need to use some function which saves the data as the cell value changes. So, for example, if cell A1 gets updated continuously, cell B1 could save the first value of A1 and then cell B2 could save the second value of cell A1-- and so forth.
View 9 Replies
View Related
Nov 7, 2011
I am doing an excel survey using forms. I want to restrict users from completing the survey more than once. i am using below code to input user login details in to a spreadsheet but i am not sure how to restrict them. I want a msgbox or some sort and then it closes the excel active workbook.
code to get username:
Sub GetName
Dim r As Range
Set r = Sheets("UserNames").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
r.Value = Environ("username")
r.Offset(0, 1).Value = Date
r.Offset(0, 2).Value = Time
End Sub
After looking through various forums i found code to highlight duplicates but not sure how this can be modified to suit my need.
Code to find duplicates:
Sub Dups()
Application.ScreenUpdating = False
Sheets("UserNames").Range("A1:A500").Select
Rng = Selection.Rows.Count
[Code] .......
View 5 Replies
View Related
May 20, 2007
I need a macro that records users accessing a workbook over a network and if I have not logged in after a 30 day period it will replace all calculations with data and if possible wipe all macros.
I have tried to nut this out but time is against me.
I have had my work taken to other sites within our business and passed of as their work, and it bugs me.
View 9 Replies
View Related
Jan 24, 2014
Building a Dive Record spreadsheet and Annual Statisics requirements to compute automatically. I have gotten this far:
=SUMPRODUCT(((M$10:$M$17="X")*($B$10:$B$17<>"")/COUNTIF($B$10:$B$17,$B$10:$B$17&"")))
Unfortuantely, I do not have a list of divers names for referencing. I am using these for testing purposes:
Column B Diver's Names: B. Dodson, L. Lloyd, D. Burch, C. Haley, J. Wilson, B.Dodson, B. Dodson Columns M through BO (types of dives): will have "X's" in them if a specific type of dive was made, Scientific, Working, Training, Non-duty... Shore, Boat, Ice, Cave, etc..
I need to know how many Divers made the type of dives. For example, if I make three dives in Saltwater, L. Lloyd makes one, and D. Burch make one, the answer needs to show 3 which is correct. If Dodson makes one, Haley makes one, and Wilson makes one, the number is 2 (actually 2.33). It works in some cases and not in others.
View 7 Replies
View Related
Apr 28, 2009
I am trying to use following codes for a add-in utility so that user can enable or disable logging activity for a given workbook.
My problem is to how to add the following code to a new workbook so that "Loginfo" function could be activated. I have tried some application... based commands but it do not seem to be working.
View 6 Replies
View Related
May 2, 2009
I have made an class and created a file to log when user change value or insert formula in a sheet get recorded in a file C:Logme.csv. The problem is it is recording the value and formula at random i.e in some instances it records the value and in some instances it is not recording the value and formula in logme.csv . I am unable to figure out why this is happening?
View 3 Replies
View Related
Mar 27, 2007
I want a macro in one worksheet to run when any cell (in a given range)on a different worksheet (dataentry) is updated. I have spent along time trying to make it work with no avail. The code I use to start my macro is as follows.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target(1, 1).Address = "dataentry!H5:IV72" Then
If Not Intersect(Target(1, 1), Range("dataentry!H5:IV72")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
View 7 Replies
View Related
Jun 12, 2007
In cell A1, I have the month number (eg, 1, 2, 3,). The month number reflects current month and will automatically change with every month. For example, right now its 6, next month it will automatically change to 7. Each two columns in Range A10:X20 represents the data from January to December. I want to use a worksheet event to change the background of the current month two columns in the range to yellow color and the two columns in the range will be visible when I activate this sheet.
View 3 Replies
View Related
Apr 29, 2013
I care about is the line starting wks4.Cells(Di, 2) = I am trying to sum data from a variable length column in worksheet 3 and place the result in column 4 However, when I hit enter after entering the formula into =SUM() I get
Compile Error:
Expected: list separator or )
[code]
Sub Macro1()
Dim wks3 As Worksheet Dim wks4 As Worksheet
Set wks3 = Worksheets("Sheet3")
[Code].....
View 4 Replies
View Related
Sep 17, 2013
Currently my Macro should: Turn off any filtersNumber column A from 1 to 1000 (starting in A14)Drags formula from K14-O14 down to last row of data shown in column Athen puts cursor in last empty cell in column B ready for user to enter data
On point 3 - I want the range to be K14-O14 if active worksheet equals "EXCHANGES" but if its on the "VALUATIONS" tab the autofill range should be L14-P14
I have found bits and pieces of macros on the internet and put them together so if my macro below is not the most effective for my needs but here it is in it's current state:
Here is my macro:
Sub AddNewEntry()
'TURNS OFF FILTER IF FINDS ONE ON
Dim wks As Worksheet
[Code]....
View 8 Replies
View Related
Jun 25, 2014
code to take jobs that are done on one spreadsheet and send them to the next available row of a specified range on another worksheet. I am also looking to incorporate a way to delete the empty rows that are left behind.
I have already made code to select the completed jobs, but am still unsure how to approach the next part. I can't even paste the selected range to another sheet without errors from range sizes.
The following code is done up to the point where I cut my selection.
Sub Update()
Worksheets("OpenGen").Activate
Dim c As Object
Dim rngA As Range
[Code]....
View 5 Replies
View Related
Jan 27, 2012
I am trying to write code to select a range in a worksheet where the last cell in the range is variable.
Sub DataTest()
Dim LastColumn As Integer
Dim LastRow As Long
Dim LastCell As range
[Code].....
View 8 Replies
View Related
Apr 28, 2006
I am receiving a 'subscript out of range' error on the lines of code below.
I would note that all variables are declared and all seem meaningful as regards what you would expect at that point.
Below is a snippet from the immediate window which indicates what the values are:
completecashname C:CashDevelopmentMyFolderoutputCASH042706.xls
cashsheetname Formatted Sheet
cashcurrcolumn A
cashfirstrow 2
cashlastrow 876
Also the workbooks are both closed at this point (but it makes no difference)
Set CashCopy = Workbooks(CompleteCashName).Sheets(CashSheetName). _
Range(CashCurrColumn & Cashfirstrow & ":K" & Cashlastrow).Value
Set PelPaste = Workbooks(completepelname).Sheets(PELSheetName). _
Range((PELCurrColumn & PELlastrow)).Value
View 8 Replies
View Related
Jul 16, 2014
[Code] ....
I have a code that copy a template and rename based on a range in a sheet call master.
However, I want to update it such that when new names excluding empty cells are included in the range, automatically searches all the worksheets and the create a new template and rename based the cell value.
Below is the code:
[Code] .....
View 1 Replies
View Related
Feb 1, 2008
I want an easy way for users to cross- reference a range in another worksheet. The specific range referenced will be dependant on the value in the currently selected cell in column B. I have tried using BeforeDoubleClick but the event does not seem to fire and the double-click simply goes to edit the double-clicked cell. Code below.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'***
'*** Reveal Chorus Mapping
'***
Dim PracticeStr As String
Cancel = True 'Prevent going into Edit Mode
If Target.Column = 2 Then
'get value in cell
PracticeStr = Replace(ActiveCell.Value, " ", "")
'take user to range with that name
Application.Goto Reference:=PracticeStr
Else
Exit Sub
End If
End Sub
View 2 Replies
View Related
Jan 18, 2010
I have two worksheets to track students registering for one day workshops, which are offered monthly. In my first worksheet called 'CourseCapacity' I track the number of students that can register for each workshop. It looks something like this:
Col A - "Title"
Workshop101
Workshop102
Workshop103
Col B - "Capacity"
5
10
7
My second worksheet tracks the current number of students registered for each workshop for each month. What I want to do is read the course capacity from the first worksheet and display it for the monthly offering of each workshop.
Col A - "Title"
Workshop101 - 1/23/2010
Workshop101 - 2/20/2010......................
View 4 Replies
View Related
Oct 23, 2009
I am using the below code which works perfectly in same sheet. But instead of range a1 and b1 in the same sheet (bold one), i want to use range a1 and b1 of sheet2. Range "Nazim" is named range in sheet1. And this code will be put in sheet1.
View 2 Replies
View Related
Oct 12, 2013
I know this is wrong -
Code:
Function LoadStuff() As String
With Worksheets("Sheet1")
LoadStuff = .Range("A1:A132").text
End With
End Function
But can I make it work - or must you get each row one by one ?
View 6 Replies
View Related
Mar 24, 2014
I am trying to autofill cells across a column that sum a range but move over 5 columns from another worksheet. for example, i want to take this range:
Schedule!AG6:AK6 and when I autofill, the next adjacent column will fill with Schedule!AL6:AP6, the next with Schedule!AQ6:AU6, and so on.
I have tried offset, but am not sure if that's the right formula.
View 5 Replies
View Related
Jun 2, 2014
Ok then, I can do this with record macro and it works ok, but im sure theres a nice way to get VBA to do this quicker and make it work for every row.
Story is - I have a spreadhset - which will have data in rows as normal. Each row when completed will have a button which when clicked - creates a new worksheet by copying one already there, then populates this new worksheet with the data from the first worksheet.
Dont ask why I am not allowed to use MS Access for this as its a bit of a long story.
This is what the record macro VBA shows - this works ok as I said but obviously takes a good few seconds and jumps around etc until its competed.
Code:
Sub create()
'
' create Macro
[Code]...
View 4 Replies
View Related
Mar 7, 2002
I'm trying to protect a certain range of cells in a worksheet from within Access.
My code is below:
Dim objExcel As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Worksheet
Dim intColumn As Integer
Dim intRow As Integer
Dim intRecords As Integer
Set objExcel = Excel.Application
objWS.Unprotect
objWS.Protection.AllowEditRanges.Add Title:="Classified", Range:=Range("$A$2:$D$65536"), Password:="".........................
View 9 Replies
View Related
Aug 29, 2009
I have the following line of VBA code that sums a range of cells on the active worksheet. I need to change that to sum on a specified worksheet. Is there a way to do that? I thought it would be simple, but have had no luck... Actually using variables for the cells, but simplified here for example's sake.
If Application.WorksheetFunction.Sum(Range(Cells(2, 2), Cells(123, 2))) = 0
View 9 Replies
View Related
Nov 17, 2006
I created an array from data on one sheet...then when using the array (in a loop) on a different active sheet, half the values in the array are lost. However, if I run the code and keep the focus on the sheet with the array data, it works. I can't understand why.
I'll include my code.
aDepartments = Worksheets("sheet1"). Range("A5", Range("B5").End(xlDown).Address)
For Each iZ In aDepartments
MsgBox iZ
Next iZ
If i run this while sheet1 is the active sheet, it works fine - all 15 values (15 in each dimension) are there. If I click on any other sheet and then run the code, only 7 values are in the array (7 in each dimension).
View 4 Replies
View Related
Sep 30, 2007
The purpose of my following code is as below:
1. Add new worksheet (say ws2)
2. Activate the worksheet ws2
3. Copy a predefined range from already open workbook (say ws1)
4. Select the target cell in ws2 through user prompt by using mouse or keyboard
5. Paste the copied range from ws1 at this location of ws2
I am facing problem in selecting the cell in ws2 as ws1 always remain in foreground.
Sub CreateNewWorkBook(RValue As String)
Dim wbA As Workbook
Dim wbB As Workbook
Dim sTemp As String
Dim rRange As Range
Set wbA = ThisWorkbook
wsName = ActiveSheet.Name
Set wbB = Workbooks.Add
WorkBookName1 = wbA.Name
WorkBookName2 = wbB.Name......................
View 5 Replies
View Related
Feb 20, 2008
why this works:
Worksheets("Sheet10"). Range("H9:i9").Select
whereas this does not
Worksheets("Sheet10").Range(Cells(9, 8), Cells(9, 9)).Select
View 6 Replies
View Related
Sep 8, 2013
I would like a Macro that can copy values from 5 rows in a worksheet, starting from Row 1. Each "Batch" copied to a new worksheet should contain values from 5 rows, so first batch would be from Row 1 - Row 5 β copied to Sheet 1 , then Row 6 - Row 10 β copied to Sheet 2 , then Row 11 - Row 15 β copied to Sheet 3 ...... etc. This should be done until there are no values in the last row.
So, the workbook would start off with only one worksheet, which could be named "source" for convenience and end up with many more sheets depending on how many rows are in the source worksheet, which can vary from time to time. There are 3 other "contraints/conditions that need to be considered 1. the number of columns in the "source worksheet may vary from 5 columns up to 30 columns. 2. The formatting that was applied to the values in the "source" worksheet need to be maintained. 3. The data posted should start in cell A1 for each new sheet.
View 2 Replies
View Related
