hücre bilgisini belirleme...

[direnist]

Merhaba;
Ben bir sütundaki hücre aralığında (örneğin E4:E34 ) sırası ile E4'e 1 yazdığımda yine E4 hücresinde "Elma" yada E4'e 2 yazdığımda yine E4'de "Armut" yazısının çıkmasını ve bunuda sırası ile E34'e kadarki bütün hücrelerde bu şekilde olmasını istiyorum. Ama yapamıyorum.
Kodlama kısmına

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Range("E4").Value = 1 Then
Range("E4").Value = "Elma"
If Range("E4").Value = 2Then
Range("E4").Value = "Armut"
End If
End If
End Sub kodunu yazdığımda bunu sadece E4 içi yapıyor.Ama E34 kadarki diğer hücrelere nasıl uygulayabilirim.

Ve bunu sadece kod yazarak nasıl yapabilirim Yani çalışma sayfası içinde başka bir hücreye 1 ve 2 değerini vererek isteğim hücreye istedim değeri yazdırabiliyorum.Teşekkür ederim

 

[hamitcan]

Not: Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Target
        Case Is = 1: Target = "Elma"
        Case Is = 2: Target = "Armut"
    End Select
End Sub

 

[direnist]

Çok teşşekkür ederim.

 

[direnist]

Sayın Hamitcan Bey;
Yardımınız için tekrar teşekkür ederim. Yanlız sizin bu kodu uyguladığımda bütün sayfa içinde nerede 1 var ise "elma" ve nerede 2 var ise "armut" yazmakta.
Acaba bunu sadece istediğimiz bir hücre aralığına uygulayabilirmiyiz. Örneğin
"E4:E34" gibi.
Teşekkürler.

 

[direnist]

Merhaba Hamitcan Bey;
Acaba yukarıda yapmayı istediğim fakat yapamadığım olay mümkünmüdür?Teşekkürler.

 

[hamitcan]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, [e4:e34]) Is Nothing Then Exit Sub
    Select Case Target
        Case Is = 1: Target = "Elma"
        Case Is = 2: Target = "Armut"
    End Select
End Sub

 

[direnist]

Çok teşekkür ederim bilgiler için. İstediğim oldu.
Dilerim bir gün sizin kadar bilgili olabilirim bu konularda.Belki ozaman rahat bırakırım sizleri...

 

[hamitcan]

Azmederseniz, yaparsınız.

 

[direnist]

Merhaba Hamitcan Bey;
İnanın sizin seviyenise gelme konusunda çok azimliyim. ama çok zaman ve birazda maddiyat gerekli sanırım...
Yeni bilgiler acemi olunca yeni sorularıda beraberinde getiriyor.
Sizin en son yazdığınız kod ile istediğim oldu . Fakat şimdi de silme konusunda bir sorunum var. örnekte eklemiş olduğum dosyada a1 ve a5 arasındaki hücrelere yazdığım verileri toplu olarak seçip silmek istediğimde "type mistach" hatası alıyorum. hücreleri tek tek silince hata almıyorum.sadece toplu silmek istediğimde bu hatayı alıyorum. Konu hakkında tekrardan yardımınızı bekliyorum.
Çok teşekkür ederim.

 

[hamitcan]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, [a1:a5]) Is Nothing Then Exit Sub
    Select Case Target.Text
        Case Is = 1: Target = "elma"
        Case Is = 2: Target = "armut"
        Case Is = 3: Target = "ayva"
    End Select
End Sub

 

[direnist]

Merhaba Hamitcan Bey;
Cevabın bu kadar basit olduğunu öğrenince daha bir çok kızıyorum kendime. Meğer yolun başında dahi değilmişim. Daha yola çıkmamışım bile....

Çok klişe olacak ama tekrar teşekkürler..

 

[hamitcan]

Meğer yolun başında dahi değilmişim. Daha yola çıkmamışım bile....

Aynı şeyleri ben de bazen kendime söylüyorum. Biliyorsunuz ki öğrenmenin sonu yok. Bu nedenle üzülmeye gerek de yok. Çalışınca herşey oluyor.