• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

En uygun formül hk.

Katılım
5 Haziran 2018
Mesajlar
85
Herkese merhaba,
Ekteki dosya da göstermiş olduğum miktar detaylarını tek hücrede toplayıp gruplamaya çalışıyorum.
Etopla, eğer vb. formullerle denedim başaramadım.
Yardımcı olabilirseniz çok sevinirim.
iyi çalışmalar
 

Ekli dosyalar

Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?
Koda A sütununun 2. satırından itibaren okur ve sonucu B sütununa yazar.

Kod:
Sub ToplamAl()

    Dim i As Long, _
        j As Integer, _
        d As Variant, _
        e As Variant, _
        Toplam As Double, _
        Tip As String
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        Toplam = 0
        d = Split(Cells(i, "A"), ",")
        For j = 0 To UBound(d)
            e = Split(d(j), " ")
            Tip = e(1)
            Toplam = Toplam + Val(e(0))
        Next j
        Cells(i, "C") = Toplam & " " & Tip
    Next i
    
    MsgBox "Bitmiştir...." & Environ("Username")
    
End Sub
 
Merhaba,

Alternatif olarak linki inceleyebilirsiniz.

 
Dosyanız xls uzantılı olduğundan çözüm için yazdığım formül sizin dosyanızda işlem yapmıyor. Excel sürümünüz 2003 ya da daha eski mi?

Eğer 2007 veya daha yeni bir sürümse aşağıdaki formül kullanılabilir:

=EĞERHATA(TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";YİNELE(" ";99));(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(A4;"AD.";""))-UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";""))+1))-1)*99+1;99)))&" AD.";TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(A4;"kg";"");",";YİNELE(" ";99));(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(A4;"kg";""))-UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"kg";"");",";""))+1))-1)*99+1;99)))&" Kg")
 
Merhaba,

Alternatif olarak linki inceleyebilirsiniz.

bunları yapmaya çalıstım Korhan Bey fakat , lü sayılar olunca oturtamadım tam 15,52kg gibi
 
Dosyanız xls uzantılı olduğundan çözüm için yazdığım formül sizin dosyanızda işlem yapmıyor. Excel sürümünüz 2003 ya da daha eski mi?

Eğer 2007 veya daha yeni bir sürümse aşağıdaki formül kullanılabilir:

=EĞERHATA(TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";YİNELE(" ";99));(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(A4;"AD.";""))-UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";""))+1))-1)*99+1;99)))&" AD.";TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(A4;"kg";"");",";YİNELE(" ";99));(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(A4;"kg";""))-UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"kg";"");",";""))+1))-1)*99+1;99)))&" Kg")

bu formülde excelim eski olduğu için olmadı.
 
Paylaştığım linkte makrolu çözümlerde var. Onları da deneyebilirsiniz.
 
bu formülde excelim eski olduğu için olmadı.
Paylaştığınız ekran görüntüsünde excelinizin eski olmadığı anlaşılıyor. Dosyayı xlsx uzantıllı olarak farklı kaydedip kapatın ve açtıktan sonra formülü deneyin.
 
Merhaba,
Ben deneyip te göndermiştim. Kodda C sütununa yazıyormuş ben yanlış belirtmişim.
 
Aşağıdaki formül daha uygun oldu ama 16 ve 17. satırdaki karma verilerde hata veriyor maalesef:

=EĞERHATA(TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";YİNELE(" ";99));".";",");(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"AD.";"");".";","))-UZUNLUK(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";"");".";","))+1))-1)*99+1;99)))&" AD.";TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"KG";"");",";YİNELE(" ";99));".";",");(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"KG";"");".";","))-UZUNLUK(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"KG";"");",";"");".";","))+1))-1)*99+1;99)))&" KG")
 
Merhaba
Formül veya makro ile olur yalnız çok daha basit bir yöntem var.
B sütununa aşağıdaki formülü yazın
Kod:
=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;" AD.";"");" KG";"");" AD";"");",";"_");".";",");" ";"_")
B sütununu seçip C sütununa değerleri kopyalayın
Veri / Metni sütunlara dönüştür / Sınırlandırılmış / İleri / Ayırıcılar / Diğer (_)
Sonra satır toplamını alın
 
Merhaba
Formül veya makro ile olur yalnız çok daha basit bir yöntem var.
B sütununa aşağıdaki formülü yazın
Kod:
=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;" AD.";"");" KG";"");" AD";"");",";"_");".";",");" ";"_")
B sütununu seçip C sütununa değerleri kopyalayın
Veri / Metni sütunlara dönüştür / Sınırlandırılmış / İleri / Ayırıcılar / Diğer (_)
Sonra satır toplamını alın


bu oldu cok teşekkür ediyorum.
 
Paylaştığım linkte makrolu çözümlerde var. Onları da deneyebilirsiniz.
Aşağıdaki formül daha uygun oldu ama 16 ve 17. satırdaki karma verilerde hata veriyor maalesef:

=EĞERHATA(TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";YİNELE(" ";99));".";",");(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"AD.";"");".";","))-UZUNLUK(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"AD.";"");",";"");".";","))+1))-1)*99+1;99)))&" AD.";TOPLA.ÇARPIM(--KIRP(PARÇAAL(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"KG";"");",";YİNELE(" ";99));".";",");(SATIR($A$1:İNDİS(A:A;UZUNLUK(YERİNEKOY(YERİNEKOY(A4;"KG";"");".";","))-UZUNLUK(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;"KG";"");",";"");".";","))+1))-1)*99+1;99)))&" KG")
evet yine de teşekkür ederim.
iyi çalışmalar
 
Geri
Üst