Açılan dosyada arama yapılan kelime varsa kapattırma

[yNsr43]

Sub mevcut()
    ActiveWorkbook.SaveAs Filename:="D:\\Genel.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

Merhabalar, exceli farklı kayıt ederken aşağıdaki kodu kullanmak istiyorum yani açılan excelde "MEVCUT" yazısı varsa kayıt etmeden kapatsin istiyorum bunu nasıl birleştirebiliriz? teşekkürler.

İNDİS('D:\[Genel.xlsx]Genel'!$A:$L;KAÇINCI("MEVCUT";'D:\[Genel.xlsx]Genel'!$A1:$A150;0);2)

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Kendinize uyarlarsınız.

Sub Test()
    If WorksheetFunction.CountIf(Sheets("Genel").Range("A:A"), "MEVCUT") > 0 Then
        ActiveWorkbook.Close 0
    Else
        ActiveWorkbook.SaveAs Filename:="D:\Genel.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.Close
    End If
End Sub

 

[yNsr43]

çok teşekkür ederim hocam elinize sağlık.