Workbooks.OpenText Filename:=Application.GetOpenFilename(FileFilter:=Filt, Title:=Title), _
Origin:=857, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$V$999999").AutoFilter Field:=1, Criteria1:="116"
'Buradan itibaren aşağığısı yeni eklenildi
Dim LR As Long, LR2 As Long
LR = Range("B" & Rows.Count).End(xlDown).Row
Range("B2:D" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows("EPDM Feasibility 1.0b.xlsm").Activate
Range("D35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Windows("Worksheet1.xlsm").Activate
LR2 = Range("D" & Rows.Count).End(xlDown).Row
Range("D61:F" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.ClearContents