a kolonundaki aynı değerlerin b kolonundaki bilgileri toplayarak c kolonuna yazdırmak

[thenomen]

arkadaşlar selam, işin içinden çıkamadım o yüzden yardımınızı istiyorum. sql ile uğraştım olmadı en basiti excel e döneyim dedim

A kolonunda yer alan sayısal bilgilerimizden aynı olanların, B kolonundaki (örneğin alan) bilgilerini toplayarak C kolonuna yazdırmak istiyorum.

ekstra olacak ama daha sonrasında da c kolonundaki bu bilgileri başka bir sheet teki aralıklardan hangisine düşüyor ise onun değerini yazdırmam gerekli. (bu kısmı ilk bölümü halledebilirsem yaparım diye düşünüyorum).

yardımcı olacak arkadaşlara şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

C2 hücresine;

=ETOPLA(A:A;A2;B:B)

D2 hücresine;

=EĞER(VE(C2>=60;C2<=70);"3. DERECE";EĞER(VE(C2>=71;C2<=80);"2. DERECE";EĞER(VE(C2>=81;C2<=90);"1. DERECE";"")))

Fromüllerini uygulayıp denermisiniz.

 

[thenomen]

çok teşekkürler.. istediklerime ulaştım.. bu şekilde excel den çektiğim bilgiyi tekrar veritabanına atacağım.. elinize sağlık..

 

[thenomen]

çok oldu belki ama bir kolondaki sıralı gelen aynı değerleri, otomatik olarak hücre birleştir işlemini uygulayabilir miyiz? örnek exceldeki 0/117 no ları veya aynı mantık ile derece veya toplam değerlerini..

 

[Korhan Ayhan]

Selamlar,

Makro ile istediğiniz işlem yapılabilir ama ben size sizinde kolaylıkla yapabileceğiniz bir yöntemi kullanmanızı önereceğim.

A1 hücresini seçin.,
VERİ-FİLTRE-GELİŞMİŞ FİLTRE seçeneğini seçin.

Açılan ekranda "Başka yere kopyala" seçeneğini seçin.
Alt kısımdaki HEDEF bölümüne K1 yazın.
Bu seçeneğin hemen altındaki "Yalnızca benzersiz kayıtlar" seçeneğini seçip tamam tuşuna tıklayın.

İstediğiniz özet tabloya kolaylıkla ulaşmış olursunuz.

Ayrıca Veri-Özet Tablo menüsünü kullanarakta özet bir tablo elde edebilirsiniz.

 

[thenomen]

excel 2003 kullanıyorum, sizin belirttiğiniz işleme denk gelen VERİ>SÜZ menüsünden yaptım ancak istediğim gibi olmadı. ekte demek istediğimi anlatan bir örnek daha gönderiyorum.

veri-özet tablosundan yaptığımda da özelliklerinden kapatmama rağmen her bir satırın altına toplam diye bir satır açıyor..

 

[thenomen]

kolondaki aynı yazı içeren hücreleri birleştirmek

selamlar, korhan hocam sabah yardımcı olmaya çalıştı ancak istediğim yapı olmuyor malesef.

sıralı giden bir kolonda yer alan, aynı değeri içeren hücreleri otomatik birleştirmek istiyorum. ekte örnek dosyayı gönderiyorum. teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip çalıştırın.

Option Explicit
 
Sub BİRLEŞTİR()
    Dim X As Long, İLK As Long, SON As Long
    
    Application.ScreenUpdating = False
    
    Columns("A:D").UnMerge
    İLK = 2
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, "A") <> Cells(X + 1, "A") Then
            SON = X
            If İLK > 0 And SON > 0 Then
                Application.DisplayAlerts = False
                
                With Range("IV" & İLK & ":IV" & SON)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .MergeCells = True
                    .Copy
                End With
                
                Range("A" & İLK & ":A" & SON).PasteSpecial Paste:=xlPasteFormats
                Range("C" & İLK & ":C" & SON).PasteSpecial Paste:=xlPasteFormats
                Range("D" & İLK & ":D" & SON).PasteSpecial Paste:=xlPasteFormats
                Range("A" & İLK & ":D" & SON).Borders.LineStyle = 1
                Columns("IV:IV").UnMerge
            
            İLK = X + 1
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[thenomen]

üstat eywallah.. işimi fazlasıyla gördü, eline sağlık..