otomatik işlem

[NLina]

Merhabalar,

Ekte yer alan Excel örneğini hayata geçirebilme şansımız var mıdır acaba?

Ayrıntılı bilgi Excel içerisinde yazmaktadır.

Şimdiden çok teşekkür eder, iyi çalışmalar ve sağlıklı günler dilerim.

 

[Necdet]

Merhaba,
Deneyiniz, Ad tanımı kullanılmıştır.

 

[maliex]

Sub TESTTT()
           
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
           
    Set S1 = Sheets("Sayfa1")
    Set Dizi = CreateObject("Scripting.Dictionary")
    ss1 = S1.Cells(S1.Rows.Count, "A").End(3).Row
    ss2 = S1.Cells(S1.Rows.Count, "G").End(3).Row
   
    If ss2 < 2 Then ss2 = 2
   
   
    S1.Range("G2:H" & ss2).Clear

    Veri = S1.Range("A2:B" & ss1).Value
           
    ReDim liste(1 To ss1, 1 To 2)
           
    For X = LBound(Veri) To UBound(Veri)

            Aranan = Veri(X, 1)
            If Not Dizi.Exists(Aranan) Then
                Say = Say + 1
                Dizi.Add Aranan, Say
                liste(Say, 1) = Veri(X, 1)
                liste(Say, 2) = Veri(X, 2)
             
            Else
                liste(Dizi.Item(Aranan), 2) = liste(Dizi.Item(Aranan), 2) + Veri(X, 2)
            End If
           
    Next

    If Say > 0 Then
                   
        S1.Range("G2").Resize(Say, 2) = liste
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
               
    Else
           
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
 
    End If
           
    Set S1 = Nothing
    Set Dizi = Nothing
           
End Sub

 

[NLina]

Merhabalar,

İlginiz için çok teşekkür ederim fakat formülleri Google ın E-Tablolar kısmında oturtamadım. Çalışma prensipleri farklı sanırım ve ek olarak da makro istemediğimi özellikle belirtmiştim ama -.-

Google E-Tablolar da uygulayabileceğim bir yöntem bulma şansımız var mıdır acaba

 

[Necdet]

E-Tablolar için
G2:

=UNIQUE(A2:A17)

H2:

=SUMIF(A2:A17;G2;B2:B17)

 

[Haluk]

Google Sheets için alternatif olarak,

- Tablonuzdaki G1: H20 aralığını komple silin (G1 ve H1 hücrelerindeki başlıklar da dahil...)

- G1 hücresine aşağıdaki formülü yazın,

=query(A2:B,"Select A, Sum(B) Group By A Offset 1 Label A 'Genel İsim', Sum(B) 'Genel Sayı'", 0)

- G ve H sütunlarında istediğiniz sonuçları göreceksiniz.....


Web tarayıcınızın bölgesel ve/veya dil ayarlarına göre formülde virgül yerine noktalı virgül kullanmanız gerekebilir.






.

.

 

[NLina]

Merhabalar,

Destekleriniz için gerçekten çok teşekkür ederim

Sağlıklı günler dilerim.