need for code help

[directorsashi]

am new in vba, i create code buy sell value based copy paste in new workbook ,same action in 30 rows, when i put this code (this code one row exmple only ) for 30 rows in worksheet calculate , excel was hanged and restart, kindly help, (this code row 2 only, its countine up to row 30,)

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("H2") >= Range("B2")) Then
Range("I2") = "BUY"
Range("AA2:AU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\BUY\" & Fsn & "_BUY_CALLS_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False


Range("BA2:BU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\BUY\SL\" & Fsn & "_BUY_SL_ORDER_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

Range("CA2:CU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\BUY\TGT\" & Fsn & "_BUY_TGT_ORDER_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

End If
ElseIf (Range("H2") <= Range("E2")) Then
Range("i2") = "SELL"
Range("DA2:DU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\SELL\" & Fsn & "_SELL_CALLS_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
'ActiveWorkbook.Saved = True
' MsgBox "NEW_" & Range("a2") & "_SELL CALLS ACTIVE"

Range("EA2:EU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\SELL\SL\" & Fsn & "_SELL_SL_ORDER_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

Range("FA2:FU2").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Fsn = ActiveCell.Range("C1")
ActiveWorkbook.SaveAs Filename:="C:\ORD\SELL\TGT\" & Fsn & "_SELL_TGT_ORDER_@" & Format(Now, "mm-dd-yyyy-hh-mm") & ".CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End If
End If
End Sub

[Fotis1991]

Pls take some time to read forum rules. In your previous thread i warned you for that.

So:

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

ALSO:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)