- Katılım
- 5 Haziran 2018
- Mesajlar
- 85
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
=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")bunları yapmaya çalıstım Korhan Bey fakat , lü sayılar olunca oturtamadım tam 15,52kg gibiMerhaba,
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
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")
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.bu formülde excelim eski olduğu için olmadı.
=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")=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;" AD.";"");" KG";"");" AD";"");",";"_");".";",");" ";"_")
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
B sütununu seçip C sütununa değerleri kopyalayınKod:=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(A4;" AD.";"");" KG";"");" AD";"");",";"_");".";",");" ";"_")
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.
Merhababu oldu cok teşekkür ediyorum.
Merhaba
Onca çözüm önerisine rağmen benimki mi oldu?
Güle güle kullanın.
Necdet bey bu harika bende b sütunu dediğiniz için kendi listemi c sütununa eklediğim için farketmemişim.Merhaba,
Ben deneyip te göndermiştim. Kodda C sütununa yazıyormuş ben yanlış belirtmişim.
Paylaştığım linkte makrolu çözümlerde var. Onları da deneyebilirsiniz.
evet yine de teşekkür ederim.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")
yaradı yaradıbenim kodlar işe yaramadı mı?