Levent beyin hazırlamış olduğu, klasörüyle dosya seçme formunu kullanmaya çalışıyorum. Yalnız bu formu kullanırken seçip, açtığım dosyayla ilgili başka işlemlerde yapmak istiyorum. Acaba formdan seçtiğim dosyayı kod yazarken nasıl kullanmalıyım
Sub OpenFile()
Dim MyVal As Integer
Dim Buff As String
Dim hwnd As Long
Dim MyFile
Dim RetVal As Long
Dim deg
If Right(UserForm7.TextBox1, 1) <> "\" Then deg = "\"
MyFile = UserForm7.TextBox1 & deg & UserForm7.ListBox1 & "\" & UserForm7.ListBox2
Don = UserForm7.ListBox2
Buff = String(260, 32)
MyVal = FindExecutable(MyFile, vbNullString, Buff)
If MyVal > 32 Then
ExeFile = Left$(Buff, InStr(Buff, Chr$(0)) - 1)
If Right(MyFile, 4) = ".xls" Then
Workbooks.Open MyFile, Password:="1111222", editable:=True
vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("C:m").Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Workbooks( ??? & ".xls").Activate >>>>>formdan seçtiğim dosya
ActiveWindow.Visible = True
Sheets("veri1").Select
Range("c4:m5004").Select
Selection.Copy
vergiVeri.Activate
Range("c4:m5004").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Workbooks(??? & ".xls").Activate >>>>>formdan seçtiği dosya
ActiveWindow.Visible = False
vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("h:m").Select
ActiveSheet.Unprotect "kapalı"
Selection.EntireColumn.Hidden = True
Range("a1").Select
ActiveSheet.Unprotect "kapalı"
Selection.AutoFilter Field:=1, Criteria1:="<>"
Call RaporVer
ActiveSheet.Protect "kapalı", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Sub OpenFile()
Dim MyVal As Integer
Dim Buff As String
Dim hwnd As Long
Dim MyFile
Dim RetVal As Long
Dim deg
If Right(UserForm7.TextBox1, 1) <> "\" Then deg = "\"
MyFile = UserForm7.TextBox1 & deg & UserForm7.ListBox1 & "\" & UserForm7.ListBox2
Don = UserForm7.ListBox2
Buff = String(260, 32)
MyVal = FindExecutable(MyFile, vbNullString, Buff)
If MyVal > 32 Then
ExeFile = Left$(Buff, InStr(Buff, Chr$(0)) - 1)
If Right(MyFile, 4) = ".xls" Then
Workbooks.Open MyFile, Password:="1111222", editable:=True
vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("C:m").Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Workbooks( ??? & ".xls").Activate >>>>>formdan seçtiğim dosya
ActiveWindow.Visible = True
Sheets("veri1").Select
Range("c4:m5004").Select
Selection.Copy
vergiVeri.Activate
Range("c4:m5004").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Workbooks(??? & ".xls").Activate >>>>>formdan seçtiği dosya
ActiveWindow.Visible = False
vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("h:m").Select
ActiveSheet.Unprotect "kapalı"
Selection.EntireColumn.Hidden = True
Range("a1").Select
ActiveSheet.Unprotect "kapalı"
Selection.AutoFilter Field:=1, Criteria1:="<>"
Call RaporVer
ActiveSheet.Protect "kapalı", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells