• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan m.gur
  • Başlangıç tarihi Başlangıç tarihi
M

m.gur

Katılım
9 Temmuz 2004
Mesajlar
427
Excel Vers. ve Dili
Office 2007 Tr & Office 2019 Tr
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 ?
 
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.
 
Kodları buraya yazsam olurmu?
 
Merhaba,

Yazabilir siniz, ilgilenen arkadaşlar olacaktır.

Teşekkür ederim.
 
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 ?
 
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.
 
Textbox a girip bir harf yazdığımda excel duruyor ve "excel çalışmayı durdurdu" mesajı veriyor ve program kapanıyor.
 
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.
 
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ı.
 
Kod tam olarak hangi satırda hata veriyor bunun tespiti için On Error Resume Next komutunu silip deneme yapınız.
 
m.gur' Alıntı:
Textbox a girip bir harf yazdığımda excel duruyor ve "excel çalışmayı durdurdu" mesajı veriyor ve program kapanıyor.
Genişletmek için tıkla ...

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.
 
Mr. Köse' Alıntı:
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.
Genişletmek için tıkla ...
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ı.

Korhan Ayhan' Alıntı:
Kod tam olarak hangi satırda hata veriyor bunun tespiti için On Error Resume Next komutunu silip deneme yapınız.
Genişletmek için tıkla ...

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.
 
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.
 
Korhan hocam ilginiz için teşekkür ederim. Altın üye olmadığım için dosya yükleyemiyorum.
 
Textbox'u kaldırın. Dosyayı kaydedip kapatın. Yeniden açıp Tetxbox oluşturun.
Birde böyle denermisiniz?
 
Şakasız hepimize dert oldu. Çözene kadar uyku yok.
 
Erkan Akayay' Alıntı:
Şakasız hepimize dert oldu. Çözene kadar uyku yok.
Genişletmek için tıkla ...
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ı.
 
Dosyayı filemail, dosya.co gibi harici yükleme sitelerinden birine yükleyiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst