Fare ile seçilmiş son hücreyi bulma

[fealdown]

kolay gelsin,ben bir excel sayfasında fare ile en son hangi hücre seçilmiş ise o hücreyi seçsin istiyorum.nasıl yapabilirim ?

 

[Ömer BARAN]

Peki döngüden nasıl çıkmayı düşünüyorsunuz.

Belgeyi açtık ve A1 hücresi seçili durumda, ardından B1'i seçtiğimizde ne olacak? tekrar A1'e mi gitmek istiyorsunuz?
Tamam diyelim; peki bir sonra C1'i seçtiniz (bir önceki seçilen hücre A1 olmuştu) tekrar A1'e mi gitmek istiyorsunuz?

Sorunuzdan; belge açıldığında seçili hücre neyse o hücreden başka yere geçmemeyi istediğiniz anlaşılıyor, amaç nedir?

Bence istediğiniz seçimi ve bu seçimdeki maksatınızı (yapmak istediğiniz nihai işlemi) net şekilde açıklayıp,
soruyu bir örnek belge üzerinde örneklendirerek tekrar sorun.
.

 

[Ömer BARAN]

Anladığıma göre oluşturulmuş kod aşağıda (Kod A1 hücresini kullanıyor, burada başka veri varsa, A1 yerine uygun bir hücre adresini yazınız.)
Kod'u, ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında sağdaki boş alana yapıştırın.
Böylece bir önce seçilen hücrenin adresini anlayabilirsiniz.

Dim eski
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If eski = Empty Then eski = Target.Address
eski = [A1]: [A1] = Target.Address
If [A1] <> eski Then
    MsgBox "Bir önce seçilen hücre adresi:  " & eski
End If
End Sub

 

[fealdown]

http://s3.dosya.tc/server17/hohi0t/ariza.rar.html

dosya bu, şimdi benim sıra adında bir makrom var ve bu makro G hücresinde değişiklik olduğunda çalışıyor.Benim amacım mesela; g 4 de değişiklik yapıldığında g4 seçili olsun g 15 de değişiklik olduğunda g15 de seçili kalsın hücre. Umarım anlatabilmişimdir.Teşekürler.

 

[Ömer BARAN]

Sayfanın kod bölümündeki Worksheet_Change kod'u ve Module9'daki sıra isimli makro kadlarını tamamen silip aşağıdakini yapıştırın.
Kod I sütununu kullanıyor, I sütununa veri yazmayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [g5:g370]) Is Nothing Then Exit Sub
On Error Resume Next
    [I5:I370].ClearContents: Target.Offset(0, 2) = 1
    Run "sira"
End Sub

Sub sira()
    ActiveSheet.Range("B5:I370").Sort [G5], 1
    Cells(WorksheetFunction.Match(1, [I:I], 0), "G").Activate
End Sub

 

[fealdown]

çok teşekkür ederim kolay gelsin.

 

[Ömer BARAN]

Eyvallah, iyi çalışmalar dilerim.
Sorularınızı her zaman örnek belge üzerinden sormaya özen gösteriniz.