Şimdiye kadar çalışan makro çalışmıyor.

[m.gur]

Merhaba; uzun zaman önce buradan yardım alarak yapılan makro lu bir dosyam çalışmaz oldu. Excel 2007 kullanıyorum. Bugüne kadar sorunsuz çalıştı ancak iki gündür çalışmıyor. Açtığımda excel çalışmayı durdurdu diye mesaj çıkıyor ve bir müddet sonra kapanıyor. Aynı dosyayı excel 2021 de açtığımda sorunsuz çalışıyor. Fakat ben 2007 yi tercih ediyorum çünkü bilgisayarımda sıkıntı yapmadan çalışıyor diğeri ise bilgisayarımı kasıyor o bakımdan 2007 yi kullanıyorum. Sizce bu sorun neden olabilir ?

 

[1Al2Ver]

Merhaba,

Tahminde bulunuyorum ; Ofis güncellemesi yaptınız ise, bu sorun oluşmuş olabilir !

Her durumda kodu ve/veya dosyayı buraya eklerseniz, üstatlar bakıp bir çözüm ürete bilir.

Teşekkür ederim.

 

[m.gur]

Kodları buraya yazsam olurmu?

 

[1Al2Ver]

Merhaba,

Yazabilir siniz, ilgilenen arkadaşlar olacaktır.

Teşekkür ederim.

 

[m.gur]

Private Sub TextBox1_Change()
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.ShowAllData
Son = Cells(Rows.Count, 2).End(3).Row
Say = 1
Liste = Range("B4:B" & Son).Value
ReDim Kriter(1 To 1)
Kriter(Say) = ""
For X = 1 To UBound(Liste)
If UCase(Replace(Replace(Liste(X, 1), "ı", "I"), "i", "İ")) Like "*" & _
UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ")) & "*" Then
Say = Say + 1
ReDim Preserve Kriter(1 To Say)
Kriter(Say) = CStr(Liste(X, 1))
End If
Next
Range("B2:G" & Son).AutoFilter Field:=1, Criteria1:=Kriter, Operator:=xlFilterValues
If TextBox1 = Empty Then
Range("B2:G" & Son).AutoFilter Field:=1
End If
Set bul = Nothing
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------
Kodlar bunlar.. 2007 de çalışmıyor fakat office 2021 de sorunsuz çalışıyor.. Problem nedir acaba ?

 

[1Al2Ver]

Merhaba,

"Çalışmıyor" dan kastınız tam olarak nedir ? Kod çalışma esnasında hata mı veriyor vb.

Ayrıntılı bilgi, sorunu çözmekte yardımcı olacaktır.

Teşekkür ederim.

 

[m.gur]

Textbox a girip bir harf yazdığımda excel duruyor ve "excel çalışmayı durdurdu" mesajı veriyor ve program kapanıyor.

 

[Korhan Ayhan]

Kodlarda bir sorun görünmüyor.

Bazen ofis güncellemeleri bu tarz sorunlara sebep olabiliyor.

Ofis programını onarmayı deneyiniz. Olmazsa ofisi temiz şekilde bilgisayardan kaldırıp yeniden kurmayı deneyiniz.

 

[m.gur]

Office 2007 yi kaldırıp yeniden yükledim olmadı. Office 2021 i kaldırdım sadece 2007 yi yükledim. Dosya yine çalışmıyor. Hiç bir şey anlayamadım. Virüs taraması yapıyorum problem yok. Yeni bir sayfa açıp kodları tek tek yazarak yeniden denedim ne yazık ki yine çalışmadı.

 

[Korhan Ayhan]

Kod tam olarak hangi satırda hata veriyor bunun tespiti için On Error Resume Next komutunu silip deneme yapınız.

 

[Mr. Köse]

Textbox a girip bir harf yazdığımda excel duruyor ve "excel çalışmayı durdurdu" mesajı veriyor ve program kapanıyor.

Size bilgi verecek kadar bilgi sahibi değilim ancak bahsettiğiniz sorunun kod ile alakalı olabileceğini düşünüyorum. Bende de bu sorunun benzeri olmuştu, ne yaptıysam çözemedim sorunu, defalarca onarım yaptım, onarım yapınca bir süre hata vermiyor sonra yine aynı oluyordu, hatta bilgisayarıma format bile attım, söz konusu excel kendi kendine kapanıyor ve tekrar açmaya çalışıldığında excel düzgün başlatılamadı güvenli modda açmak v.s. gibi evet hayır seçenekli bir uyarı ekranı çıkıyordu. Öngörüm kod ile alakalı bir şeyi bulamıyorsa excel döngüye girip kendini kapatıyor olabilir, yada kodların beslendiği kütüphane açık değilse ordan da bulamıyor ve hata veriyor olabilir.

Bir defasında bu sorunu yaşatığımda aşağıdaki şekilde çözdüm.
visual basic - tools- reference - accessibilityCpLadmin 1.0 type library tik işaretli olmadığı için bu sorunu yaşatıyordu. Denemenizde yarar var, belki çözüm olabilir.

 

[m.gur]

Size bilgi verecek kadar bilgi sahibi değilim ancak bahsettiğiniz sorunun kod ile alakalı olabileceğini düşünüyorum. Bende de bu sorunun benzeri olmuştu, ne yaptıysam çözemedim sorunu, defalarca onarım yaptım, onarım yapınca bir süre hata vermiyor sonra yine aynı oluyordu, hatta bilgisayarıma format bile attım, söz konusu excel kendi kendine kapanıyor ve tekrar açmaya çalışıldığında excel düzgün başlatılamadı güvenli modda açmak v.s. gibi evet hayır seçenekli bir uyarı ekranı çıkıyordu. Öngörüm kod ile alakalı bir şeyi bulamıyorsa excel döngüye girip kendini kapatıyor olabilir, yada kodların beslendiği kütüphane açık değilse ordan da bulamıyor ve hata veriyor olabilir.

Bir defasında bu sorunu yaşatığımda aşağıdaki şekilde çözdüm.
visual basic - tools- reference - accessibilityCpLadmin 1.0 type library tik işaretli olmadığı için bu sorunu yaşatıyordu. Denemenizde yarar var, belki çözüm olabilir.

Teşekkür ederim cevabınız için. Dediğiniz yere baktım accessibilityCpLadmin 1.0 type library yer işaretli. Dosya yine çalışmadı.

Kod tam olarak hangi satırda hata veriyor bunun tespiti için On Error Resume Next komutunu silip deneme yapınız.

Dediğiniz gibi bu satırı sildim. Çalıştırmaya başladığım anda hata veriyor hemen dolayısıyla hangi satırda olduğunu anlamak mümkün olmadı.

	KUŞ ADI ARA==>
503 Adet	KUŞ ADI
	Bsütunu
1	Ada doğanı	Doğanlar
2	Ada martısı	Martılar
3	Ağaç incirkuşu	İncirkuşu
4	Ağaç kamışçını	Kamışçın
5	Ağaç serçesi	Serçegiller
6	Ak çaylak	Çaylaklar
7	Ak kumkuşu	Kumkuşları
8	Ak kuyruksallayan	Kuyruksallayan
9	Ak mukallit	Mukallit
10	Ak pelikan	Pelikan
11	Ak turna	Turnalar
12	Akbaşlı kirazkuşu	Kirazkuşu
13	Akça cılıbıt	Cılıbıtlar
14	Akdeniz çorak toygarı	Toygar
15	Akdeniz martısı	Martılar
16	Akgerdanlı ötleğen	Ötleğen
17	Akgözlü ötleğen	Ötleğen
18	Akkanatlı sumru	Sumrular
19	Akkanatlı toygar	Toygar
20	Akkarınlı ebabil	Ebabiller
21	Akkaşlı çıvgın	Çıvgın
22	Akkaşlı kirazkuşu	Kirazkuşu

Çalışma sayfam bu şekilde. Koyu harfle yazan yerde Textbox 1 var. Oraya mesela "toy" yazdığımda listede ne kadar bu yazılan karakterden isim varsa hepsini süzüp listeliyordu. Şimdi ne oldu da çalışmıyor hala anlamış değilim.

 

[Korhan Ayhan]

Sonradan farkettim..

Önceki mesajimda On Error Resume Next komutunu silip deneme yapınız demiştim.

Kodların içinde "ActiveSheet.ShowAllData" komutu var. Bu satır eğer sayfada filtre yoksa On Error Resume Next satırını sildiğinizde hata verecektir. Bu sebeple kodlara farklı bir sorgu eklemek gerekir.

Dosyanızı paylaşınız hem gerekli düzenlemeyi yapalım hem de deneme yapalım.

 

[m.gur]

Korhan hocam ilginiz için teşekkür ederim. Altın üye olmadığım için dosya yükleyemiyorum.

 

[Erkan Akayay]

Textbox'u kaldırın. Dosyayı kaydedip kapatın. Yeniden açıp Tetxbox oluşturun.
Birde böyle denermisiniz?

 

[m.gur]

Textbox'u kaldırın. Dosyayı kaydedip kapatın. Yeniden açıp Tetxbox oluşturun.
Birde böyle denermisiniz?

Dediğiniz gibi yaptım yine olmadı. Textbox'a girer girmez excel çalışmayı durduruyor.

 

[Erkan Akayay]

Şakasız hepimize dert oldu. Çözene kadar uyku yok.

 

[m.gur]

Şakasız hepimize dert oldu. Çözene kadar uyku yok.

Siz deneyebilir misiniz kodlar yazılı, çalışma sayamın da bir bölümü yazılı orada. Excel sayfasına bu listeyi kopyalayıp kodu da yazınca tamam olacak. Dediğim gibi office 2019 2021 365 te sorunsuz çalışıyor. Benim amacım office 2007 de çalışması. Şimdiye kadar hiç bir problem yoktu yaklaşık 10 gün kadar böyle olmaya başladı.

 

[Erkan Akayay]

Dosyayı filemail, dosya.co gibi harici yükleme sitelerinden birine yükleyiniz.

 

[m.gur]

Dosyayı filemail, dosya.co gibi harici yükleme sitelerinden birine yükleyiniz.

Yükledim.

İndir Yeni kitap

Dosyayı indir Yeni kitap

dosya.co