Hücre içerisinde yazı buldurma

[safaari]

Merhaba arkadaşlar

Tekstil firmasında bazı yazıları düzenleme programı yapıyorum yanlız
benim takıldığım konu tek bir hücrede
30"30/30/10 İÇ İP P/P/O
diye yazım var. ama bazen ÜÇ İP yazısı içerisinde olmayabiliyor ve bu yazı olmayınca hata veriyor. bu hatadan nasıl kurtulabilirim ??

Yardımlarınız için şimdiden teşekkür ediyorum.
iyi çalışmalar.

Sub YAZIBUL()

    Cells.Find("ÜÇ İP", ActiveCell).Select
    ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8

End Sub

Dosyanın çalışır hali aşağıda bulunmaktadır.

http://rapidshare.com/files/32700838/yazibuldurma.rar

http://www.erisimcomputer.com/safa/deneme.xls

:hihoho: :hey:

 

[emrexcel123]

ek

arkadaşım link vermek yerine ek verebilir misin acaba ?

 

[safaari]

Ftp sitesine dosyayı atıp dosya linkini ekledim ve ek dosya olarak dosyayı ekledim yardımlarınızı bekliyorum iyi çalışmalar. Dosyayı açıp makroyu çalıştırınca direk yazıyı bulup küçültüyor. yanlız yazı yokken hata veriyor. bu hata nasıl gidebilir. ??

 

[emrexcel123]

kod

bu kodu kullanırmısın ?
Sub LYCBUL()
On Error GoTo hata
Cells.Find("ÜÇ İP", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
Exit Sub
hata:
MsgBox "Aradığınız Veri Bulunamamaktadır..", vbExclamation, "Veri"
End Sub

 

[safaari]

çok sağol teşekkür ederim verdiğiniz formul tam yerinde çalıştı allah sizden razı olsun .

 

[emrexcel123]

rica ederim

arkadaşım rica ederim allah hepimizden razı olsun kardeşim k::

 

[safaari]

Bir sorun daha oluştu ben bu işi başka bir kumaş çeşiti için denedim.
aynı hatayı ilk bölümde değilde bu sefer ikinci bölümde verdi.

Sub LYCBUL()

'1 ci bölüm
On Error GoTo hata1
Cells.Find("ÜÇ İP", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
hata1:

'2 ci bölüm
On Error GoTo hata2
Cells.Find("PNY", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
hata2:

End Sub

Bu hata nasıl giderilebilir.
Yardımlarınız için şimdiden teşekkürler.

 

[conari]

HATA: ALTLARINA
MsgBox "Aradığınız Veri Bulunamamaktadır..", vbExclamation, "Veri"


Ekleyin.

 

[emrexcel123]

Sub LYCBUL()
'1 ci bölüm
On Error GoTo hata1
Cells.Find("ÜÇ İP", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
hata1:
'2 ci bölüm
On Error GoTo hata2
Cells.Find("PNY", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
hata2:
End Sub

ikinci bölümü bu şekilde değiştirin...
...............
On Error GoTo hata2
Cells.Find("PNY", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
Exit Sub
hata2:
MsgBox "Aradığınız Veri Bulunamamaktadır..", vbExclamation, "Veri"
...............

 

[safaari]

Komutu aşağıdaki şekilde düzenledim yanlız
1 bölümde ÜÇ İP yazısını buluyor yapıyor veyada bulamadığı zaman hata vermiyor. 2 ci Bölümde aynı komudu yazdığım zaman "On Error GoTo hata2" komut işe yaramıyor ve bulamadığı zaman hata menusu yani debug hatası veriyor. size dosyayı ekte gönderiyorum. teşekkürler.


http://www.erisimcomputer.com/deneme2.xls

Sub LYCBUL()

On Error GoTo hata1
Cells.Find("ÜÇ İP", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
hata1:
MsgBox "Aradığınız Veri Bulunamamaktadır..", vbExclamation, "Veri"

On Error GoTo hata2
Cells.Find("PNY", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8
Exit Sub
hata2:
MsgBox "Aradığınız Veri Bulunamamaktadır..", vbExclamation, "Veri"


End Sub

 

[safaari]

Düzenlemeyi bu şekilde düzelttim ve çalıştı ilginiz için teşekkür ederim.
Beni bu dertten kurtarmak için fikir verip kurtardınız. Allahta sizin zor anınızda sizi kurtarsın. İyi çalışmalar.

Sub LYCBUL()

On Error Resume Next
Cells.Find("ÜÇ İP", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8

On Error Resume Next
Cells.Find("PNY", ActiveCell).Select
ActiveCell.Characters(Start:=Len(ActiveCell) - 5, Length:=9).Font.Size = 8

End Sub

 

[emrexcel123]

bilgi

arkadaşım
On Error Resume Next > hata olsa dahi devam ettirir
On Error GoTo deyim > hata olduğunda uyarı verir bu ikisi de işe yarar ben hata olduğunda uyarı versin şeklinde anlamışım kusura bakma ayrıca iki ayrı yere koymana gerek yok bildiğim kadarı ile en başa koyman yeterlidir...