...Birkaç konuda sıkıntıya düştüm.
Vardiyalı sistemle çalışan bir şirket mensubuyum benden bazı veriler isteniyor.
Örneğin : Her gün 3 Vardiya çalışma yapılıyor.
Tarih Vardiya Personel Sayısı
01.01.2020 1 1
01.01.2020 1...
Merhaba arkadaslar malum lanet virusten calisma saatlerimizde farkliliklara gidildi.
35 kisilik isyerimiz 7/24 calisiyor.
Bir gunde 12 ser saat olmak uzere 2 vardiya calisiyoruz.
4 gun iş 3 gün tatil olarak liste ayarlamak istiyorum fakat 2 gundur isin icinden cikamadim.
Her 12 saatte en az 8...
Bazı güncellemeleri yapmışsınız ama bazıları eksik kalmış, özellikle for next döngüsünün step yani adım aralığı olmamış, bir de HT ve diğer durumlar için eklenecek sütun sayısını 1 fazla belirlemişsiniz. Onları düzelttim:
Sub haftavar()
Set s1 = Sheets("VARDİYA")
Set s2 = Sheets("Çalışma...
Herkese Günaydın.
Sayın, YUSUF44 Arkadaşımızın yardımı ile geliştirmeye çalıştığım vardiya sayfasından çalışma listesi sayfasına veri aktarırken makroda aşağıdaki hatayı alıyorum.
Konu hakkında yardımlarınızı rica ederim.
Saygılarımla,
sward175
sut = WorksheetFunction.Match(s2.Cells(gun2...
Sadece o değil, ayrıca VD isimli sütununuzu da iptal etmişsiniz. Lütfen bu değişikliklere dikkat edelim, hatanın nerde olduğunu buluncaya kadar yarım saat uğraştım.
Aşağıdaki makroyu deneyiniz:
Sub haftavar()
Set s1 = Sheets("VARDİYA")
Set s2 = Sheets("Çalışma Listesi")
sonper =...
Sanıyorum sorun sadece döngü aralığının değiştirilmesiyle ilgili. Bunu sizin de yapabilmeniz lazımdı aslında, biraz dikkat ve gayretle yapabilirdiniz bence.
Aşağıdaki makro uygun mu?
Sub haftavar()
Set s1 = Sheets("VARDİYA")
Set s2 = Sheets("Çalışma Listesi")
sonper = s1.Cells(Rows.Count...
Dediğiniz gibi ekli ancak yine aynı sorun oluyor.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr1 As Date, tr2 As Date
Dim s2 As Worksheet, x As Long, tr()
Dim a As Long, p As Long, j As Range, c As Long
Set s2 = Sheets("Günlük Performans")
Application.Calculation =...
...vardiyayı oturtmam gerekiyor ve işin içinden çıkamadım.
şöyle ki çalışma saatlerimiz 8 saat üzerinden 3 vardiya şekilnde çalışıyoruz vardiya çalışma saatlerimiz şu şekilde;
07:00 - 15:00
15:00 - 23:00
23:00 - 07:00 şeklinde fakat bu özel durumu olan arkadaşımız 2 ay boyunca sadece 07:00 -...
Private Sub Worksheet_Change(ByVal Target As range)
If Intersect(Target, [e1]) Is Nothing Then Exit Sub
Dim BUL As range, _
Adr As String, _
sat As Long, _
sv As Worksheet
Set sv = Sheets("PERSONEL")
Set sb = Sheets("Servis_Bul")
'Suzlerikaldir...
7 kişi ile 3 vardiya çalışma listesi hazırlamak istiyorum. İsimleri çalışma sayfasına yazdığımda, çalışma gününün 7. günü hafta tatili olacak şekilde vardiya listesi. Vardiyalarda kişileri sürekli haftalık olarak 08:00/16:00 - 16:00/24:00 ve 24:00/08:00 değiştirecek. Özellikle 16:00/24:00...
Aşağıdaki makroyu deneyiniz:
Sub haftavar()
Set s1 = Sheets("VARDİYA")
Set s2 = Sheets("Çalışma Listesi")
sonper = s1.Cells(Rows.Count, "A").End(3).Row
s2.Range("C6:AN45").ClearContents
s2.Range("C50:AN89").ClearContents
For gun1 = 3 To 29 Step 13
For gun2 = 3 To 47 Step 44
ht =...
Öncelikle herkese merhaba bu konuda bende program arayışı içerisindeyim ama belirlediğim bir program bulamadım.
Benim projemde Laboratuvar personeli 8 yıllık çalışma 3 vardiya (08-16 16-24 24-08) şeklinde vardiya listesi var.
Vardiyalar iki haftada bir arada olacak ve personellerin bir kısmı...
Merhaba 2 sayfadan oluşan bir çalışma kitabım var. 1.sayfadaki A sütünunda yer alan verileri benzersiz olarak 2.sayfadaki A sütununa isim olarak B sütununa ise 1. sayfa A sütununda girilen verinin kaç defa tekrar ettiğini sayısal olarak yazdırıyor. Buraya kadar Sayın @ÖmerBey ve Sayın @çıtır...
Merhaba Arkadaşlar bir konuda desteğinize ihtiyacım var ekte yüklediğim excelde yeşil ile belirttiğim alanda personellerin toplam çalığı haftalık saati gösteriyor şöyle bir sorunum var günlerden birine personele izin yazdığımda saat girmediğim için formül bozuluyor Uğur isimli personele perşembe...
Merhaba,
Elinde bu iş için hazırlanmış bir çalışma olan arkadaşımız var mı bilmiyorum ama işlerin akışını hızlandırmak adına size birkaç soru ve önerim var.
Öncelikle;
- Kaç personel servis kullanacak?
- Kaç servisiniz mevcut?
- Servislerinizde kaç koltuk mevcut?
- Servis tam dolu olarak mı baz...
Tarihi oluşturan yıl ve ay ile, bu tarihlerin haftasonu/resmi tatil kontrolü yapılarak çalışma günlerine hangi harflerin yazılacağı/yazılmayacağını belirleyen vardiya başlangıç harfindeki değişiklik tüm Xlerin konumunu değiştireceğinden bunu önerdim.
Yani yıl, ay ya da vardiya harfi...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.