VBA DA KAYIT NUMARASINA GÖRE GİRİLEN VERİLERİ AYNI SATIRA MÜKERRER KAYIT OLMADAN KAYDETME

[blue06900]

Merhabalar sayın arkadaşlar

İndir dosya

Dosyayı indir dosya

dosya.co

İndir maas

Dosyayı indir maas

dosya.co

Maas tahakkuk formundaki verileri per nosuna göre aynı satıra kaydetmek istiyorum. Excel formatı resimlerde gönderdim. Eğer atıyorum temmuz maaşı tahakkuk etmişse üzerine tekrar kayıt yapmayacak ve bir uyarı mesajı vererek "bu ayın maaşı tahakkuk ettirildi" gibi . Kaydetmeye ilk K sütunundan başlayacak. Yardımlarınızı talep ediyorum.

 

[TiOr]

Selam,
Aşağıdaki kodu sayfanın kod kısmına yapıştırın.
Olumlu olumsuz dönüş yaparsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat >= 3 And süt = 6 And Cells(sat, süt) <> "" Then
If WorksheetFunction.CountIf(Range("K2:K" & sat - 1), Cells(sat, süt)) >= 1 Then
MsgBox (" Bu ayın maaşı tahakkuk ettirildi."), vbCritical
Cells(sat, süt) = ""
End If
End If
End Sub