vijaybhatt
New Member
- Joined
- Dec 23, 2015
- Messages
- 17
Sub OpenFiles()
Dim ws As Worksheet
Dim MyFolder1 As String
Dim MyFile1 As String
Dim MyFolder2 As String
Dim MyFile2 As String
Dim i As Integer
ThisWorkbook.Sheets("CHE Inventory data").Activate
Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 25)).Select
Selection.ClearContents
Sheets("ADR").Select
Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 10)).Select
Selection.ClearContents
MyFolder = "Z:\MCT\Vijay\CHE Data\CHE Summary Data"
myfile = Dir(MyFolder & "\*.xls")
Workbooks.Open Filename:=MyFolder & "\" & myfile, _
Password:="**indiamissioncontrolteam2012***"
myfile = Dir
For i = 1 To Sheets.Count
Windows("CHE Summary data.xlsx").Activate
Sheets(i).Activate
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Next
MsgBox "OK"
'Application.CutCopyMode = False
'Windows("CHE Summary data.xlsx").Close
Application.CutCopyMode = True
'STEP1lookupbsoUSER.STEP1lookupbsoUSER
End Sub
this code is not run when i click on run button but when i do f8 step by step its work perfect help me please
Dim ws As Worksheet
Dim MyFolder1 As String
Dim MyFile1 As String
Dim MyFolder2 As String
Dim MyFile2 As String
Dim i As Integer
ThisWorkbook.Sheets("CHE Inventory data").Activate
Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 25)).Select
Selection.ClearContents
Sheets("ADR").Select
Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 10)).Select
Selection.ClearContents
MyFolder = "Z:\MCT\Vijay\CHE Data\CHE Summary Data"
myfile = Dir(MyFolder & "\*.xls")
Workbooks.Open Filename:=MyFolder & "\" & myfile, _
Password:="**indiamissioncontrolteam2012***"
myfile = Dir
For i = 1 To Sheets.Count
Windows("CHE Summary data.xlsx").Activate
Sheets(i).Activate
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Next
MsgBox "OK"
'Application.CutCopyMode = False
'Windows("CHE Summary data.xlsx").Close
Application.CutCopyMode = True
'STEP1lookupbsoUSER.STEP1lookupbsoUSER
End Sub
this code is not run when i click on run button but when i do f8 step by step its work perfect help me please