Kapalı Dosyadan Veri Çekme Makro Düzenleme

[mukoli]

Merhaba ustalar alttaki kodu kapalı dosyadan işlem yapıcak şekilde düzenleyebilirmiyiz.

Sub X_Ekle()
Workbooks.Open Filename:=ThisWorkbook.Path & "/İzinTablosu.xlsm"

Dim s2 As Worksheet, Son As Integer, KacGun As Integer, i As Integer

Set s2 = Workbooks(1).Sheets("Sayfa2")
Dim iz As Worksheet: Set iz = Workbooks(2).Sheets("KAYITLAR")

Son = s2.Range("C" & Rows.Count).End(3).Row


For a = 3 To iz.[B65536].End(3).Row
    For satır = 8 To s2.[C65536].End(3).Row
            If iz.Cells(a, 2) <> s2.Cells(satır, 3) Then GoTo 10
        For sütun = 8 To 38
            If s2.Cells(6, sütun) = "" Then GoTo 20
'            If Weekday(CDate(Cells(4, sütun)), 2) > 5 Then GoTo 20
                If iz.Cells(a, 5) <= s2.Cells(6, sütun) And iz.Cells(a, 6) >= s2.Cells(6, sütun) Then
                s2.Cells(satır, sütun) = cesit(iz.Cells(a, 8)) 'iz.Cells(a, 8)
            End If
20:        Next
10: Next
Next
Workbooks(2).Close
End Sub

Function cesit(izin)
If izin = "YILLIK İZİN" Then cesit = "Yİ"
If izin = "RAPORLU" Then cesit = "RP"
End Function

 

[mukoli]

Yada adosql bağlantısı yapılarak olurmu yardım bekliyorum sizlerden

 

[mukoli]

?

 

[mukoli]

Kod aslında çalışıyor fakat dosyayı açıp kapatıyor buda hata veriyor orjinal dosyamda
Direk dosyayı açmasan yada adosql şeklinde direk kapalı şekilde yada açıkken bile olsa çalışacak koda cevirirsek cok iyi olur

 

[mukoli]

yokmudur yardımcı olucak kişiler

 

[mukoli]

üstadlar yardımcı olsa süper olur

 

[mukoli]

?kimse yok anlaşılan