değişiklik yapılan hücreyi mail atma

[nemiprosti]

Merhaba,

Bir sütun boyunca hangi hücreye veri girilirse veya verisi değiştirilirse o hücre verisini mail atmak istiyorum.

Örnek:
Mesela A sütunu için bir kod yazılırsa,

eğer A5'e bir girersem bu değeri mail atmalı,

sonra A5'in değerini değiştirirsem, yeni girdiğim değeri mail atmalı.


yanı herhangi bi A hücresine (boş veya dolu) yeni bir değer girildiğinde bunu mail atmak istiyorum.


Yardımlarınız için şimdiden teşekkür ederim.

 

[Muzaffer Ali]

hangi sayfada çalışmasını istiyorsanız o sayfanın kod editörüne aşağıdaki kodu yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then '1.Kolonda bir değişiklik olursa
        'Buraya yapmak istediğiniz kodları yazınız.
    End If
End Sub

 

[nemiprosti]

Merhaba, cevabınız için teşekkür ederim. Aşağıdaki kod üzerinde değişiklik yapmak istiyorum.

Sub degis()

Dim sh As Worksheet
Set sh = Sheets("Sheet2")
For j = 4 To sh.[f65536].End(3).Row
If sh.Cells(j, "f") > 0 Then
'buraya kodumu yazıyorum

colunm j üzerinde çalışıyorum. Yukarıdaki kod f4'ten aşağıya kadar her satırı süzüyor ve dolu olan satır/satırlar için kodumu çalıştırıyor.

Ben ise kodun sadece (f sütununda) son değişiklik yapılan hücre için çalışmasını istiyorum

yanı f26'ya veri girdiğinde veya verisini değiştirsiğinde f26 için, (bu durumda yukarıdaki j=26 olacak)
,,

f233'e veri girildğinde veya verisi değiştirildiğinde f233 için çalışsın. (bu durumda yukarıdaki j=233 olacak)

 

[Muzaffer Ali]

Yukarıda verdiğim kod anladığım kadarıyla işinizi görecektir.
Eski kodu silip verdiğimi deneyin.