sütuna üç seçenekten biri girilebilsin

[abcd_efe]

arkadaşlar kolay gelsin.
c sütununa sadece E H V tuşları yazılabilsin. yani sadece bu üç harften bir tanesi girilebilsin. başka birşey girilemesin. bunu nasıl yapabilirim.
şimdiden teşekkür ederim.

 

[muygun]

Slm
C1 hücresini seçin
Veri/Doğrulama Özel de formül kısmına
=EĞER(YADA(C1="e";C1="h";C1="v");DOĞRU;YANLI&#350
yazın ve Tamam.
Hücreyi aşağı doğru istediğiniz kadar kopyalayın.

 

[Leoncio]

Merhaba;

Konuya ilişkin açıklamalı örnek dosya ekte.

 

[abcd_efe]

arkadaşlar öncelikle teşekkür ederim.
peki c, e, g ve j hücrelerine girilen E değerinin 0'a H değerinin 1'e V değerinin ise 2'ye dönüşmesini istiyorum. bunu nasıl yapabilirim acaba.

 

[Leoncio]

Merhaba;
Ne yapmak istediğine dair örnek bi dosya eklersen onun üzerinde çalşabiliriz.

 

[sercan91]

"leventer" arkadaş öncelikle çalışmalarında başarılar. Bir hücrenin üzerine gelince açılır liste ve yanında komut düğmesi uygulaması nasıl yapılıyor.(Yukarıda yapmış olduğun çalışmada da var) Malum acemilik. Bir de DÜŞEYARA ile görüntülenen bir hücredeki rakam (örn. 1) değereni "EĞER" ile nasıl "X" şeklinde görüntüleyebilirim. Kolay gelsin.

 

[abcd_efe]

aslında klavyeden ardı ardına hızlıca giriş yapılırken E H V tuşlarına basmak zor oluyor ve zaman alıyor. bunun yerine sağ taraftaki tuşlardan daha hızlı giriş yapabilmek için 0 tuşuna basınca otomatik olarak E'ye; 1 tuşuna basınca otomatik olarak H'ye; 2 tuşuna basınca otomatik olarak V ye dönüşsün istemiştim.

 

[Ali]

İlgili sayfanız sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle kısmını seçtikten sonra VBA'ya aşağı kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Select Case Target
Case "0": Target.Value = "E"
Case "1": Target.Value = "H"
Case "2": Target.Value = "V"
End Select
End Sub

 

[abcd_efe]

arkadaşlar öncelikle teşekkür ederim.
peki bu özelliğin C:C sütununa E:E sütununa ve J:J sütunlarına olmasını ve diğer sütunlara olmamasını nasıl sağlayabilirim. şimdiden teşekkür ederim.

 

[Ali]

If Intersect(Target, [C:C]) Is Nothing Then Exit Sub

satırını bu aşağıdaki gibi değiştirin.

If Intersect(Target, [C:C,E:E,J:J]) Is Nothing Then Exit Sub



.

 

[Leoncio]

"leventer" arkadaş öncelikle çalışmalarında başarılar. Bir hücrenin üzerine gelince açılır liste ve yanında komut düğmesi uygulaması nasıl yapılıyor.(Yukarıda yapmış olduğun çalışmada da var) Malum acemilik. Bir de DÜŞEYARA ile görüntülenen bir hücredeki rakam (örn. 1) değereni "EĞER" ile nasıl "X" şeklinde görüntüleyebilirim. Kolay gelsin.

Merhaba:

İliştirdiğim Dosyadada görüldüğü üzere F sütununda listemizi oluşturacak isimleri giriyoruz. Daha sonra a3 hücresine gelip veri>doğrulama>liste'yi seçerek Kaynak kısmına geliyoruz ve f sütunundaki hücreleri seçerek tamam diyoruz. Bu kadar.

 

[sercan91]

Sayın leventer ilgin için teşekkür ederim...

 

[sercan91]

"Düşeyara" da rakamların X görünmesi

Merhaba arkadaşlar ekteki dosyaya bir bakar mısınız?
Listede değişensisimlere göre rakamlar da değişmekte. Rakamları koşullu olarak nasıl X olarak görebilirim...

 

[sercan91]

"Düşeyara" da rakamların X görünmesi

Merhaba arkadaşlar ekteki dosyaya bir bakar mısınız?
Listede değişen isimlere göre rakamlar da değişmekte. Rakamları koşullu olarak nasıl X olarak görebilirim...

 

[Ali]

Sayfa1'deki B2 hücrenize

=EĞER(DÜŞEYARA(A2;Sayfa2!A1:D5;2;0)=1;"X";"")

Sayfa1'deki C2 hücrenize

=EĞER(DÜŞEYARA(A2;Sayfa2!A1:D5;3;0)=2;"X";"")

Sayfa1'deki D2 hücrenize

=EĞER(DÜŞEYARA(A2;Sayfa2!A1:D5;4;0)=3;"X";"")

yazınız.

 

[sercan91]

Ali Bey çok teşekkürler. Oldukça işe yaradı. Kolay gelsin...