7. maaş girilirken diğer maaşların bir sıra kayması

[hamit197511]

ekteki dosyada işçilerin 6 aylık maaşı girilip kayıt -1- e basılınca sayfa 2 ye kaydediyor
kayıt -2- basılınca girilen maaşı 6. maaşa kaydetmeden önce maaşların 1 er sıra kaymasını istiyorum ekte daha detaylı açıklama mevcut
yardımlarınızı bekliyorum
saygılarımla

 

[halit3]

anlayamadım ben mevcut ile olması gerekenleri ayrı ayrı bir sayfada örnek yaparak gösterirmisin

 

[hamit197511]

ekteki dosyada açılır listeden seçilen kişiye maaş girişi yapılıyor
sadece son 6 aylık maaşı tutulacak 7.maaşı girerken bunu 6.maaşa kaydediyor benim istediğim 6.maaşa kaydetmeden önce maaşları bir hücre yana kaydırması ekteki dosyada detaylı anlatım mevcut ustalardan yardım bekliyorum.

 

[halit3]

bu kodu denermisin

Private Sub CommandButton1_Click()
For Each bibak In Worksheets("Sayfa2").Range("a2:a500")
a = bibak.Offset(0).Row
If bibak.Value = Range("ı16").Value Then
For i = 2 To 6
Worksheets("Sayfa2").Cells(a, i).Value = Worksheets("Sayfa2").Cells(a, i + 1).Value
Next i
Worksheets("Sayfa2").Cells(a, 7).Value = Range("ı17").Value
End If
Next bibak
MsgBox ("Kayıt Tamamlandı")
End Sub

 

[hamit197511]

çok teşekkür edrim halit kardeşim.