hücrede kalan en son veri!

[volkan.kopuz]

Merhaba;

benim ufak bir sorum olacak.bir çalışma sayfasında örneğin c1 hücresinde "a" yazdığım zaman b1 de de aynı veriyi,c1 hücresinde "b" yazdığım zaman b1 de yine "b" harfini fakat c1 de "c" yazdığım zaman b1'de en son o hücrede hangi harf kaldıysa mesela "b" harfinin kalmasını istiyorum.Bunu yapmam mümkünmüdür??

 

[volkan.kopuz]

yardımlarınızı rica ederim..

 

[volkan.kopuz]

cevabı bilen varmı

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [C1]) Is Nothing Then Exit Sub
    If UCase(Target) = "A" Or UCase(Target) = "B" Then [B1] = Target
Son:
End Sub

 

[volkan.kopuz]

yardımlarınız için çok teşekkür ederim evet işime yarıyor ama formülün devamını getiremedim,buna "C " harfinide tanımlayabilirmiyiz bir formatta kullanmam gerekirde..ve buna benzer VB olmayan bir formül bulunabilirmi?

 

[Orion1]

İlgili satırı aşağıdaki ile değiştiriniz.

If UCase(Target) = "A" Or UCase(Target) = "B" or ucase(Target) = "C" Then [B1] = Target

 

[volkan.kopuz]

teşekkür ederim,ben bunu c sütunun 1048576. sütununa kadar kopyalamak istiyorum ama olmuyor,bu verdiğiniz formüldemi değişiklik yapmak gerekiyor??

 

[volkan.kopuz]

yardım lütfen

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    If UCase(Target) = "A" Or UCase(Target) = "B" Or UCase(Target) = "C" Then Target.Offset(0, -1) = Target
Son:
End Sub

 

[volkan.kopuz]

çok teşekkür ederim Korhan bey ilginiz için ,ama çok özür dilerim soruyu pek açık anlatmadım haklısınız.ben c2 de veya c3 de bu uygulamayı yaptığım zaman sadece b1 sütunuda değil b2 ve b3 diyerek gidecek. yani c2 de ki değişiklik b2 yi,c3 deki değişiklik b3 ilgilendirmeli ?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[volkan.kopuz]

Korhan bey tam istediğim gibi,ilginiz için çok teşekkür ederim,elinize sağlık...