Memur yıllık izin belgesi ve izin kartı çalışması

[zehnisağcan]

Ekde vermiş olduğum memur yıllık izin belgesi çalışmasında form sayfası korumalı olduğundan satır gizleme macrosu hata vermektedir

ekde vermiş olduğum çalışmada form sayfasında "b20" satırı gizli durumdadır

BASRİ İSİMLİ KİŞİNİN B20 SATIRINDA DEĞERLER VAR ETKİNLEŞMİYOR YANİ SATIR GÖSTERMİYOR

İNCELENDİĞİNDE SAYFA KORUMASI KALDIRILDIĞINDA ÇALIŞTIĞI GÖRÜLEBİLİR

C13 E 18030 İLE 16615 GİRİLDİĞİNDE GÖRÜLÜR HERŞEY

sayfa koruma şifresi :18030

basıc (macro) şifresi:18030

halit hocam veya diğer hocalarım yardımcı olursanız sevinirim

teşekürler şimdiden
kolay gelsin

 

[halit3]

form sayfasının kodunu aşağıdakiyle değiştir

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 13 Then
If Target.Column = 3 Then
Worksheets("FORM").Protect Password:="18030", Contents:=False, Scenarios:=False ' açmak
If Worksheets("FORM").Cells(12, "G").Value <= 0 Then
Rows("19:20").EntireRow.Hidden = True
Else
Rows("20:21").EntireRow.Hidden = False
End If
Worksheets("FORM").Protect Password:="18030", Contents:=True, Scenarios:=True ' kamatmak
End If
End If
End Sub

ekle/ad/tanımla= data verisini aşağıdaki ile değiştir

=DATA!$A$2:$P$500

 

[zehnisağcan]

hocam dediğinizi yaptım ama bu seferde çalışma kitabını paylaştır çentiği konulu ise hata veriyor kaldırıncak vermiyor

 

[halit3]

izin sayfasındaki formüllerde gereksiz izin kartına işlenince kendisi formül oluşturuyor onları sil proğramı kasmasın

 

[zehnisağcan]

evet doğru söylüyorsunuz kaldırıyorum hepsini

 

[zehnisağcan]

hocam çalışma kitabı paylaştır da çentik var ise bu macro çalışmıyor yani satır gizleyip göstermiyor

aynı anda birkaç kişi izlem yapmasını istiyorum ama

 

[halit3]

form sayfasındaki koruma C13 hücresinde açılıp kapanıyor bu durumda çalışma kitabınıda paylaşıma açarsanız kodda hata verir .
ya sayfa koruması olacak yada çalışma kitabını paylaştıracaksanız form sayfasındaki mödülün içindeki

Worksheets("FORM").Protect Password:="18030", Contents:=False, Scenarios:=False ' açmak
Worksheets("FORM").Protect Password:="18030", Contents:=True, Scenarios:=True ' kamatmak

sayfayı koruyan ve acan kısımları silmen gerekiyor

çalışma kitabını paylaşıma açman için!
yukarıdaki kodları silmen gerekiyor

 

[zehnisağcan]

end hatası veriyor

 

[zehnisağcan]

sildim yine olmadı hocam debug hatası veriyor

 

[halit3]

çalışma kitabının ve sayfa korumalarını kaldır dene

 

[zehnisağcan]

evet hocam sayfa korumasını kaldırıncak oldu

yanlız biliryorsunuz form sayfasını korumam lazım bozulmaması için peki ne yapabiliriz

 

[halit3]

bu konuda fazla bilgim yok ya korumalardan vazgeçeceksin yada paylaşımdan

 

[halit3]

yada satır gizlemesi işinden vaz geçeceksin

 

[zehnisağcan]

valla hocam form u bozarlar gibi geliyor ama imkanı olursa yapabilirsek ii olurdu ama