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

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

Epakambalaj

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
370
Excel Versiyonu
Excel 2010
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
Ö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
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ı
Geri
Üst Alt