otomotik kaydetme

[Yesilyurtlu]

F sütununda entere basınca sayfanın otomotik kayıt etmesini nasıl sağlayabilirim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Target > 0 Then ThisWorkbook.Save
End Sub

 

[Yesilyurtlu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f6:f200]) Is Nothing Then Exit Sub
sat = Target.Row
formul1 = Evaluate(Replace("SUMPRODUCT((C6:C200=Cxx)*(D6200=Dxx)*(E6:E200=Exx)*(F6:F200=Fxx))", "xx", sat))
If formul1 > 1 Then
MsgBox "Bu veri daha önceden kayıtlıdır.", 32, "Uyarı!"
formul2 = Evaluate(Replace("SUMPRODUCT((C6:C200=Cxx)*(D6200=Dxx)*(E6:E200=Exx)*(F6:F200=Fxx)*ROW(C6:C200))", "xx", sat)) - sat
Rows(formul2).Select
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Target > 0 Then ThisWorkbook.Save
End Sub

Seyit abi iki tane Private Sub Worksheet_Change(ByVal Target As Range)
mevcut sayfamda birleştirebilmeniz mümkünmü rica etsem

 

[Seyit Tiken]

Bu kodu

If Target > 0 Then ThisWorkbook.Save

kodlarınız altına yapıştırıp deneyiniz.