Create Text Event Log To Track Changes
Sep 30, 2007
I want to create an event log by which I am able to track changes by the users. we work on LAN and any body can write on the workbook. my work is to check for discripencies. If I get any type of help by which I can track the user name, date, cell that has been changed and the PC address. I got this code from ozgrid. in place of "c: racker.text", I used the path where to place the event and I was successful.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Locked Then
TrackFile = "C:Tracker.txt"
TargUser = Application.UserName
TargAddr = Sh.Name & "!" & Target.Address(False, False)
TargVal = Target.Resize(1, 1).Text
TargDate = Format(Now, "yyyy/mm/dd hh:mm")
x = TargDate & vbTab & TargUser & vbTab & TargAddr & vbTab & TargVal
Open TrackFile For Append As #1
Print #1, x
Close #1
End If
End Sub
I want to get the PC address from where the changes were made.
View 2 Replies
ADVERTISEMENT
Jan 16, 2007
I have the following code what it does, is when a user changes a cell it copies the row to another sheet along with the userstatus. Problem is if the user pastes more than one column of data into the sheet it copies the row more than once depending on the amount of columns the user pasted . I only want to copy the row once.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SelRng As Range
If Not Intersect(Target, Range("A3:K30")) Is Nothing Then
Set SelRng = Target
Application. ScreenUpdating = False
For Each cell In SelRng
Range(Range("A" & (cell.Row)), Cells(cell.Row, Columns.Count).End(xlToLeft).Offset(0, -5)).Copy
Sheets("Tracking").Select
ActiveSheet.Cells(Rows.Count, 31).End(xlUp).Offset(1, -13).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 13).Value = ActiveWorkbook.UserStatus
Sheets("Engine 1").Select
Next cell
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
View 7 Replies
View Related
Dec 20, 2013
Time. What formula do I use?
6:30AfterBreakfast
7:30AfterBreakfast
8:00AfterBreakfast
8:30AfterBreakfast
9:00AfterBreakfast
9:30AfterBreakfast
10:00Before Lunch
11:00Before Lunch
12:00Before Lunch
13:00Before Lunch
14:00Before Lunch
14:30After Lunch
14:45After Lunch
15:00After Lunch
16:00After Lunch
17:00After Lunch
18:00After Lunch
18:30After Dinner
18:45After Dinner
19:00After Dinner
19:30After Dinner
View 2 Replies
View Related
Aug 22, 2009
I am trying to make a tally sheet to keep track of my inventory of inserts. I am trying to make it as user friendly as possible as my operators do not have much experience working with computers. I will attach what I have made so far. The only math functions so far are: C4=B15-C15.
Right now the operator has to look at C4 to see current total, type that number into B15, then in C15 type the number of inserts thrown out to show a new current inventory total in C4. Is there a way I can set this up so that all an operator has to do is type in only the number of inserts thrown out in C15 to give current total in C4. Is there a way to make B15 know what is in C4 without the operator having to type it in. If so is there also a way to make C15 the only cell that can be edited.
View 3 Replies
View Related
Dec 16, 2011
So I'm trying to create a balance ledger to track my transactions at different locations.
This is basically what I have:
C4 = numerical value for site A
D4 = balance for site A
E4 = numerical value for site B
F4 = balance for site B
G4 = total balance of both sites
Values for C4 and E4 are manually entered.
D4: =IF(OR(ISBLANK(D3), ISBLANK(C4)), "", D3+C4)
F4: =IF(OR(ISBLANK(F3), ISBLANK(E4)), "", F3+E4)
G4: =IF(AND(ISBLANK(D4), ISBLANK(F4)), "", D4+F4)
I have these formulas auto-filled to the bottom of the sheet of each column. The problem I'm having is that with this setup, the return on the G column is giving me
#VALUE!
for all rows that do not have any values entered yet. Is there any way to fix the formula in column G so that it reads the value of the cell instead of the formula in the targeted cell?
I am using Office 2010 on Windows 7.
View 2 Replies
View Related
Feb 22, 2008
I am attempting to merge a scroll bar and an activeX text box. I currently have a horizontal scroll bar that links to a cell with values from 1-20, A dynamic label in the adjacent cell changes when the scroll bar moves. I need the label to be inside the scroll bar track/tray. I was told an activeX text box would do the trick. However, i am new to VBA and activeX text boxes any code or solution to this problem. Conditions:
The slider and the track should overlay the text box label
The track should be transparent but on top of the label
The label should be a perfect fit to the slider's tray
Here is a reference to the scroll bar labels. I have posted an example file of what i am attempting to achieve.
View 2 Replies
View Related
Dec 17, 2013
I am trying to create a spreadsheet that will keep track of budget spent and budget remaining.
I need the values to take what is spent from expenses claim forms that are filled out,
Each budget category has a code and within that code there are sub heddings
View 2 Replies
View Related
May 29, 2013
I want to write a macro , which creates a form and once the user double click the form i get a popup message "hello" , but when i run my code i get compile error : Sub or function not defined for the line Sub one().
This is the code on my module:
Sub one()
CommandButton1_Click
End Sub
And this is the code i get when i double click the button
Private Sub CommandButton1_Click()
msg "hello"
End Sub
View 1 Replies
View Related
Nov 15, 2006
I'm trying to add a worksheet event via code. It works OK when I run it on its own but I get a run-time error 9 subscript out of range error when I try to run it from another procedure.
Please find attached my 2 bits of code. Any help greatly appreciated.
This is the bit that works OK on its own but not when called from my other procedure
Sub Code_To_Write_Code()
'This writes code to the new sheet
Dim StartLine As Long
Dim SheetToAddCodeTo
SheetToAddCodeTo = ActiveSheet.CodeName
With ActiveWorkbook.VBProject.VBComponents(SheetToAddCodeTo).CodeModule
StartLine = .CreateEventProc("Calculate", "Worksheet") + 1 ..............
View 9 Replies
View Related
Nov 25, 2011
I am trying to create a trigger event that opens an email when a particular row is altered. This all worked fine, until I tried to take it a step further and insert information from the spreadhseet into the email aswell.
I receive Argument not optional.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then
Call GenerateEmail(Target.Address)
End If
End Sub
[Code]....
View 9 Replies
View Related
May 21, 2008
I have a code that adds a couple of ComboBoxes to a UserForm (the number of ComboBoxes is variable). Now that I want to control a certain ComboBox based on the selected value of another ComboBox (change or click event), how do I do that via VBA code?
View 3 Replies
View Related
Jan 20, 2010
I have a userform with a text box.
The text box has a change event associated with it Depending on the circumstance I want to disable the change event for this textbox.
I have tried application enabled /disabled but this is only for work sheets
I have tried the following with no avail Public mbEvents As Boolean 'added this in so all the modules can accsess it
mbEvents = False
If mbEvents = False Then Exit Sub
do my code here
mbEvents=true
View 9 Replies
View Related
Mar 14, 2007
Referring to the same code in this thread: Run-time Error '6' Overflow
With a TextBox there seems to be no OnFocus event or anything. I am having a hard time automating some simple addition by tabbing through a few text boxes. If you pay attention below, I want txtTotalRejected.Text to be the sum of the 5 previous text boxes, and txtPercentReject.Text to be the percent of dividing txtInitialBurn.Text and txtTotalRejected.Text.
I have it set up to do this on txtBadMedia_AfterUpdate, but WHAT IF THEY DON'T UPDATE IT? None of the math is ever done.
Is there something I am missing? I don't want a "Calculate" button.. and I am not accustomed to VBA, but VB.NET. A lot of the events are not in this version it seems.
Private Sub btnSubmit_Click()
ActiveWorkbook. Sheets("Rejections").Activate
Range("A4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtDate.Value
ActiveCell.Offset(0, 1) = txtWO.Value
If optCD.Value = True Then
ActiveCell.Offset(0, 2) = "CD"
End If
If optDVD.Value = True Then
ActiveCell.Offset(0, 2) = "DVD"
End If
View 6 Replies
View Related
Mar 17, 2007
to save typing the same things over and over I have created a dialog box with checkboxes, named with several common terms we use when writing an invoice. i.e. dig a hole, paint a fence etc. I have assigned the dialog box to a button on the worksheet.
When I check the checkboxes, I want the text to go to a blank section of the invoice one underneath the other. The reading I have done suggests this is an event-handler subroutine, I just don't know enough about VBA yet to be able to write the code.
View 9 Replies
View Related
Mar 27, 2009
Is there a way to write a Worksheet_SelectionChange (ByVal Target As Range) event in module after creating a sheet in VBA? I constantly delete a sheet, then repopulate it with a new one that is empty, but I need to add some code that happens if they should change a particular cell. It worked when I ran it on a worksheet without refreshing, but as soon as I cleared and repopulated the sheet, it was gone. Is there a way to preserve this?
View 9 Replies
View Related
Jun 10, 2014
As part of a program I'm writing in VBA (for Excel 2010), I have a textbox in a user form used as an interface to write a formula in cells in Excel.The resulting value of a formula from a cell is loaded up into the textbox. It would be shown in the textbox like "See 1.2 and 1.3" where the formula in the cell is
[Code].....
This is just used as an example but the principle is there. It is worth noting that I’m writing this for very inexperienced Excel users but I need them to be able to edit the string part of the formula without breaking the formula.
However where I’m struggling is to pick up a selection change event inside a text box already selected. I need to be able to check if the textbox.SelStart is within an address value or within the string in the textbox.
The event Enter won’t work if the user is already editing the textbox (i.e. typing stuff) and then clicking or using the keyboard arrow to move the cursor somewhere else inside the textbox. I don’t think the event Change is the solution either as it would mean that the user would have already typed something and as a result the formula may already be broken.
I have had a good look around and I didn’t find an event for a selection change inside a textbox. Does it exists and/or is there a way that would have the same result?
View 7 Replies
View Related
Aug 7, 2006
I have the following code, which works perfectly:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TotalDays As Integer
TotalDays = Range("C65536").End(xlUp).Row + 1
The code points to the next blank cell so the user can input a value. Each time the user enters a value I want to re-run the code so that the colour of the cell changes.
However I also want to perform various calculations on the sheet. However this means the sheet is being changed and so continually repeats my code.
How do I add the following, to my previous code?
Range("E8").Value = Cells(7, 6) * 2.5
View 9 Replies
View Related
Feb 27, 2014
how can I create a text file in a folder called test and then input texts in this created textfile
so say I had 2 input values
1 said hello other was james
i need to create textile in this folder and then have this written in the textile and saved (printed like the below)
hello
james
thank you
editing and inputting some text in an existing textfile and inputting the Inputbox values at the end of the text file like the above
View 7 Replies
View Related
Sep 9, 2009
I am having some problem creating a new text file and adding things to it.
I tried using the following:
View 6 Replies
View Related
Apr 21, 2006
how to CREATE a text file from within Excel VBA.
View 2 Replies
View Related
Oct 21, 2009
So I got this code from http://www.ozgrid.com/VBA/track-changes.htm i followed the directions and pasted it in the workbook module but does not seem to be working. I am thinkning the copy and paste feature is messing something up anyone know what?
I have added a worksheet named Log
View 5 Replies
View Related
Apr 28, 2014
I basically need a formula in one tab of a spreadsheet that if another cell contains text it will search for that text in another tab and display a useable hyperlink to it.
So I want a formula in A1 in Sheet1 that will search for the text contained in A2 in Sheet2 and display a useable hyperlink to the cell in which that text is contained, in Sheet2.
This may not even be possible, but if it is then that would save me SO much time.
View 6 Replies
View Related
Jul 21, 2009
I am trying to make some drop down boxes, but it seems a little different than word. In word I create the driopdown box and insert the text that I want on the list. I can't seem to do this in excel. For example, I have a cell that is labled RANK, and below it, I want the drop down box to have the option AB AMN A1C and SrA. How can I create this? Once I found out, I think I can do the other combo boxes my self.
View 5 Replies
View Related
Mar 14, 2008
Want to make an if rule where a student gets overall 75% in a column, then in another column next to that that would automatically give him a B or a B+ you know what I mean?
Hear are the ratios
A+ - 90-100
A - 80-89
B+ - 75-79
B - 70-74
C+ - 65-69
C - 60-64
D+ - 55-59
D - 50-54
E+ - 45-49
E - 40-44
and another one
Excellent - 80-100
Very Good - 70-79
Good - 60-69
Moderate - 50-59
Borderline - 40-49
View 11 Replies
View Related
Oct 20, 2008
I have created a table which is an index of all the worksheets. Now i would like to create a formula using the index reference. I get the right result if i concatenate but the text doesn't turn in to an excel formula.
=CONCATENATE("=";A1;"!";"D4") A1 contains the worksheet name, if the worsheetname is "A" then i would like it to return a formula that is =Sheet1!D4
View 3 Replies
View Related
Apr 28, 2014
The question is plain and simple. I have this date:
Oct 25th 2011 11:28
I want to convert it to a valid date format so I can use it for further processing.
View 2 Replies
View Related
Jun 23, 2008
I have a column with many different names and want to put a number at the end of the name. Is there an excel formula that can do this? For example:
ColA
BUY
BUY
BUY
BUY
BUY
BUY
SELL
SELL
SELL
SELL
SELL
SELL
SELL
SELL
SELL
SELL
KEEP
KEEP
KEEP
KEEP
DESIRED RESULT:
BUY 1
BUY 2
BUY 3
BUY 4
BUY 5
BUY 6
SELL 01
SELL 02
SELL 03
SELL 04
SELL 05
SELL 06
SELL 07
SELL 08
SELL 09
SELL 10
KEEP 1
KEEP 2
KEEP 3
KEEP 4
As you can see, if the number of consecutive texts goes over 10, I need it to add a "0" onto the beginning of the number.
View 6 Replies
View Related
Aug 5, 2014
Looking for the syntax that will allow me to code an event sub routine, based off the event of a specific function e.g. findnum being run.
View 14 Replies
View Related
Aug 6, 2007
I have a list of items that I keep track of when they were last used.
For example:
Item# Last Used
Item#1 8/27/06
Item#2 5/2/07
Item#3 6/30/07
What I would like to do is when I enter a date, it automatically tracks the changes so that I can not only see the most current date but all previous dates if I need to.
The ideal would be to transfer it to another worksheet so that is looks like the original except that is shows multiple dates after it instead of just the most recent.
For example:
Item#1 5/3/05 7/23/06 8/27/06
View 9 Replies
View Related
Dec 15, 2008
We have an excel file that I've developed that people in our department are supposed to be using - not that they want to - but it is an edict from our bosses. Is there a way to track who is actually using that file so I can verify that they are using it rather than just relying on them saying that they are?
View 9 Replies
View Related
