makro ile arama işlemi

[kemal turan]

Merhaba ustadlar,

Ek teki dosyada Yurttaş kardeşimizin çalışmasından kendime uyarladığım arama makrosu var.
Arama çalışıyor, fakat yavaş.
Bunu nasıl hızlandırabiliriz.
Hıza katkı sağlayacaaksa Aranan kelimenin farklı renkte olmasını kaldırabiliriz, VERİ sahifesinden sadece C sutununu filtrelebiliriz.
Teşekkür ederim.

 

[kemal turan]

Merhabalar,
Makromuzun aşağıdaki renk bölümü iptal edilerek süper hızlı hale gelmesi sağlanmıştır.
İlgilenenlere teşekkür ederim.
Bu arada teşekkürler sn.Yurttaş..


For Each hcr In Aln
renk = InStr(renk + 1, hcr.Text, Deg)
Do
If renk > 0 Then
hcr.Characters(Start:=renk, Length:=Len(Deg)).Font.ColorIndex = 3
End If
renk = InStr(renk + 1, hcr.Text, Deg)
Loop While renk > 0
Next hcr

 

[kemal turan]

Merhaba ustadlar,
veri girişinde bir sıkıntı oluşuyor.
Textbox a girilen veriye karşılık bir veri sahifesinde ürün yok ise aşağıdaki hatayı veriyor.
Buda her bir harf hatası olduğunda kod sahifesine girilip resetleme yapılmasını gerektiyor.
Bunu nasıl çözebiliriz.
Teşekkür ederim.

Runtime error "110"
vsyf.Range("B2:E" & sonsat).SpecialCells(xlCellTypeVisible).Copy Range("B9")

 

[halit3]

Merhaba ustadlar,
veri girişinde bir sıkıntı oluşuyor.
Textbox a girilen veriye karşılık bir veri sahifesinde ürün yok ise aşağıdaki hatayı veriyor.
Buda her bir harf hatası olduğunda kod sahifesine girilip resetleme yapılmasını gerektiyor.
Bunu nasıl çözebiliriz.
Teşekkür ederim.

Runtime error "110"
vsyf.Range("B2:E" & sonsat).SpecialCells(xlCellTypeVisible).Copy Range("B9")

Aklıma gelen ilk şey hataları atlayan kodu

On Error Resume Next

yukarıdaki kodu hata aldığınız satırın üstüne ekleyin.

 

[kemal turan]

Halit bey merhaba,
Çok teşekkür ederim.
İşiniz rast gitsin.
Selametle kalınız.

 

[halit3]

Halit bey merhaba,
Çok teşekkür ederim.
İşiniz rast gitsin.
Selametle kalınız.

İyi çalışmalar