İsme karşılık gelen alanın hide edilmesi

[lokurlu]

Arkadaşlar benim sorum şöyle

Ekte göndedrmiş olduğum dosya açıklamaya çalıştım

kısaca şöyle bir çalışma kitabını 15 kişi kullanıyor fakat bunların

kullanacak alanlar belli onun için kitapa girdikleri zaman otomatik

sadece kullanacakları alanı görebilcek makroyu nasıl

yazabiliriz. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip dosyanızı kaydedip kapatın. Açtığınızda isim kontrol edilecek ve buna göre ilgili sütunlar gizlenecektir.

Sub AUTO_OPEN()
    Set SU = Sheets("users")
    Set SP = Sheets("plan")
    If SU.[D1] = "ahmet" Then
    SP.Cells.EntireColumn.Hidden = False
    SP.[A:B,G:IV].EntireColumn.Hidden = True
    ElseIf SU.[D1] = "kamıl" Then
    SP.Cells.EntireColumn.Hidden = False
    SP.[A:F,K:IV].EntireColumn.Hidden = True
    ElseIf SU.[D1] = "defne" Then
    SP.Cells.EntireColumn.Hidden = False
    SP.[A:J,O:IV].EntireColumn.Hidden = True
    ElseIf SU.[D1] = "cemre" Then
    SP.Cells.EntireColumn.Hidden = False
    SP.[A:N,S:IV].EntireColumn.Hidden = True
    Else
    SP.Cells.EntireColumn.Hidden = False
    End If
    Set SU = Nothing
    Set SP = Nothing
End Sub

 

[lokurlu]

sn cost control kişiler şifre ile giriyorlar onun için
ismini girip şifresini girdikten sonra
ismini d1 hücresine otomatik kopyaladığı için
işlemin daha sonra çalışması gerekiyor

bunu için makro yazmamız gerekmez mi

yardımcı olursanız teşekkür ederim

 

[lokurlu]

sn cost control soruyu sordum fakat cevabınıda buldum
ilginiz için teşekkürler

 

[mehmetdemiral]

Şu bulduğunuz cevapları buraya yazsanız da başkaları da yararlansa.. Biz de boşuna okumamış oluruz..

 

[mithrill74]

çalışmanızı sütunlarla değil de kişilere ait ayrı sayfalar şeklinde yapsanız daha düzenli olmaz mı. ayrı bir sayfada icmal olarak ta göstermesi daha rahat olur bence. herkese iyi çalışmalar