Yan yana iki sütundaki verileri eşleştirmek

[Ali Faruk]

Arkadaşlar merhaba ekli örnek tablomda yeşil ile işaretlenen sütunda bazı veriler birbirleriyle aynı yan sütunda da bunlara denk gelen bazı değerler var.

Benim istediğim yeşil sütundaki aynı değerlerin sağ tarafındaki değerlerin toplanarak yeşil kısmın en üst satırına yazılması.

Ekli tablonun 206. satırında tam olarak ne istediğimi anlattım. Bu konuda yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Konu başlığı da "Yan yana iki sütun" değil, "Alt Alta iki satır" olmalı

Sub Toplat()
 
    Dim i   As Long
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") Then
            Cells(i - 1, "B") = Cells(i - 1, "B") + Cells(i, "B")
            Range("A" & i & ":B" & i).ClearContents
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Benzerler toplanmıştır.."
 
End Sub

 

[Huseyinkis]

Merhaba Veri sekmesi altında bulunan Alt Toplam işlemi ile denermisiniz.

 

[Ali Faruk]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Konu başlığı da "Yan yana iki sütun" değil, "Alt Alta iki satır" olmalı

Sub Toplat()
 
    Dim i   As Long
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") Then
            Cells(i - 1, "B") = Cells(i - 1, "B") + Cells(i, "B")
            Range("A" & i & ":B" & i).ClearContents
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Benzerler toplanmıştır.."
 
End Sub

Arkadaşım teşekkürler fakat ekteki gibi bir uyarı veriyor.

 

[Necdet]

Dosyayı saklarken Makro içeren dosya türü ile saklamalısınız, bu durumda dosya uzantısı xlsm ye dönüşür.

Yoksa makroları silerek saklar, bunun da uzantısı xlsx dir.

 

[Ali Faruk]

Dosyayı saklarken Makro içeren dosya türü ile saklamalısınız, bu durumda dosya uzantısı xlsm ye dönüşür.

Yoksa makroları silerek saklar, bunun da uzantısı xlsx dir.

Çok Teşekkürler. Hüseyinkis arkadaşın önerdiği Alt Toplam yöntimi ile sorunu çözdüm.

Fakat şimdi ekteki yeni tabloda yeşil sütunda olupta mavi sütunda olmayanları tespit edebilirmiyim.

 

[Ali Faruk]

Merhaba Veri sekmesi altında bulunan Alt Toplam işlemi ile denermisiniz.

Çok teşekkür ederim önerdiğiniz yöntemle sorunu çözdüm.

Fakat şimdi ekteki yeni tabloda yeşil sütunda olupta mavi sütunda olmayanları tespit edebilirmiyim.

 

[Ali Faruk]

Fakat şimdi ekteki yeni tabloda yeşil sütunda olupta mavi sütunda olmayanları tespit edebilirmiyim.

 

[Ali Faruk]

Arkadaşlar lütfen son yazdığım cevaptaki ek dosya için için yardım edebilir misiniz? Acil ihtiyacım var.

 

[Necdet]

Merhaba,

Farklı konular için farklı konu açınız lütfen.

D2

=EĞERSAY(A:A;--B2)

Değer Sıfır ise yok anlamındadır.

Ayrıca DÜŞEYARA fonksiyonunu da kullanabilirsiniz. Forumda yüzlerce hatta binlerce örneği var.

 

[Ali Faruk]

Necdet Bey çok teşekkür ederim. Konu bolluğu olmasın ve aynı tablo üzerinde işlem yapılacağı için buradan devam etmek istedim.

Valla Düşeyara formülünü hem burada hem google'da arattım ama tam istediğim gibi bulamadım.

 

[catalinastrap]

dosyanız ektedir

 

[cellaks]

karşılaştırma

Merhaba arkadaşlar benim sorunum .. ekteki dosyada a-b-c- sutunlarında bulunan veriler stok envanter raporumdur e-f-g dekiler ise stok satış raporumdur .

isteğim ise stok satış raporumun stok envanter raporumun birebir karşısına gelmesidir.

bunu istememin mantığı buüründen beş tane satılmış ama stoğumda kaç tane var diye . veya stoğumda 5 tane var kaç tane satılmış diye basit bir şekilde kontrol etmem için bu kodların karşı karşıya gelmesini istiyorum. sanırım düşey ara sistemi ile yapılıyormuş yardımcı olursanız sevinirim.