Koda ilave

[serif11]

Arkadaşlar selam.
Aşağıdaki kodlar sayesinde E3 hücresinde bulunan rakamın üzerine tekrar rakam yazdığımda son rakam ile girdiğim rakamı toplayıp aynı yere toplamı yazdırabiliyorum. Ben buna J3 hücresini de ilave etmek istedim ama başaramadım. (Beceremedim yani)
Yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

Kodlar şöyle :

Dim tp As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
If Target.Column = 5 And IsNumeric(Target.Value) = True Then tp = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
On Error GoTo çık
Application.EnableEvents = False
If Target.Value = "" Then tp = Empty
Target.Value = Target.Value + tp
çık:
Application.EnableEvents = True
End Sub

 

[yanginci34]

Merhaba düzeltmeyi yapıp denermisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
On Error GoTo çık
Application.EnableEvents = False
If Target.Value = "" Then tp = Empty
Target.Value = Target.Value + tp+Range("j3")
çık:
Application.EnableEvents = True
End Sub

 

[serif11]

Yangıncı34 arkadaşım. Öncelikle ilgi ve emeğinize teşekkür ederim. Ben anlatamadım eminim. İsteğim; e3 hücresinde yaptığım işlemin, yani üzerine toplama işleminin j3 hücresinde de birbirlerinden bağımsız olarak yapması

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz.

[SIZE="2"]Dim tp As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$3" And Target.Address <> "$J$3" Then Exit Sub
If Target.Column = 5 Or Target.Column = 10 And IsNumeric(Target.Value) = True Then tp = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$3" And Target.Address <> "$J$3" Then Exit Sub
On Error GoTo çık
Application.EnableEvents = False
If Target.Value = "" Then tp = Empty
Target.Value = Target.Value + tp
çık:
Application.EnableEvents = True
End Sub[/SIZE]

 

[serif11]

Plint arkadaşım. Öncelikle ilginize ve emeğinize teşekkür ederim ama sonuç alamadım.
If Target.Column = 5
Satırında da düzenleme gerekiyor gibi. Çünkü e3 hücresi 5. Hücre. J3 hücresi de 10. hücre.

 

[PLİNT]

Plint arkadaşım. Öncelikle ilginize ve emeğinize teşekkür ederim ama sonuç alamadım.
If Target.Column = 5
Satırında da düzenleme gerekiyor gibi. Çünkü e3 hücresi 5. Hücre. J3 hücresi de 10. hücre.

Yukarda değişen haliyle denedinizmi?

[SIZE="2"]If Target.Column = 5 [COLOR="Red"]Or Target.Column = 10[/COLOR] And IsNumeric(Target.Value) = True Then tp = Target.Value[/SIZE]

 

[serif11]

İlk gönderdiğiniz ve son gönderdiğiniz hali ile denedim ama olmuyor maalesef

 

[PLİNT]

Dosyayı denermisiniz? İsteğiniz böyle değilmi?
http://s6.dosya.tc/server8/qiuww5/topla.zip.html

 

[serif11]

Şu an cep telefonumdan bağlanıyorum. Dosyayı indirmiyor

 

[serif11]

Pc den açmaya kalktım. "Web sayfası bloklandı" diye uyarı verip açmıyor

 

[PLİNT]

Pc den açmaya kalktım. "Web sayfası bloklandı" diye uyarı verip açmıyor

Virüs programı engellediyse burdan deneyin
http://dosya.pro/download.php?file=9629457fe30dc32f53e8da4b664be73a
veya
http://www.dosyaupload.com/Pkc

 

[serif11]

Tamamdır sayın Plint..
Az önce gönderdiğiniz kodlarla ve sonradan yaptığımız ilavelerle çalıştı...
İşlem tamam..
Çok çok teşekkür ederim...