son veri girilen hücrenin seçilmesi

[burhancavus61]

Geri al yapmadan son veri girilen hücreyi bulmak mümkünmü.

 

[Hepgel]

Merhaba @burhancavus61

Deneyiniz...

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

 

[burhancavus61]

Merhaba üstad. Ben mesaj olarak değil son veri girilen hücreye gitmek istiyorum. Otomatik değil tuşa bağlıda olabilir.Geri al yapmadan son veri girdiğim hücreyi bulmak amacım.

 

[Hepgel]

Doğru Anladıysam eğer,
Deneyin...

Private Sub Worksheet_Change(ByVal Target As Range)
   Target.Activate
End Sub

 

[burhancavus61]

Olmadı üstad teşekkür ederim. Uğraşma istersen

 

[Hepgel]

sanırım veriyi makro koduyla belli sayfadaki hücreye yazdırıyorsunuz.
bence en iyisi bir örnek belge eklerseniz verinin hücreye nasıl yazdırıdığı da anlaşılmış olur.
hücreye veriyi klavyeden yazıyorsanız zaten aktif hücre veri yazılan hücrenin bir altındaki hücredir değil mi.

 

[burhancavus61]

Aynen üstad bildin. Demekki olamzmış makro ile yazıyorum. Örnek için belgem çok büyük ve karışık zaten. Bi çözüm bulursam yaparım. Olmazsa acil değil. Teşekkür ederim.

 

[Korhan Ayhan]

Bu işlem için aşağıdaki adımları izleyiniz.

Dosyanızı açın.
VBA bölümünü açın.
"BuÇalışmaKitabı" ya da "ThsWorkbook" bölümünü açın.
Aşağıdaki kodu uygulayın.

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value <> "" Then Set Son_Veri_Girilen_Hucre = Target
End Sub

Yine çalışmanıza boş bir modül ekleyin ve aşağıdaki kodu uygulayın.

Option Explicit
Public Son_Veri_Girilen_Hucre As Range

Sub Git()
    Application.Goto Son_Veri_Girilen_Hucre
End Sub

 

[burhancavus61]

Valla hocam süpersiniz çok teşekkür ederim.

 

[burhancavus61]

Hocam
Bu kodu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(Target.row, 15) = "Hata" Then
    MsgBox "Bu mesaide Hata var. Mesai saati 11 satten fazla ise daha az mesai yazmalısınız. Günlük en fazla 3 saat mesai yazabilirsiniz...", , "Hata Mesajı Yakaladım"
    End If
End Sub

Bu şekilde düzenleyince

Sub Uyari()
    If Cells(Target.row, 15) = "Hata" Then
    MsgBox "Bu mesaide Hata var. Mesai saati 11 satten fazla ise daha az mesai yazmalısınız. Günlük en fazla 3 saat mesai yazabilirsiniz...", , "Hata Mesajı Yakaladım"
    End If
End Sub

Burada hata alıyorum If Cells(Target.row, 15) = "Hata" Then neden acaba.

 

[Korhan Ayhan]

TARGET sayfa ya da kitap olaylarında kullanılır.

Modül içinde ActiveCell olarak kullanmalısınız.

 

[burhancavus61]

Teşekkürler hocam.