Arkadaşlar Merhaba. Dış kaynaktan verileri import ettiğim bir Macro var. Bu Makronun kod içersinde özellikle belirttiğim iki çalışma sayfası hariç diğer tüm sayfalara uygulanmasını istiyorum Ancak Makroyu çalıştırdığımda sadece Aktif sayfaya uygulayıp diğer sayfalara uygulamıyor. Sizce nerede hata yapıyorum? Nereyi nasıl değiştirmem gerekiyor. Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.
Kod:
Sub DataTransfer()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "HAM SAYFASI" And xWs.Name <> "DATA SAYFASI" Then
Dim FilePath As String
FilePath = "TEXT;C:\Users\MACHA\Desktop\FATURALAR\" & Cells(19, 6).Value
With ActiveSheets.QueryTables.Add(Connection:=FilePath, Destination:=Range("$A$1"))
.Name = Range("G19").Value
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(4, 1, 1, 1, 1, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "..:: ZAMAN YAYI ::.."
End Sub