En uygun formül hk.

[papatya35]

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

 

[Necdet]

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.

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

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak linki inceleyebilirsiniz.

Hücre içindeki sayıları toplama

Arkadaşlar bir hücre içinde "-" ile birbirinden ayrılmış sayılara 4 işlem nasıl yapılır? Mesela A1 hücresinde "3-2" ifadesi varsa bu sayıların toplamını B1 hücresine nasıl yazdırırız?

www.excel.web.tr

 

[papatya35]

yaptım ama olmadı Necdet Bey.

 

[YUSUF44]

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")

 

[papatya35]

Merhaba,

Alternatif olarak linki inceleyebilirsiniz.

Hücre içindeki sayıları toplama

Arkadaşlar bir hücre içinde "-" ile birbirinden ayrılmış sayılara 4 işlem nasıl yapılır? Mesela A1 hücresinde "3-2" ifadesi varsa bu sayıların toplamını B1 hücresine nasıl yazdırırız?

www.excel.web.tr

bunları yapmaya çalıstım Korhan Bey fakat , lü sayılar olunca oturtamadım tam 15,52kg gibi

 

[papatya35]

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ı.

 

[Korhan Ayhan]

Paylaştığım linkte makrolu çözümlerde var. Onları da deneyebilirsiniz.

 

[YUSUF44]

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.

 

[Necdet]

Merhaba,
Ben deneyip te göndermiştim. Kodda C sütununa yazıyormuş ben yanlış belirtmişim.

 

[YUSUF44]

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")

 

[uzmanamele]

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

=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

 

[papatya35]

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

=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.

 

[Necdet]

bu oldu cok teşekkür ediyorum.

benim kodlar işe yaramadı mı?

 

[uzmanamele]

bu oldu cok teşekkür ediyorum.

Merhaba

Onca çözüm önerisine rağmen benimki mi oldu?
Güle güle kullanın.

 

[Necdet]

Merhaba

Onca çözüm önerisine rağmen benimki mi oldu?
Güle güle kullanın.

EEE hem uzmansın hem amele, başka kiminki olacaktı ki?

 

[papatya35]

Merhaba,
Ben deneyip te göndermiştim. Kodda C sütununa yazıyormuş ben yanlış belirtmişim.

Necdet bey bu harika bende b sütunu dediğiniz için kendi listemi c sütununa eklediğim için farketmemişim.
teşekkür ederim.

 

[papatya35]

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

 

[papatya35]

benim kodlar işe yaramadı mı?

yaradı yaradı
mesajınızı sonradan okuduğum için geç cevapladım öncelikle bu makroyu ezberleyeceğim.