Make a macro run when data entered in a cell

Hi Kishore,

I am trying to do the same worksheet. Do you have any solution?
Thank you.

Thank you sooooooo much!
I want to buy you a beer for this!

You saved my sanity. Thank you!

Did you put the code in the worksheet or create another module?
If you did, are you putting a value in A8, or are you wanting to click on it?

Hello. I need help using creating a macro that finds corresponding/matching values. I have 2 worksheets (Attendance & Summary). In Summary worksheet, I have the column A with the names of my students. In column B. I need to get their corresponding number of absences. The data for their number of absences is stored in Names worksheet. Please Help! Im new with VMB and I've been working on this for 2 weeks now.
I cant just copy paste because I want this macro to run in "Summary" worksheet everytime a new data is enetered in "Names" sheet. I tried to us vlookup but it still wouldnt work. Thanks!!!
The worksheets look as follows:

"Names" worksheet:
Name Absences Late
student1 1 3
student2 1 0
student3 3 1

"Summary" worksheet:
Name Absences
student1 1
student2 1
student3 3

Hi I have created few views:

i have columns like Nov-07, Dec-07, Jan-08, Feb-08 till Dec15
First view is just showing months in year 2007 and the name of the view is 2007
and another view named 2008, which is showing all the months in 2008 and hiding the remaining, now I want if the user put 2007 in a particular cel than the view 2007 get activated and so on like if 2009 ten it should activate the view named 2009, pls help and I have many sheets whic has the same format and want the same views for all the sheets and same functionality.

Many thanks in advance if possible or not

Try using brackets after the name of macro e.g.
Call PVValue()

Hey WutUp WutUp

I almost have a same problem:

I need to validate columns for alphanumeric and email format.below is the sequence of my code:

Created two Subs in "Module2" like below :

Public Sub alpha(ByVal Target As Range)
cellNeedValidation = "A2:A10"
'if more cells need validation, on right side of "cellNeedValidation =" put "A1,C3,D7"
If Not Intersect(Target, Range(cellNeedValidation)) Is Nothing Then
For g = 1 To Len(Target.Value)
testchar = Asc(Mid(Target.Value, g, 1))
flg = 0
If testchar > 47 And testchar < 58 Then
flg = 1
ElseIf testchar > 64 And testchar < 91 Then
flg = 1
ElseIf testchar > 96 And testchar < 123 Then
flg = 1
End If
If flg = 0 Then
MsgBox "Your entry contains invalid character." & Chr(13) & _
"Character allowed are a-z, A-Z & 0-9.", vbOKOnly, "Invalid Character"
Target.Select
Application.SendKeys "{f2}+^{home}"
flg = 0
Exit For
End If
Next
End If
End Sub

Public Sub email(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
Dim RE As Object
Set RE = CreateObject("vbscript.REgExp")
RE.Pattern = "^[a-zA-Z0-9\._-]+@([a-zA-Z0-9_-]+\.)+([a-zA-Z]{2,3})$"
If RE.test(Target.Value) = False Then

MsgBox "Invalid email." & Chr(13) & _
"Character allowed are a-z, A-Z & 0-9.", vbOKOnly, "Invalid Character"
Target.Select
Application.SendKeys "{f2}+^{home}"
End If
Set RE = Nothing
End If
End Sub

==========================================
Created a macro in "Module1" like below and calling Subs in macro :

Sub Macroemailalpha()
'
' Macroemailalpha Macro
' Macro recorded 4/20/2010 by aaig
''
Call alpha(Target)
Call email(Target)

End Sub

=========================================
Calling Macro in Sheet1 like below :

Private Sub Worksheet_Change(ByVal Target As Range)
Call Macroemailalpha
End Sub


But not working
Please help anyone.

SandsB

Hi,

I encounter the same problem today but, as I wanted to download the file WutUp posted with the explanation I could not.

Would you kindly send me that file regardind your first doubt ?

Thanks in advance.

what about if you want to set it to a specific value, not just to change

MM. are you to referring to
Private Sub Worksheet_Change(ByVal Target As Range)
...
End If
when you say "what about if you want to set it to a specific value, not just to change". If that is the case is an event driven routine. This event is triggered if a value of a cell is changed manually.