Exel run time error 13
Solved/Closed
Stormdronk
-
Jun 13, 2011 at 06:39 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jun 14, 2011 at 09:56 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jun 14, 2011 at 09:56 AM
Related:
- Exel run time error 13
- Popcorn time download - Download - Movies, series and TV
- Network error occurred - Guide
- Iphone 13 release date - Guide
- Ocarina of time rom - Download - Action and adventure
- How to turn music off on iphone 13 - Guide
2 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jun 13, 2011 at 11:00 AM
Jun 13, 2011 at 11:00 AM
Two things.
How you get that error you get would have helped. Just looking at the code what struck to me is that you are updating the cell in the code. This would put you in a loop. You should disable the event before updating the cell and then enable it back
Some thing like this
How ever this may not resolve your issue as there is not much information. If you still have issue, post a sample book with the macro and sample data on some shared site and post back the link to the file back here. Also do mention what error you get and what you do to get that issue.
How you get that error you get would have helped. Just looking at the code what struck to me is that you are updating the cell in the code. This would put you in a loop. You should disable the event before updating the cell and then enable it back
Some thing like this
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("T12:T111")) Is Nothing Then Exit Sub Set MR = Range("T12:T111") Application.EnableEvents = False For Each cell In MR If cell.Value = 4 And cell.Offset(0, 1).Value <> "C" Then Range(cell.Offset(0, -14), cell).Copy Sheets("Cash flow").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial cell.Offset(0, 1).Value = "C" cell.Offset(0, 1).Font.ColorIndex = 2 End If Next Application.EnableEvents = True End Sub
How ever this may not resolve your issue as there is not much information. If you still have issue, post a sample book with the macro and sample data on some shared site and post back the link to the file back here. Also do mention what error you get and what you do to get that issue.
Hi, Thanks for the help, here are the code I got from a nother site SOLVED!!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, MR As Range
If Not (Intersect(Target, Range("T12:T111")) Is Nothing) Then
Set MR = Range("T12:T111")
For Each cell In MR
If cell.Value = 4 And cell.Offset(0, 1).Value <> "C" Then
Range(cell.Offset(0, -14), cell).Copy
Sheets("Cash flow").Range("E" & Rows.count).End(xlUp).Offset(1, 0).PasteSpecial
cell.Offset(0, 1).Value = "C"
cell.Offset(0, 1).Font.ColorIndex = 2
End If
Next cell
Application.CutCopyMode = False
End If
Set cell = Nothing
Set MR = Nothing
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, MR As Range
If Not (Intersect(Target, Range("T12:T111")) Is Nothing) Then
Set MR = Range("T12:T111")
For Each cell In MR
If cell.Value = 4 And cell.Offset(0, 1).Value <> "C" Then
Range(cell.Offset(0, -14), cell).Copy
Sheets("Cash flow").Range("E" & Rows.count).End(xlUp).Offset(1, 0).PasteSpecial
cell.Offset(0, 1).Value = "C"
cell.Offset(0, 1).Font.ColorIndex = 2
End If
Next cell
Application.CutCopyMode = False
End If
Set cell = Nothing
Set MR = Nothing
End Sub
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jun 14, 2011 at 09:56 AM
Jun 14, 2011 at 09:56 AM
Thanks for you feed back as well as solution. Cheers!!