ilgili hüceryi buldurup yeni değer atamak

[taseraydin]

Değerli Üstad arkadaşlar

bir hücrenin karşılığıığıdaki sayısal değeri başka bir sayfada düşeyara ile ilgili hücrenin değerinin üstüne toplayarak ekleme yaptırabilmek

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim k As Range
Set k = Sheets("icrakesintisi").Range("B2:B65536").Find(Range("B4").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Sheets("icrakesintisi").Cells(k.Row, "D").Value _
        = Sheets("icrakesintisi").Cells(k.Row, "D") _
        + Range("E4").Value
     End If
Set k = Nothing
MsgBox "Değer Eklendi..!!", vbOKOnly + vbInformation, "EKLEME"
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton1_Click()
Bul = 0
If [E4] > 0 Then
    Bul = Sheets("icrakesintisi").[B2:B65536].Find([B4]).Row
    If Bul > 0 Then
        Sheets("icrakesintisi").Cells(Bul, "D") = Sheets("icrakesintisi").Cells(Bul, "D") + [E4]
        [E4] = 0
    End If
End If
End Sub

 

[taseraydin]

teşekür ederim

Sn.Orıon2 ve Necdet_Yesertener her iki kodlamada harika olmuş
elinize yüreğinize sağlık
Sevgiler saygılar

 

[tbttbt]

Sn.Orıon2 ben tbttbt yapmış oluğunuz förmüller gercekten cok güzel kapsamlı bana da yardımcı olabilirseniz sevinirim sorunumu aktarmaya calıştım şimdiden teşekkürler