Tekrarlayanları toplama ve başına yazma

[ismail-34]

Değerli Excel web ailesine tekrar merhaba.

Benim sorum tekrarlayan firmaların kdv toplamını ilgili firmanın ilk satırına yazmakla ilgili olacak.

kısaca butona tıklandığında I sütununun J sütunu gibi olmasını istiyorum. olabilirse ne ala... kdv ler silinip tek satırda toplanmış olcak böylece

örnek ektedir.

saygılarımla

 

[mustafa1205]

KDV Hesaplayabilmeniz için önce meblağ olması lazım. Sorunuzu daha açıklayıcı sorarsanız daha çabuk yanıt bulursunuz. I Sütununda Kdv var. KDV nin mi kdv sini hesaplatmak istiyrosunuz.Hangi meblağın yüzde kaç kdv sini istiyorsunuz.

 

[ismail-34]

zaten kdv hesaplanmış hocam.o kdvlerin toplamını istiyorum.her firmanın bi dolu faturası oluyor.o tekrarlayanların toplamını istiyorum ve I sütununun başlarına istiyorum. I aynı j gibi olsun yani.

 

[mustafa1205]

İnceleyiniz

 

[ismail-34]

İnceleyiniz

Teşekkürler Hocam.Yalnız ben mümkünse verilerin bulunduğu I sütununun aynı J sütunu gibi olmasını tercih ediyorum.Makrolu bir çözüm harika olurdu.

 

[mustafa1205]

I ile J aynı olsun diyorsunuz ancak o zaman ayrı bir sütunda kdv lerin olması lazımki hesaplama yapsın. Şuan I sütununa göre hesaplama yapıyor. I sütununda hesaplama yapmış olacaksa verileri nerden alacak?

 

[ismail-34]

yine I dan alcak hocam.makro ile yapılıyor biliyorum.j sadece I nın son halini istediğimi gösteren bir örnek.aşağıda buna biraz benzer bişi yapmıştı muzaffer hocam

Ağırlık ve Koli Ölçülerini uygun yerlere taşıma.

Excel web ailesine bugün tekrar merhaba.. ben veri girişlerimi koli numarasını baz almadan düz olarak giriş yapmak istiyorum. ama bir makro ile girdiğim ağırlık ve koli ölçüleri o kolinin hizasında sıralansın istiyorum. kısaca örnekteki gibi a-j sütununun bir tıklama ile sarıyla işaretlediğim...

www.excel.web.tr

 

[dEdE]

Merhaba,
Aşağıdaki kodları burada paylaştığınız örnek dosyada bir modüle yapıştırarak dener misiniz?

Sub Topla()
Dim myArr As Variant
Dim myList As Variant
    Set s1 = Sheets("Sayfa1")
    ss = s1.Cells(Rows.Count, "H").End(3).Row
    myArr = s1.Range("H2:H" & ss)
    
    Set myList = CreateObject("System.Collections.ArrayList")
    For i = 1 To UBound(myArr)
       If Not myList.Contains(myArr(i, 1)) Then myList.Add myArr(i, 1)
    Next
    
For k = 0 To myList.Count - 1
    say = 0:    Tpl = 0
    For j = 2 To ss
        If myList(k) = s1.Cells(j, "H").Value Then
            say = say + 1
            Tpl = Tpl + s1.Cells(j, "I").Value
            If say = 1 Then
                s1.Cells(j, "I") = "x"
            Else
                 s1.Cells(j, "I") = ""
            End If
        End If
    Next j
    Set c = s1.Range("I:I").Find("x", , xlValues, xlWhole, xlByColumns)
    If Not c Is Nothing Then s1.Cells(c.Row, "I") = Tpl
Next
End Sub

 

[ismail-34]

Merhaba,
Aşağıdaki kodları burada paylaştığınız örnek dosyada bir modüle yapıştırarak dener misiniz?

Sub Topla()
Dim myArr As Variant
Dim myList As Variant
    Set s1 = Sheets("Sayfa1")
    ss = s1.Cells(Rows.Count, "H").End(3).Row
    myArr = s1.Range("H2:H" & ss)
   
    Set myList = CreateObject("System.Collections.ArrayList")
    For i = 1 To UBound(myArr)
       If Not myList.Contains(myArr(i, 1)) Then myList.Add myArr(i, 1)
    Next
   
For k = 0 To myList.Count - 1
    say = 0:    Tpl = 0
    For j = 2 To ss
        If myList(k) = s1.Cells(j, "H").Value Then
            say = say + 1
            Tpl = Tpl + s1.Cells(j, "I").Value
            If say = 1 Then
                s1.Cells(j, "I") = "x"
            Else
                 s1.Cells(j, "I") = ""
            End If
        End If
    Next j
    Set c = s1.Range("I:I").Find("x", , xlValues, xlWhole, xlByColumns)
    If Not c Is Nothing Then s1.Cells(c.Row, "I") = Tpl
Next
End Sub

Değerli dEdE hocam resimdeki gibi hata veriyor.

 

[dEdE]

Üzgünüm,
System.Collections.ArrayList'in çalışması için bilgisayarda .NET Framework 3.5'in yüklü olması gerekir.
Alternatif kod yazılabilir, ama veri sayısı fazla ise yavaş çalışır.

 

[ismail-34]

Üzgünüm,
System.Collections.ArrayList'in çalışması için bilgisayarda .NET Framework 3.5'in yüklü olması gerekir.
Alternatif kod yazılabilir, ama veri sayısı fazla ise yavaş çalışır.

yükledim saat gibi çalışıyor değerli dEdE hocam. hastanızızzz hocaammm verdiniz coşkuyu yine