Vardiya izin günü düzenleme

[Fyzyc]

Merhaba,

örnek bir dosya ekleme ihtiyacı hissetmedim sormak istediğim şey basit, aşağıdaki gibi 300 kişinin vardiyası olan bir dosyam var ama ben iin günlerinden birincisini İzin-1, ikincisini İzin-2 olarak değiştirmek istiyorum, satırda ilk bulunan İzin-1 olacak

Acaba varmı pratik bir yolu??

İsim Pazartesi Salı Çarşamba Perşembe Cuma Cumartesi Pazar
Ahmet 09:00 İzin 09:00 09:00 İzin 09:00 09:00

 

[Murat OSMA]

Sanırım yapılmak istenen net anlaşılmıyor.
Örnek bir dosya üzerinde yapmak istediğinizi belirtin. Sonra dosyanızı herhangi bir dosya upload sitesine yükleyip linkini paylaşın.

 

[Ömer BARAN]

İzin kelimesi yazdığınız hücrenin İzin-1, İzin-2 gibi otomatik değiştirilmesini bilemiyorum ama, yanına (tabi o zaman her gün için birer sütun ilave etmeniz gerekir) açacağınız ilave sütunlara o kişi için tarihe göre yıllık, aylık kriteri uygulanarak numaralandırılması elbette mümkün.
Anladığım kadarıyla altın üyelik olmadığından dosya ekleyemiyorsunuz ama google drive, yandex disc veya dosya.tc gibi bir dosya aktarma sitesine dosyanızı ekleyip, eklediğiniz yere ait linki burada paylaşırsanız daha kolay cevap alacağınızı düşünüyorum.

Dosya yapınız (listenizde her bir kişi ve her bir hafta için bir satır şeklinde bir düzen var gibi ) bilinmeden cevap verilmesi biraz zor.
İyi günler dilerim.

Sayın OSMA benden önce yazmış, meram aynı elbette.

 

[Fyzyc]

Merhaba,

Dosya ektedir,

http://www.dosyalama.org/download/5118ccfe0c518346778bb03ac24d5e2b.html

Yani ben vardıyayı sistemden çekince 2 tane izin günü veriyor ama ben bu izin günlerini İzin-1 ve İzin-2 diye adlandırmak istiyorum anlayacağınız.

Teşekkürler.

 

[Fyzyc]

Yokmu bilgisii olan ?

 

[Ömer BARAN]

Yokmu bilgisii olan ?

Bu cümle cevap veya öneri de bulunmayanları BİLGİSİZ varsayma anlamına geliyor kanaatimce.

Yardım talep ederken biraz garip olmuş sanki.

İyi günler dilerim.

 

[ÖmerBey]

Aşağıdaki kodları kullanabilirsiniz.

Sub İzinSay()
ara = "İzin"
For sat = 2 To Range("A65500").End(3).Row
    For süt = 2 To Range("A" & sat).End(2).Column
        If Cells(sat, süt) = ara Then
            say = say + 1
            Cells(sat, süt) = ara & "-" & say
        End If
    Next
    say = 0
Next
End Sub

 

[Fyzyc]

@mucit77 Çok teşekkür ederim saygılarımla,

@omer.baran kastettiğim şey o değildi ama yanlış anlaşıldıysam özür dilerim selametle.

Teşekkürler.

 

[Ömer BARAN]

Estağfurullah, tekrar iyi günler.