- Katılım
- 26 Eylül 2020
- Mesajlar
- 171
- Excel Vers. ve Dili
- excel 2019 pro.Türkçe
- Altın Üyelik Bitiş Tarihi
- 26-09-2021
On Error GoTo hata
deg = InputBox("aranacak degeri giriniz.")
Range("a1:a1000").Find(deg).Select
Exit Sub
hata:
MsgBox "aranilan deger bulunamadi"
Inputbox'a girilen değer bulunduğunda ilgili hücre belli bir süre yanıp sönecek.
Makro bu kodun altına yazılacak.Şimdiden Teşekkürler.
deg = InputBox("aranacak degeri giriniz.")
Range("a1:a1000").Find(deg).Select
Exit Sub
hata:
MsgBox "aranilan deger bulunamadi"
Inputbox'a girilen değer bulunduğunda ilgili hücre belli bir süre yanıp sönecek.
Makro bu kodun altına yazılacak.Şimdiden Teşekkürler.