(28/02/2024, 16:28)atoykan yazdı: Excel sayfanıza bir buton ekleyin ve tıklandığında olayına aşağıdaki kodu girin

Dim ws As Worksheet, LastRow As Long, i As Long

    

    Set ws = ThisWorkbook.Sheets("Sayfa1")  ' Çalışmak istediğiniz sayfa adı

    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    ' Son kullanılan satır

    

    For i = 2 To LastRow    ' Başlıkların olduğu ilk satırı atlar

        belgeYolu = ws.Cells(i, 3).Value

            If Len(belgeYolu) > 0 Then  ' Belge sütunu boş değilse

                On Error Resume Next

                Open belgeYolu For Input As #1  ' Belgeyi açmaya çalış

                If Err.Number = 0 Then

                    ws.Cells(i, 4).Value = "Var"    ' Belge Durumu sütununa durum kaydı işle

                    Close #1

                Else

                    ws.Cells(i, 4).Value = "Yok"

                End If

                On Error GoTo 0

            Else

                ws.Cells(i, 4).Value = "Yok"

            End If

    Next i

. Bu kod çalışmanızda kaç satır varsa hepsinde C sütunundaki köprüde yer alan dosyayı okur, açılıyor mu kontrol eder ve dosya mevcut olup açılıyorsa durum sütununa var aksi halinde yok yazar.

[img][/img]
[img][/img]
[img][/img]

Emeğinize sağlık, kuırum Excel olduğundan kodu ilgili yere yapıştırıp kaydedip, Excel den çıktığımdan tekrar kod kısmına girdiğimde exceldeki yapıştırdığım kodlar gözükmüyor, sebebi ne olabilir