if else

[yelgecak]

Arkadaşlar yardımlarınızı rica ediyorum.

Sheets("Sayfa1").Select
If Cells.Find("Hat No/Adı:1/01").Select Then
Selection.Copy
Sheets("Sayfa3").Select
Range("a1").Select
ActiveSheet.Paste
Else
Sheets("Sayfa3").Select
Range("a1").Select
Range("a1").Value = "değer bulunamadı"

yukarıdaki kodda sayfa1 de "Hat No/Adı:1/01" içeren hücre bulunuyor sayfa3 e kopyalanıyor. bulamaz ise hata mesajı geliyor. denemeye çalıştım ama yapamadım yardımlarınıza ihtiyacım var teşekkürler.






End Sub

 

[Murat OSMA]

Bu konuya bir cevap verecek misiniz ? :dusun:

http://www.excel.web.tr/f14/cumleni...kelimeyi-almak-t117740/sayfa2.html#post643552

Ayrıca konu adına, yardım istediğiniz konu ne ise onu yazınız. if else bir şey ifade etmiyor..

 

[mersilen]

Merhaba
Dosya eklerseniz daha rahat yardımcı olabiliriz.