ynmcan
Altın Üye
- Katılım
- 30 Ağustos 2008
- Mesajlar
- 677
- Excel Vers. ve Dili
- 2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 29-05-2025
Merhaba,
3 vardiya sayfası olan servis programı üzerinde çalışmaktayım
Burada personeli vardiyalarına göre servislere yerleştiriyorum
Her servisin 30 satırı var
İşlem bitikten sonra sayfadaki “FARKLI kaydet” butonu ile dosyayı
Personel olmayan servisleri ve personel olan servislerdeki boş satırları silerek Farklı kaydediyorum
Sorun;
Farkılı kaydedilen dosyada,
1.VARDİYA sayfasında boş satırlar silinirken
2:VARDİYA ve 3.VARDİYA sayfalarında boş satırlar gizlenmiş olarak kalıyor, silinmiyor
Bunun nedeni nedir?
Örnek dosyam ekte
Kullandığım kod
3 vardiya sayfası olan servis programı üzerinde çalışmaktayım
Burada personeli vardiyalarına göre servislere yerleştiriyorum
Her servisin 30 satırı var
İşlem bitikten sonra sayfadaki “FARKLI kaydet” butonu ile dosyayı
Personel olmayan servisleri ve personel olan servislerdeki boş satırları silerek Farklı kaydediyorum
Sorun;
Farkılı kaydedilen dosyada,
1.VARDİYA sayfasında boş satırlar silinirken
2:VARDİYA ve 3.VARDİYA sayfalarında boş satırlar gizlenmiş olarak kalıyor, silinmiyor
Bunun nedeni nedir?
Örnek dosyam ekte
Kullandığım kod
Kod:
Dim servis, basSat
For syf = 1 To 3
For servis = 1 To 30
basSat = (servis - 1) * 34 + 6
sat = Sheets(syf).Cells(basSat + 30, "C").End(xlUp).Row + 1
If Sheets(syf).Range("B" & basSat) <> "" Then
Sheets(syf).Range("B" & sat & ":G" & basSat + 29).EntireRow.Hidden = True
Else
'On Error Resume Next
Sheets(syf).Range("B" & sat - 4 & ":G" & basSat + 29).EntireRow.Hidden = True
Sheets(syf).Range("B1:G2").EntireRow.Hidden = False
End If
Next servis
Ekli dosyalar
-
218.2 KB Görüntüleme: 4