Son veri girişi yapılan hücreyi bulma

[mumugul]

Merhaba;

Son veri girişi yapılan hücreyi nasıl bulabiliriz?
Örnek, "B2" hücresine bir veri girdik ve sonra mouse ya da klavye ile herhangi bir hücreye geçiş yaptık.
Son veri girişi yapılan bu hücreyi, yani örnekte ki "B2" adresini VBA da nasıl kodlayıp bulabiliriz.

Saygılarımla...

 

[Muzaffer Ali]

Aşağıdaki kodları sayfanızın kod kısmına kopyalayın.

Public SonDegisiklikOlanHucre As Range
Dim SeciliHucre As String

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If SonDegisiklikOlanHucre Is Nothing Or SeciliHucre <> Target.Value Then
        Set SonDegisiklikOlanHucre = Target
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    SeciliHucre = Target.Value
End Sub

Sub SonDegHucre()
  MsgBox SonDegisiklikOlanHucre.Address
End Sub

 

[mumugul]

Merhaba;

Çalıştı ama kod içinde.
Benim istediğim kod ise sayfada klavye ile veri girince çalışmalı.
Yani veri girip giriş/enter tuşuna basınca veri girilen hücrenin adresini vermeli.

Saygılarımla...

 

[Ömer BARAN]

Merhaba.

Hangi hücreye veri yazdığınızı biliyorsunuzdur, zaten siz yazıyorsunuz ama neyse artık.
Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ tarafa aşağıdaki kod'u yapıştırın.
(varsa mevcut Worksheet_Change kodunu silmeniz gerekir, aynı sayfada tek Worksheet_Change kodu çalışabilir)
.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> "" Then
        MsgBox Target.Address(0, 0) & " hücresine,  " & Target.Value & "  yazdınız."
    End If
End Sub

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Hücrelere veri girip denemeler yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address(0, 0)
End Sub

 

[mumugul]

Teşekkürler...