E

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

Epakambalaj

Normal Üye
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
 

Ekli dosyalar

Çözüm
Ö
@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
Tarihe göre sırala Oylamaya göre sırala
@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
 
Oyla 0 Olumsuz oyla
Çözüm
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
 
Oyla 0 Olumsuz oyla
@Ö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
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst