Hücre içinde toplama

[magnesia]

Arkadaşlar selam.
Sayfa içerisinde L4:L5000 ve N4:N5000 arasında sayısal değer gireceğim.
İsteğim şu :
Girdiğim değer üzerine yeni değer girdiğimde bu iki değeri toplasın.
Örneğin :
L250 nin üzerinde 300 yazıyor ve ben bu hücreye 200 değerini girersem sonuç 500 olsun.
Şimdiden teşekkürler.

 

[yanginci34]

Denermisiniz
http://dosya.co/t2tybzlbhs15/hücreye_sayı_girildiğinde_öncekine_ekleme.xlsm.html

 

[Ömer BARAN]

Sayın yanginci34'ün eklediği belgeyi incelemedim.
Sayın yanginci34'ün çözümü istediğiniz işlemi gerçekleştiriyorsa, benim önereceğim de alternatif olsun artık.

Öncelikle; ilgili alana sadece ELLE ve sadece SAYISAL değerler yazılacağı varsayılmıştır.

Ne kadar sağlıklı çalışır denemek lazım ama fikrimi belirteyim.

Bu arada, istediğiniz işlem için; geçici olarak sayfadaki bir hücrenin kullanılacağını da belirteyim.
Ben bu işlem için [Z1] hücresini düşündüm, siz belgenizin durumuna göre, göz önünde olmayan uygun bir hücreyi de kullanabilirsiniz.

Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın.

NOT: Bir hücredeki değeri tamamen silmek yani o hücre için işleme en baştan-sıfırdan başlamak için, aynı hücreyi iki kez seçerek silmeniz gerekir.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]L4:L5000, N4:N5000[/COLOR][/B]]) Is Nothing Then Exit Sub
    [B][COLOR="Red"][Z1][/COLOR][/B] = Target.Value
[B]End Sub[/B]


[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]L4:L5000, N4:N5000[/COLOR][/B]]) Is Nothing Then Exit Sub
    ilk = [B][COLOR="Red"][Z1][/COLOR][/B]
    If [B][COLOR="Red"][Z1][/COLOR][/B] = "" Then Exit Sub
    [B][COLOR="Red"][Z1][/COLOR][/B] = "": Target.Value = Target.Value + ilk
[B]End Sub[/B]

 

[yanginci34]

Ömer Hocam benim dosyamda bir ustanın eseri arşivim de vardı onu gönderdim size birşey danışmak istiyorum benim dosyada işlemi sadece E3 hücresinde yapıyor ben arkadaşın istediği sütunları tanimlayamadim yardımcı olursanız sevinirim teşekkürler.

 

[Ömer BARAN]

Merhaba Sayın yanginci34.

Benim verdiğim kod ile eklediğiniz belgedeki kod yapı itibariyle aynı zaten.
Tek fark, benim verdiğim kod'da; ilgili hücrede önceden yazılı olan değer Z1 hücresine yazdırılırken,
sizin eklediğiniz belgede, hücreye yazarak değil, bu değer bir değişkene atanarak işlem yapılıyor.

Benim verdiğim kod, konu sahibinin istediği gibi; L4:L5000 ve N4:N5000 hücre aralıklarındaki tüm hücreler için kullanılabilir.
.

 

[yanginci34]

Anladım Hocam teşekkürler.

 

[magnesia]

Arkadaşlar. Hepinize teşekkür ederim. Yarın dener sonuçtan bilgi veririm.

 

[magnesia]

Arkadaşlar selam.
Kodları denedim ama olmadı.
Diğer kodların içine eklemiştim acaba ondan mı oldu?
Tüm kodları aşağıya yazıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [L4:L5000, N4:N5000]) Is Nothing Then Exit Sub
ilk = [Z1]
If [Z1] = "" Then Exit Sub
[Z1] = "": Target.Value = Target.Value + ilk
Select Case Target.Column

Case Is = 1: Target.Offset(, 2).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 1).Select
Case Is = 4: Target.Offset(, 1).Select
Case Is = 5: Target.Offset(, 1).Select
Case Is = 6: Target.Offset(, 1).Select
Case Is = 7: Target.Offset(, 2).Select
Case Is = 8: Target.Offset(, 1).Select
Case Is = 9: Target.Offset(1, -7).Select
Case Else
End Select



If Intersect(Target, Range("C4:E5000")) Is Nothing Then Exit Sub

Application.EnableEvents = False
If Target <> UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) Then Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
Application.EnableEvents = True



End Sub

 

[yanginci34]

Ömer Bey'in kodlarını Sayfanın SelectionChange olayında denermisiniz.

 

[magnesia]

Hücrenin üzerine geldiğinizde, hiç bir rakam girmeden, o an hücredeki rakamı kendinle topluyor.

 

[polis-53]

arkadaşlar bende bu konu ile ilgili bir şey isteyebilir miyim? E3 hücresine yazdığım Rakkamı F kolonuna aşağıya doğru yazsın istiyorum

 

[magnesia]

Polis 53.
Yeni konu açıp oraya yazar mısınız?

 

[byfika]

Hücrenin üzerine geldiğinizde, hiç bir rakam girmeden, o an hücredeki rakamı kendinle topluyor.

Sayın Ömer Beyin kodları ve sizin kodlar birleştirilince örnek çalışmakta, denermisiniz
iyi çalışmalar.

 

[magnesia]

byfika arkadaşım.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Üzerine toplama ile ilgili kodlar çalışıyor fakat diğer kodlar çalışmıyor.

 

[magnesia]

Byfika arkadaşım.
Tamamdır. Kodların yerlerini değiştirerek hallettim.
Tekrar teşekkür ederim.

 

[Ömer BARAN]

Tekrar merhaba.

Sorulan soruya yönelik cevapların, gerçek belgede mevcut kodlarla, formüllerle ilişkisini öngörmemiz mümkün değil.

Tam da bu nedenle, soruların; gerçek belgenin özel bilgi içermeyen küçük boyutlu bir kopyası
şeklinde hazırlanacak örnek belge üzerinden sorulmasını istemekteyiz.

Kopyası demekten maksatımız ise; varsa kullanılan formüller, userformlar, makroların da belge içerisinde olması ve
bu sayede de istenilen sonuca daha kısa sürede ve gereksiz karşılıklı mesajlaşma olmadan (dolayısıyla harcanan emek va vakitin boşa gitmemesi) ulaşılmasının sağlanması.
.

 

[magnesia]

Ömer Bey.
Söylediklerinizin hepsi doğru.
Bundan sonra daha dikkatli olmaya özen göstereceğim.
Uyarınız için teşekkür ederim.