görev listesi

[Hacı Bayram ÖZKAN]

arkadaşlar ekli görev listesinde isteğimi anlattım, her personel için her gün için bu rakamların bu büton ile bir bir artmasını istiyorum. teşekkürler.

 

[Necdet]

Merhaba,

Bir eleştiri : rakamları parantez içine değil ayrı bir hücreye yazsanız kodlar çok daha kısa ve anlaşılır olacaktır.

Sub GunEkle()
    Dim i   As Long, _
        Son As Long, _
        c   As Range, _
        d1, _
        d2, _
        Deger As Integer
        
    Son = Cells(Rows.Count, "D").End(3).Row
    Set c = Range("D:D").Find("BULUNMAYANLAR", LookIn:=xlValues)
    If Not c Is Nothing Then
        i = c.Row + 1
    Else
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    On Error Resume Next
    For i = i To Son
        d1 = Split(Cells(i, "F"), "/")
        d2 = Split(d1(1), ")")
        Deger = Val(d2(0)) + 1
        Cells(i, "F") = d1(0) & "/" & Deger & ")"
    Next i
    Application.ScreenUpdating = True
    MsgBox "Sayılar Arttırılmıştır...", vbInformation, "N.YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[Hacı Bayram ÖZKAN]

Necdet bey öncelikle eleştirinize cevap; bizim yazışma kurallarında bu işlem böyle oluyor. ayrıca bunu sadece üç personel için hazırlamışsınız. 4. personeli girince izin günlerini arttırmıyor, bu 5. 6. 7. personelde olabilir, hücre olarak bu değerler F23:F33 arası olsa daha iyi olacak buna bakarmısın. Çok teşekkürler.

 

[Hacı Bayram ÖZKAN]

abi özürdilerim, tamam tamam yapmışsın, d sütununa değer girmek gerekiyormuş. tamam eline sağlık dua ile kal.

 

[Necdet]

abi özürdilerim, tamam tamam yapmışsın, d sütununa değer girmek gerekiyormuş. tamam eline sağlık dua ile kal.

güle güle kullanınız.

 

[Hacı Bayram ÖZKAN]

arkadaşlar isteğimi ekli dosyamda anlattım, daha önce necdet bey bir makro yazmıştı, bunun haricinde görev listesini değiştirmek için bir makro lazım, görevliler her gün için değişecek. teşekkürler

 

[Hacı Bayram ÖZKAN]

arkadaşlar en son mesajımdaki dosyaya bakarmısınız.

 

[Hacı Bayram ÖZKAN]

arkadaşlar 6 nolu mesajdaki dosyaya bakarmısınız.