| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
two consecutive maros
Hi, can this two macro codes work in the same sheet? Both codes are working
separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
two consecutive maros
Hi.
No you must only have one "Worksheet_Change" macro. Try : Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall If Target.Address(False, False) = "B5" Then Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) ElseIf Target.Cells.Column = 1 And Target.Cells.Row = 5 Then Application.EnableEvents = False N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If Application.EnableEvents = True End If enditall: End Sub HTH Daniel Hi, can this two macro codes work in the same sheet? Both codes are working separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then .Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
two consecutive maros
Its not working. I receive an error.
i have excel 2003. Maybe this is the problem? Thanks! "Daniel.C" a scris: Hi. No you must only have one "Worksheet_Change" macro. Try : Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall If Target.Address(False, False) = "B5" Then Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) ElseIf Target.Cells.Column = 1 And Target.Cells.Row = 5 Then Application.EnableEvents = False N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If Application.EnableEvents = True End If enditall: End Sub HTH Daniel Hi, can this two macro codes work in the same sheet? Both codes are working separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then .Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
two consecutive maros
Indeed, i did not test it which error and which line is in error ?
Daniel Its not working. I receive an error. i have excel 2003. Maybe this is the problem? Thanks! "Daniel.C" a scris: Hi. No you must only have one "Worksheet_Change" macro. Try : Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall If Target.Address(False, False) = "B5" Then Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) ElseIf Target.Cells.Column = 1 And Target.Cells.Row = 5 Then Application.EnableEvents = False N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If Application.EnableEvents = True End If enditall: End Sub HTH Daniel Hi, can this two macro codes work in the same sheet? Both codes are working separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then .Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
two consecutive maros
Hi,
When the error message appear, the fifth line is blue: Range("C1").Value = IIf(IsEmpty(Target), "", "" & And after i click ok, the first line turn into yellow: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Thanks! "Daniel.C" a scris: Indeed, i did not test it which error and which line is in error ? Daniel Its not working. I receive an error. i have excel 2003. Maybe this is the problem? Thanks! "Daniel.C" a scris: Hi. No you must only have one "Worksheet_Change" macro. Try : Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall If Target.Address(False, False) = "B5" Then Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) ElseIf Target.Cells.Column = 1 And Target.Cells.Row = 5 Then Application.EnableEvents = False N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If Application.EnableEvents = True End If enditall: End Sub HTH Daniel Hi, can this two macro codes work in the same sheet? Both codes are working separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then .Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
two consecutive maros
Right. The line was splitted by the news reader; the following must be
on the same line : Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) Daniel Hi, When the error message appear, the fifth line is blue: Range("C1").Value = IIf(IsEmpty(Target), "", "" & And after i click ok, the first line turn into yellow: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Thanks! "Daniel.C" a scris: Indeed, i did not test it which error and which line is in error ? Daniel Its not working. I receive an error. i have excel 2003. Maybe this is the problem? Thanks! "Daniel.C" a scris: Hi. No you must only have one "Worksheet_Change" macro. Try : Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall If Target.Address(False, False) = "B5" Then Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) ElseIf Target.Cells.Column = 1 And Target.Cells.Row = 5 Then Application.EnableEvents = False N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then ..Value = Now End If End With End If Application.EnableEvents = True End If enditall: End Sub HTH Daniel Hi, can this two macro codes work in the same sheet? Both codes are working separately, but not together. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B5" Then _ Range("C1").Value = IIf(IsEmpty(Target), "", "" & UCase(Format(Date, "dddd dd.mm.yyyy"))) End Sub -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col A On Error GoTo enditall Application.EnableEvents = False If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then N = Target.Row If Me.Range("A" & N).Value < "" Then With Me.Range("B" & N) If .Value = "" Then .Value = Now End If End With End If End If enditall: Application.EnableEvents = True End Sub Thanks! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Consecutive date range on consecutive worksheets | Excel Worksheet Functions | |||
| Transposing data from consecutive rows into non-consecutive rows | Excel Discussion (Misc queries) | |||
| Recording find Maros | New Users to Excel | |||
| consecutive | Excel Worksheet Functions | |||
| Consecutive Cells | Excel Worksheet Functions | |||
Hybrid Mode
