Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hi there Is there a code to Delete a specific line within a VBA Code or withi another vba code within the same VBAProject ? Code ------------------- Sub ChkFileExists() Dim fs Dim StrFileName As String Set fs = CreateObject("Scripting.FileSystemObject") StrFileName = "C:\Gaber1314.txt" If fs.FileExists(StrFileName) Then MsgBox "File Already exixsts", vbInformation, "Execution interrupted" Else MsgBox "File Does Not exixsts", vbCritical, "Execution interrupted" End If '*I want to delete this line only, using another code in the same VBAProject Application.Run "Createtxt" End Sub ------------------- i looked at : Pearson Software Consulting, LLC Programming To The Visual Basic Editor http://www.cpearson.com/excel/vbe.htm but could not find waht i need -- helmekk ----------------------------------------------------------------------- helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693 View this thread: http://www.excelforum.com/showthread.php?threadid=39370 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
helmekki,
How about another way around the problem? In a spare cell (say Z99) put "Run" Sub ChkFileExists() " " " " If Range("Z99").Value = "Run" Then Application.Run"Createtxt" End If " " " End Sub Elsewhere, where you wanted to delete the line, put Range("Z99").Value = "" Now that line will run until you change the value in Cell Z99. It won't be deleted, but it will never be executed again. Henry "helmekki" wrote in message ... Hi there Is there a code to Delete a specific line within a VBA Code or within another vba code within the same VBAProject ? Code: -------------------- Sub ChkFileExists() Dim fs Dim StrFileName As String Set fs = CreateObject("Scripting.FileSystemObject") StrFileName = "C:\Gaber1314.txt" If fs.FileExists(StrFileName) Then MsgBox "File Already exixsts", vbInformation, "Execution interrupted" Else MsgBox "File Does Not exixsts", vbCritical, "Execution interrupted" End If '*I want to delete this line only, using another code in the same VBAProject Application.Run "Createtxt" End Sub -------------------- i looked at : Pearson Software Consulting, LLC Programming To The Visual Basic Editor http://www.cpearson.com/excel/vbe.htm but could not find waht i need. -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=393708 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Macro code to put series name next to individual line in line grap | Charts and Charting in Excel | |||
VBA line of code executes in Immediate Window but not in Code Window | Excel Discussion (Misc queries) | |||
Continue line of VBA code on the next line | Excel Programming | |||
VBA code delete code but ask for password and unlock VBA protection | Excel Programming | |||
VBA code to delete VBA code in another Workbook | Excel Programming |