Dosya Açıldığında Makroyla Belirlenen Hücreye Gitme

[Epakambalaj]

Excel Versiyonu

Excel 2010

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Hayırlı akşamlar olsun üstadlarım

Örnek dosyayı açtığımızda;
A sütununda hangi hücrede "x" yazıyorsa direk oraya gitmek istiyoruz
Not A sütununda sadece bir hücrede "x" oluyor 2. kez "x" olmuyor. Dosyada A450 ye yazdık

Böyle bir şey mümkün müdür?
İlginiz için teşekkür ediyorum

 

Kaydet İşlemine Bağlı Makro Çalıştırma

Klasör İçindeki Dosyalarda Arama Yapma

[Ömer BARAN]

@Epakambalaj

İşlem sıralaması konusundaki isteğinizi-beklentinizi bilemiyorum.
ThisWorkbook (BuÇalışmaKitabı) bölümünde mevcut Workbook_Open kod blokunda ilk satır olarak
Dim bul şeklinde bir satır ekleyin. Ardından da Dim bul satırıyla End Sub satırının arasında olmak üzere
istediğiniz ya da öncelik sırası neyse ona göre uygun bir yere ekleyin.

Set bul = Sheets("Cari").[A:A].Find("x", LookIn:=xlValues, LookAt:=xlPart)
If Not bul Is Nothing Then: Sheets("Cari").Select: bul.Activate

 

[Epakambalaj]

Ellerinize sağlık hocam
Çok teşekkür ediyorum

 

[Epakambalaj]

hayırlı sabahlar @Ömer BARAN hocam
"x" hücresi ekranın orta kısmında açılıyor

"x" verisini bulunca, alta doğru 15 hücre ilave etmemiz mümkün müdür?
böylece "x" verisi ekranın ortasına değil, baş kısmına denk gelir

 

[Epakambalaj]

@Ömer BARAN

daha önce ki kodlardan faydalanarak
deneye deneye bu şekilde uyarladık hocam
iyi ki varsınız
hayırlı günler olsun


Set bul = Sheets("Cari").[H:H].Find("EPAK AMBALAJ", LookIn:=xlValues, LookAt:=xlPart)
If Not bul Is Nothing Then: Sheets("Cari").Select: bul(15, 2).Activate