Sheets("Sayfa1").select olayını yapamıyorum.

[harziyan]

İyi geceler;
Formumu açtığımda “ESKİ KYT” butonu ile gittiğim “2010” veyahut “2011” formlarından dönüşte ne yaptımsa “liste” sayfasını aktif hale getirip dönemedim? Hatasız işlem yapabilmem için bu ön şart! Acaba bu sıkıntıyı nasıl giderebilirim.
Örneğin "2010" Formundan dönüşte kullandığım kodlarım aşağıda;

Unload Me
Sheets("liste").Select

 

[harziyan]

Dosyamı eklemeyi unutmuşum afedersiniz!

 

[Orion1]

İyi geceler;
Formumu açtığımda “ESKİ KYT” butonu ile gittiğim “2010” veyahut “2011” formlarından dönüşte ne yaptımsa “liste” sayfasını aktif hale getirip dönemedim? Hatasız işlem yapabilmem için bu ön şart! Acaba bu sıkıntıyı nasıl giderebilirim.
Örneğin "2010" Formundan dönüşte kullandığım kodlarım aşağıda;

Unload Me
Sheets("liste").Select

Sayfa gizli ise seçemezsiniz.
değilse satırların yerlerini değiştirip tekrar deneyin.

 

[harziyan]

Sayın Hocam;
önerinizi denedim olmadı, yalnız az önce şunu farkettim. Çalışma dosyamı gizlemeden yaptığımda ilgi sayfa aktif oluyor, ancak çalışma sayfamı gizleyerek yaptığımda ise olmuyor. Ayrıca ilgili sayfanın da gizli olmadığını kontrol ettim. (gizlemeden kastım Application.Visible olayı)

 

[Orion1]

Sayın Hocam;
önerinizi denedim olmadı, yalnız az önce şunu farkettim. Çalışma dosyamı gizlemeden yaptığımda ilgi sayfa aktif oluyor, ancak çalışma sayfamı gizleyerek yaptığımda ise olmuyor. Ayrıca ilgili sayfanın da gizli olmadığını kontrol ettim. (gizlemeden kastım Application.Visible olayı)

Demekki gizleyince seçilemiyor.
Ya seçmekten vazgeçeçeksiniz yada o an görünür yapıp sonra tekrar gizleyeceksiniz.
Ancak benim önerim excelde hiç bir işlemi seçerek yapmayın.
Bu exceli yavaşlatır.
Mersedes varken renoya binermisin.

 

[harziyan]

Demekki gizleyince seçilemiyor.
Ya seçmekten vazgeçeçeksiniz yada o an görünür yapıp sonra tekrar gizleyeceksiniz.
Ancak benim önerim excelde hiç bir işlemi seçerek yapmayın.
Bu exceli yavaşlatır.
Mersedes varken renoya binermisin.

Ah keşke binebilsek de emeklemeden olmuyor Hocam! Seçerek yapmamak hususunda bir örnek verebilir misiniz?

 

[Orion1]

Ah keşke binebilsek de emeklemeden olmuyor Hocam! Seçerek yapmamak hususunda bir örnek verebilir misiniz?

sayfa1 aktif değil.sayfa1 deki A1 hücresindceki veriyi okuyor.

msgbox sheets("Sayfa1").range("A1").value

 

[harziyan]

Hocam mantığını anladım. Kodlarımda bu hususa da dikkat edeceğim artık. İnşallah form üzerinden veri süzme işlemlerinde de iş görür. Ben en çok bu yüzden önce sayfa seçtiriyordum. Teşekkür ederim. İyi geceler.

 

[harziyan]

Acemiyi mercedese bindirmeyeceksin aga ne oldum delisi olur? Sayın Hocam ben bi daha bi daha sorun belirtirken mahcup oluyorum da ne yaparsın sormadan da olmuyor.
Bu farklı sayfalardan veri süzme işi için ne önerirsiniz? Aynı sayfada iken sorunumu kendimce çözmüştüm ama şimdi belirttiğiniz yöntem ile bu işi beceremedim. Siz bana ipucu verin ben araştırayım olmaz mı?

 

[Necdet]

Acemiyi mercedese bindirmeyeceksin aga ne oldum delisi olur? Sayın Hocam ben bi daha bi daha sorun belirtirken mahcup oluyorum da ne yaparsın sormadan da olmuyor.
Bu farklı sayfalardan veri süzme işi için ne önerirsiniz? Aynı sayfada iken sorunumu kendimce çözmüştüm ama şimdi belirttiğiniz yöntem ile bu işi beceremedim. Siz bana ipucu verin ben araştırayım olmaz mı?

Aşağıdaki kodları inceleyiniz.

Mutlaka ilgili sayfada olmak zorunda değilsiniz veri süzmek için.

Sub Suz()
 
    Dim ss  As Worksheet
    Dim i   As Long
 
    Set ss = Sheets("SATIŞLAR")
    i = ss.Cells(Rows.Count, "A").End(3).Row
 
    ss.Range("$A$1:$Z$" & i).AutoFilter Field:=1, Criteria1:= "ANKARA"
 
End Sub

 

[harziyan]

Sayın Hocam önerinizi İnşallah dosyama uyarlar uyarlamaz yorumlarımı bildireceğim. İyiki varsınız...
(Tüm excel.web.tr ailesinin usanmak bilmeyen üyelerine atfen.)