Mdemir63
Altın Üye
- Katılım
- 7 Temmuz 2006
- Mesajlar
- 2,893
- 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
Selamlar,İlginç bir durum, A26 hücresindeki kullanıcı tanımlı fonksiyon soruna neden oluyor, bu hücredeki fonksiyonu kaldırınca düzgün çalışıyor, sebebini maalesef çözemedim.
Getirmiyor da ne yapıyor?Hocam İsim seçtiğimde seçtiğim isme ait bilgiyi istediğim alana getirmiyor. Ancak A26 hücresindeki fonksiyonu kaldırınca kodlar düzgün çalışıyor
Saygılar
İlginç. Bende bir tuhaflık görünmuyor.Hocam hiçbir hata vermiyor ama istenilen bilgileri getirmiyor
Sayın Levent,Arkadaşlar sorun verilerin yolluk sayfasına çağırılmasında değil. Yolluk sayfasında isim değiştiğinde M25 hücresindeki toplam değerini veri sayfasındaki T sütununda ilgili ismin karşısına atan bir worksheet_change kodu var işte çalışmayan bu koddur.
Selamlar,İlginç. Bende bir tuhaflık görünmuyor.
Ektekine bakın bakalım.
.
Ben de Excel 2003 Hem evde ve hem işte kullanıyorum. Bende problem yok. Pek çok kişide de problem olmuyor. Ama Excel 2007'de çalışmıyor. Bunu da pek çok kişi denedi.Selamlar,
Hocam sizin eklediğinzi de denedim yine aynısını yapıyor. Hocam ben Ofis 2003 kullanıyorum acaba bundan kaynaklanabilr mi? Yani eksik yükleme veya bir dosya eksikliği gibi. İlk ben bu dosyayı Korhan Ayhan hocama somuştum Korhan hocamda sizin gibi kendisinde problem olmadığını ve dosyanın düzgün çalıştığını söylemişti.
Saygılar
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim BUL As Range
If ActiveSheet.Name = "YOLLUK" Then
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Set BUL = Sheets("VERİ").Columns(2).Find(Target)
If Not BUL Is Nothing Then
Application.EnableEvents = False
Sheets("VERİ").Cells(BUL.Row, "T") = [M25]
Application.EnableEvents = True
End If
Set BUL = Nothing
End If
End Sub
Selamlar,"Yolluk" adlı sheet'in kod modülündeki Worksheet_Change kodlarını silin.
Thisworkbook kod modülüne aşağıdakileri kopyalayın.
Şimdi, tekrar çalıştırmayı deneyin.Kod:Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim BUL As Range If ActiveSheet.Name = "YOLLUK" Then If Intersect(Target, [B1]) Is Nothing Then Exit Sub Set BUL = Sheets("VERİ").Columns(2).Find(Target) If Not BUL Is Nothing Then Application.EnableEvents = False Sheets("VERİ").Cells(BUL.Row, "T") = [M25] Application.EnableEvents = True End If Set BUL = Nothing End If End Sub