- Katılım
- 8 Aralık 2006
- Mesajlar
- 218
- Excel Vers. ve Dili
-
Excel 2002
Türkçe
- Altın Üyelik Bitiş Tarihi
- 15.06.2020
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Columns("M")) Is Nothing Then Exit Sub
If Cells(Target.Row, "Q").HasFormula And Target <> "" And IsNumeric(Target) Then
p = WorksheetFunction.Search(")", Cells(Target.Row, "Q").Formula)
ilk = Mid(Cells(Target.Row, "Q").Formula, 1, p)
ek = Mid(Cells(Target.Row, "Q").Formula, p + 1, 255)
Cells(Target.Row, "Q").Formula = ilk & "+" & Evaluate(ek & "+" & Target.Value)
End If
End Sub
Sayın powerİyi geceler,
Hocam vediğiniz kodu kendi dosyama uyarladım çalışıyor.Fakat 2 yada üç sefer girdiğim sayının ilgili kısma hatalı eklendiğini gördüm.Misal 3 sayısını giriş yaptıysam 4 eklendi,6 sayısını giriş yaptıysam 7 eklendi gibi.Bu hata süreklide olmadı.Kodu kendi dosyama uyarlarken bir hatamı yaptım acaba?