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

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

Epakambalaj

Excel Versiyonu
Excel 2010
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

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
@Ö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