Mdemir63
Altın Üye
- Katılım
- 7 Temmuz 2006
- Mesajlar
- 2,862
- Excel Vers. ve Dili
- Ofis2010 32Bit Türkçe
- Altın Üyelik Bitiş Tarihi
- 19-02-2026
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Workbooks.Open (ThisWorkbook.Path & "\" & Target & ".xlsx")
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim HT
Application.EnableEvents = False
On Error GoTo HT
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Workbooks.Open (ThisWorkbook.Path & "\" & Target & ".xlsx")
Application.EnableEvents = True
Exit Sub
HT: MsgBox Target & ".xlsx Dosyası Bulunamadı"
End If
Application.EnableEvents = True
End Sub