Derece - Kademe Sorunu

Yesilyurtlu · 2 Temmuz 2010

Üstadlarım;
Sorum ekli dosyada mevcut Yıl sütunu artıkça Derece sütunu 1 artacaken fazla 3 olacak. Kademe 3 olunca Derece 1 düşecek. Allah Rızası için Yardımcı olabilir misiniz?

Mehmet Şahin · 2 Temmuz 2010

Merhaba,
ekteki dosyayı incelermisiniz,
"I" sütunundaki yılın artışı ile çalışacaktır.
iyi çalışmalar.

halit3 · 2 Temmuz 2010

alternatif dosya

p ve q sütunundaki aylara göre

toplu olarak j,k,l,m sütunları artıyor veya eksiliyor

halit3 · 2 Temmuz 2010

dosyadaki kodları yeniden düzenledim terfisi gelen kişiye ait hücreler renkleniyor

Yesilyurtlu · 2 Temmuz 2010

dentex ve bir çok kere yardımını benden esirgemeyen halit3 uzmanıma
TEŞEKKÜR EDERİM

halit3 · 2 Temmuz 2010

Yesilyurtlu' Alıntı:
dentex ve bir çok kere yardımını benden esirgemeyen halit3 uzmanıma
TEŞEKKÜR EDERİM

iyi çalışmalar

Yesilyurtlu · 4 Temmuz 2010

Halit Abi;
4. mesajınızda ki dosyada derece ve kademe ilerlemesini yaptıramadım. Bir bakabilir misin?

halit3 · 4 Temmuz 2010

Kod:

ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, [COLOR=red]14[/COLOR]).Value, "mmmm")

yukarıdaki kodu aşağıdakiyle kırmızı yazan yerleri değiştir.

Kod:

ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, [COLOR=red]16[/COLOR]).Value, "mmmm")

P1 hücresi ilgili ayı gösteriyor
buna bakarak
P5 hücresi P1 hücresine eşitse
J5 ve K5 hücrelerindeki değerler değişiyor.

aynı şekilde

Q5 hücresi P1 hücresine eşitse
L5 ve M5 hücrelerindeki değerler değişiyor.

Burada yapılmak istenen

P5 ve Q5 hücrelerindeki değerler P1 hücresi ile aynı ise
bunlara paralel J5,J5:L5,M5 Hücreleri değişiyor

bunun dışında terfi tarihi ve göreve başlama hücrelerindeki değerlerin değişmesi bu duruma etki etmiyor.

terfileri 2 bölümde ele aldık maaş yönünden ve emekli yönünden
kişiye ait bilgiler girildiğinde göreceksin ki terfisi gelen hücreler pembe ve mavi renkli oluyor
siz sadece ayda bir kere terfileri aktar düğmesini tıklıyacaksınız.

Kod:

Sub emekliaktar()
ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, 16).Value, "mmmm")
KOLON = 17
KADEME_KOLON = 12
TERFI_KOLON = 13
For i = 5 To Worksheets("Sayfa1").Cells(Rows.Count, KOLON).End(3).Row
If ARANACAK_DEGER = Sheets("Sayfa1").Cells(i, KOLON).Value Then
yer = Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value
yer1 = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value
If yer1 & yer = 13 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = 1
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 4
Else
If yer = 1 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 2
ElseIf yer = 2 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
ElseIf yer = 3 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 1
If Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value > 1 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value - 1
End If
End If
End If
End If
Next
End Sub
Sub emekligerial()
ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, 16).Value, "mmmm")
KOLON = 17
KADEME_KOLON = 12
TERFI_KOLON = 13
For i = 5 To Worksheets("Sayfa1").Cells(Rows.Count, KOLON).End(3).Row
If ARANACAK_DEGER = Sheets("Sayfa1").Cells(i, KOLON).Value Then
yer = Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value
yer1 = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value

If yer1 & yer = 14 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = 1
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
Else


If yer = 1 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value + 1
ElseIf yer = 2 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 1
ElseIf yer = 3 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 2
End If
End If
End If
Next
End Sub

Sub maasaktar()
ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, 16).Value, "mmmm")
KOLON = 16
KADEME_KOLON = 10
TERFI_KOLON = 11
For i = 5 To Worksheets("Sayfa1").Cells(Rows.Count, KOLON).End(3).Row
If ARANACAK_DEGER = Sheets("Sayfa1").Cells(i, KOLON).Value Then
yer = Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value
yer1 = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value
If yer1 & yer = 13 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = 1
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 4
Else
If yer = 1 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 2
ElseIf yer = 2 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
ElseIf yer = 3 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 1
If Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value > 1 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value - 1
End If
End If
End If
End If
Next
End Sub
Sub maasgerial()
ARANACAK_DEGER = Format(Sheets("Sayfa1").Cells(1, 16).Value, "mmmm")
KOLON = 16
KADEME_KOLON = 10
TERFI_KOLON = 11
For i = 5 To Worksheets("Sayfa1").Cells(Rows.Count, KOLON).End(3).Row
If ARANACAK_DEGER = Sheets("Sayfa1").Cells(i, KOLON).Value Then
yer = Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value
yer1 = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value

If yer1 & yer = 14 Then
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = 1
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
Else

If yer = 1 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 3
Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value = Sheets("Sayfa1").Cells(i, KADEME_KOLON).Value + 1
ElseIf yer = 2 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 1
ElseIf yer = 3 Then
Sheets("Sayfa1").Cells(i, TERFI_KOLON).Value = 2
End If
End If
End If
Next
End Sub

Sub TERFİLERİYAP()
emekliaktar
maasaktar
MsgBox (" Terfiler Yapıldı kontrol ediniz.")
End Sub


Sub TERFİLERİGERİAL()
maasgerial
emekligerial
MsgBox (" Terfiler Geri Alımı Yapıldı.")

End Sub

Yesilyurtlu · 4 Temmuz 2010

Halit Abi;

8. Mesajdaki dosya çalışıyor abi.
Ellerine Sağlık. Hakkını Helal Et

halit3 · 4 Temmuz 2010

Yesilyurtlu' Alıntı:
Halit Abi;

8. Mesajdaki dosya çalışıyor abi.
Ellerine Sağlık. Hakkını Helal Et

iyi çalışmalar

burhanşahin · 24 Eylül 2010

terfi farkı

Halit bey merhaba, derece-kademe programınız, gerçekten çok kullanışlı ve yalın halde. Hocam birde geriye dönük terfi farklarının hesaplanması ile ilgili bir programınız varmıydı,bizimle paylaşırsanız çok memnun olacağız,şimdiden teşekkürler kolay gelsin.

meydan11 · 25 Eylül 2010

evet çok çok iyi olur halit bey

halit3 · 25 Eylül 2010

burhanşahin' Alıntı:
Halit bey merhaba, derece-kademe programınız, gerçekten çok kullanışlı ve yalın halde. Hocam birde geriye dönük terfi farklarının hesaplanması ile ilgili bir programınız varmıydı,bizimle paylaşırsanız çok memnun olacağız,şimdiden teşekkürler kolay gelsin.

aşağıdaki linkdeki dosyaya bir bakınız.

http://www.excel.web.tr/f47/maa-gosterge-fonksiyonlary-orneoi-t68829.html#post374279

burhanşahin · 26 Eylül 2010

terfi farkı hesabı

Merhaba Halit bey,Hocam bu program elbette terfi takibi için güzel bir program fakat benim dediğim, eksik yapılan hizmet birleştirme sonucu oluşan geriye dönük terfi farklarını hesaplayan bir program..mesela kişinin 5 yıl ssk hizmeti olsun,4 yıllık terfi yapıldı ise ve bu sonradan farkedilip geriye dönük terfi farkını hesaplayabilecek bir program..şimdiden teşekkür ederim.

halit3 · 26 Eylül 2010

emekli kesenekleri ile ilgili geçmiş yıllara ait barçlanma aşağıdaki linkde var.
http://www.excel.web.tr/f124/emekli-kesenekleri-hizmet-birle-tirmeleri-t74589.html

eğer geçmişe dönük maaş farklarını hesaplamak istiyorsanız bu tür bir çalışmam yok
ancak aşağıdaki linkde bordro çalışması mevcut buradan belki yararlanılabilir.
http://www.excel.web.tr/f124/memurve-i-ci-maa-y-yolluklar-hastasevk-izin-t60578.html

Derece - Kademe Sorunu

Yesilyurtlu

Ekli dosyalar

Mehmet Şahin

Destek Ekibi

Ekli dosyalar

halit3

Uzman

Ekli dosyalar

halit3

Uzman

Ekli dosyalar

Yesilyurtlu

halit3

Uzman

Yesilyurtlu

halit3

Uzman

Ekli dosyalar

Yesilyurtlu

halit3

Uzman

burhanşahin

meydan11

halit3

Uzman

burhanşahin

halit3

Uzman