hücreye değer girme

[yahaci]

Yapmak istediğim şey şu:
A1 hücresine 2 rakamı girince B1 hücresine 1 yazsın ve A1 hücresine 3 yazıca B1 hücresine busefer 2 yasın istiyorum

 

[N.Ziya Hiçdurmaz]

Yanıt

[COLOR="Black"]=+EĞER(A1=2;1;EĞER(A1=3;2;""))[/COLOR]

 

[yahaci]

sevgili hocam peki bu söylediğimi makrolarla yapamazmıyız

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
[B1] = ""
If Target = 2 Then [B1] = 1
If Target = 3 Then [B1] = 2
End Sub

 

[yahaci]

hocam çok teşekkür ederim

 

[yahaci]

sevgili hocam bunu bana bir örnek dosya yapabilirmisiniz bu kodları çalıştırmayı başaramadım daha doğrusu nasıl kullanacağımı bulamadım

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz

 

[yahaci]

hocam çok teşekkür ederim Allah razı olsun

 

[yahaci]

Sevgİlİ Hocam Çok TeŞekkÜrler Bİr Sorum Daha Olacak Şİm Ayni Sayfada İkİ HÜcrede Daha Ayni Olayi Yapabİlİrmİyİz ÖrenĞİn A2 Ve B3 Gİbİ Olabİlİrmİ Ben Yapamadimda

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil kullanınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
[B1:B2] = ""
If [A1] = 2 Then [B1] = 1
If [A1] = 3 Then [B1] = 2
If [A2] = 2 Then [B2] = 1
If [A2] = 3 Then [B2] = 2
End Sub

 

[yahaci]

Hocam Çok TeŞekkÜrler GerÇekten MÜtİŞsİnİz Son Bİr Soru
A1=b1
A2=b2
A3=b3
A4=b4 Şeklİnde Nasil Yapabİlİrİz Şİmdİden Çok TeŞekkÜrler Hocam

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodu biraz kısaltalım

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A4]) Is Nothing Then Exit Sub
[B1:B4] = ""
If Target = 2 Then Target.Offset(0, 1) = 1
If Target = 3 Then Target.Offset(0, 1) = 2
End Sub

 

[yahaci]

sevgili N. Ziya HİÇDURMAZ Hocam şuana kadarki yardımlarınız için size teşekkür ederim sizden bir istirhamım daha olacak D2 2 Rakamını girince B9 1 yazsı D2 3 yazıncada B9 2 yasın & aynı şelilde P2 2 Rakamını girince L9 1 yazsın P2 3 yazıncada L9 2 yasın şimdiden teşekkür ederim saygılar

 

[yahaci]

bir çalışmam var ne yapmak istediğimi onun üzerinde anlatsam daha iyi olacak ama nasıl ekyeceğim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sadece hücre adreslerini değiştirmeniz yeterli

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2,P2]) Is Nothing Then Exit Sub
Range("B9,L9").Clear
If [D2] = 2 Then [B9] = 1
If [D2] = 3 Then [B9] = 2
If [P2] = 2 Then [L9] = 1
If [P2] = 3 Then [L9] = 2
End Sub

 

[yahaci]

sevgili hocam verdiğiniz gibi kodları yerleştirdim ama hata veriyor dosyayı size gönderiyorum bir inceleyip bana yardımcı olursanız sevinirim bu basit bir puanlama sistemi burada c1 ve c2 olan kısımlarda cezalar oluyor burlarda 1 yazdığı zaman uyarı verilmiş oluyor 2v3 yazdığı zaman karşı taraflara puan veriliyor bir incelyin şimdiden sağ olun

 

[N.Ziya Hiçdurmaz]

Yanıt

Hata birleştirilmiş hücrelerin olmasından kaynaklanıyor.Aşşağıdaki gibi deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2,P2]) Is Nothing Then Exit Sub
Range("B9,L9") = [COLOR="Red"][B]""[/B][/COLOR]
If [D2] = 2 Then [B9] = 1
If [D2] = 3 Then [B9] = 2
If [P2] = 2 Then [L9] = 1
If [P2] = 3 Then [L9] = 2
End Sub

 

[yahaci]

peki hocam bu birleştirilmiş hücrede var olan değerler siliniyor biz sayıları girince onu engelleyemeyizmi yani birleştirilmiş hücredeki değerlerin üstüne toplama yapamayızmı
saygılar

 

[yahaci]

hocam lütfen yardım edin kodları sayfa yerleştiriyorum ama birleştirilmiş hücrede bulunan değerlerle toplama yapmıyor ve orada var olan değerler siliniyor
lütfen yardım edin