Kullanici Girisine Gore Satir Sutun Gizleme

[gurcan21]

Merhaba,
Kullanici adi ve sifresiyle giris yaptigimiz bir sayfadan olusan Excel dosyamiz var. Her kullanicinin kullanici kodu var (sifrelerin tutuldugu sayfada kullanici kodu da yer aliyor) ve sayfanin K sutununda her satir icin kod girisleri var. amacimiz kullanici girisine gore kullanicinin kendi koduna ait satirlari gormesi.

Ayrica, kullanici1 in A ve B sutunlarini gormesini istemiyorum.

Tum bunlar Excelde yapilabilir mi?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sifregir()
Sayfa2.Unprotect "123"
Sayfa2.Rows("1:100").EntireRow.Hidden = True
Sayfa2.Columns("A:B").EntireColumn.Hidden = True
sifre = InputBox("Şifrenizi giriniz.")
If sifre = "ali" And Sayfa1.[b2] = 10 Then Sayfa2.Rows("1:50").EntireRow.Hidden = False
If sifre = "veli" And Sayfa1.[b3] = 20 Then Sayfa2.Rows("50:100").EntireRow.Hidden = False
Sayfa2.Protect "123"
End Sub

 

[gurcan21]

hocam filtreleme yapilacak degeri baska bir sayfanin bir hucresinden nasil cekebiliriz??

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sifregir()
Sayfa2.Unprotect "123"
Sayfa2.Rows("1:100").EntireRow.Hidden = True
Sayfa2.Columns("A:B").EntireColumn.Hidden = True
sifre = InputBox("Şifrenizi giriniz.")
If sifre = "ali" And Sayfa1.[b2] = 10 Then
Sayfa2.Rows("1:50").EntireRow.Hidden = False
Sayfa2.[c1].AutoFilter field:=1, Criteria1:=Sayfa1.[c2]
End If
If sifre = "veli" And Sayfa1.[b3] = 20 Then
Sayfa2.Rows("50:100").EntireRow.Hidden = False
Sayfa2.[c1].AutoFilter field:=1, Criteria1:=Sayfa1.[c2]
End If
Sayfa2.Protect "123"
End Sub

 

[gurcan21]

kodu bu sekliyle yazabiliyorum fakat sorun baska sayfadaki hucre degisken. yani kullanici adina gore hucre (KULLANICI,7) oluyor. bunu yapmak icin Sheets("sayfa1").Autofilter field:=1, criteria:= Sheets("sayfa3").cells(Kullanici, 7).value yazdigimda hata veriyor?