şartlı sayfanın içeriğinin görünmesi hk.

[sensizsoldum]

merhaba arkadaşlar,
ekte bi çalışmamın örneği var. çok kapsamlı olduğundan,
küçük bir parçasını sunuyorum sizlere...
aşağıdaki linkteki dosyada
anasayfadan hangi ay tıklatırsam sadece o ay a ait bilgileri, sayfanın en üstüne gelecek şekilde görmek istıyorum,
sayfanın içeriğinin geri kalan kısmı gorunsün istemıyorum.

bu konuda bana yardımcı olabilirmısınız. çok tşk ederim, herkese iyi çalışmalar dilerim.

saygıyla.



http://s2.dosya.tc/server8/AZC5JV/_rnek12.xls.html

 

[SATYON]

merhaba arkadaşlar,
ekte bi çalışmamın örneği var. çok kapsamlı olduğundan,
küçük bir parçasını sunuyorum sizlere...
aşağıdaki linkteki dosyada
anasayfadan hangi ay tıklatırsam sadece o ay a ait bilgileri, sayfanın en üstüne gelecek şekilde görmek istıyorum,
sayfanın içeriğinin geri kalan kısmı gorunsün istemıyorum.

bu konuda bana yardımcı olabilirmısınız. çok tşk ederim, herkese iyi çalışmalar dilerim.

saygıyla.




http://s2.dosya.tc/server8/AZC5JV/_rnek12.xls.html

dosyayı link olarak değilde ek olarak verirmisiniz.

 

[sensizsoldum]

merhaba,
sayyın satyon. şirkette olduğumdan ek olarak ekleyemiyorum. silerseniz mail olarak gönderebilirim.

tşk ederim.

 

[SATYON]

merhaba,
sayyın satyon. şirkette olduğumdan ek olarak ekleyemiyorum. silerseniz mail olarak gönderebilirim.

tşk ederim.

bende şirkette olduğum için linki açamıyorum

 

[sensizsoldum]

merhaba arkadaşlar,
linkteki örnek çalışmada hangi ay tıklarsam, sadece istenilen bölümün görünmesini, kalan kısmın ise gizli olmasını,sayfanın en üste gelecek şekilde bunu sağlayabiliriz.
öte yandan aşağı sol köşede sayfaları tıkladığımızda ise normal bi şekilde görünmesini sağlayabilirmiyiz.
bu konuda yardımcı olabilirmisiniz
herkese tşk ederım iyi çalışmalar dilerim


http://s2.dosya.tc/server8/AZC5JV/_rnek12.xls.html

 

[Husgvarna]

Merhaba.
Aşağıdaki kodları "anasayfa" nın kod sayfasına yazıp deneyin.
("anasayfa" seçildiğinde "gelen" sayfasındaki gizlenen satırlar görünecektir.)

 Private Sub Worksheet_Activate()
Sheets("gelen").Rows("5:400").EntireRow.Hidden = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:a13]) Is Nothing Then Exit Sub
Sheets("gelen").Rows("5:382").EntireRow.Hidden = True
Set a = Sheets("gelen").[a4:a382].Find(What:=Target.Value)
If Not a Is Nothing Then
For b = a.Row To 400
Sheets("gelen").Rows(b & ":" & b).EntireRow.Hidden = False
If Sheets("gelen").Cells(b + 1, 2) = "" Then Exit For
  Next
  End If
Sheets("gelen").Select
Sheets("gelen").Cells(a.Row, 1).Select
End Sub