çalışma sayfasında arama yapma

[oguzhanbkurt]

arkadaşlar öncelikle hepiizin geçmiş ramazan bayramını kutlarım sonra konuya dönmek gerekirse



şimdi 1 çalışma sayfası var
bu sayfayı index olarak düsünün
belirli başlıklar var ve bu başlıkların yanın daki butonlara bastığinizda
o başlıkla ilgili sayfaya gidiyor

buraya kadar bi sorun yok
am bu index dediğim sayfada ki başlikların sayılabilecek gibi
veya gözle aradığında buluna bilecek gibi değil

bunun için Ctrl + F yapıp aradığim başlığın yaklaşık ismini girip buluyorum



burada bi sorun yok
ben bu işlemi



bir hucraya yazarak yanına da bir buton koyarak yapmak istiyorum

nasıl yapabilirim acaba yardımcı olurmusunuz?

aynı şekilde bir butonla yazdırma alanı belirlemek istiyorum ama konu hakkında bir bilgiye sahip değilim teşekkur ederim...

 

[mehmett]

Bu isteğiniz değişik yöntemlerle yapılabilir.

Ekte bir örnek gönderiyorum.

 

[mehmett]

2. sorunuz için;

Araç Çubuklarına yazdırma alanı belirleyen bit tuş ekleyebilirsiniz.

Bunun için menülerden;

Araçlar, Özelleştir komutunu verin, açılan pencerden Yazdırma alanı tuşunu bulup araç çubuklarınızdan birine sürükleyin. (Ekteki resme bakın)

 

[oguzhanbkurt]

oğuzhan büyükkurt

ya tesekkur ederim ama tam olarak anlatamadım gali ba ek bir inceler seniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Birinci sorunuz için sayfadaki butona aşağıdaki kodu atayınız.

Sub BUL()
    Set S1 = Sheets("Sayfa1")
    S1.Cells.Find(What:=S1.TextBox1, After:=ActiveCell, _
    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Set S1 = Nothing
End Sub

İkinci sorunuz içinse sayfadaki butona aşağıdaki kodu atayınız.

Sub YAZDIRMA_ALANI()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
End Sub

 

[İdris SERDAR]

Dosyanız ekte.