m3 hesabı

[ismail-34]

selamlar

ben ekteki gibi koli ölçüsünü alıp m3 hesaplasın istiyorum.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Deneyiniz

 

[ismail-34]

harika olmuş sağolun varolun

 

[ismail-34]

Merhaba Arkadaşım,
Deneyiniz

Bişi sorcam koli boyutu 3 basamaklı koli boyutları olunca (örn: 100x50x120) gelince formül doğal olarak hata veriyor. 3 basamaklı koliler içinde bu formül uyarlanabilinirmi ?

 

[Mahir64]

Merhaba,
Fantastik bir çözüm ister misiniz?

=(PARÇAAL(F2;1;BUL("*";F2)-1)+0)*(PARÇAAL(PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2));1;BUL("*";PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2)))-1)+0)*(PARÇAAL(PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2));BUL("*";PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2)))+1;10)+0)/1000000

 

[dEdE]

Makrolu çözüm önerebilirim. Bir modüle yapıştırarak deneyebilirsiniz.

Sub MetreKüpBul()
ss = Sayfa1.Cells(Rows.Count, "F").End(3).Row
For i = 2 To ss
    myArr = Split(Cells(i, 6), "*")
    Cells(i, 7) = (myArr(0) * myArr(1) * myArr(2)) / 1000000
    Cells(i, 7).NumberFormat = "0.0000"
Next i
End Sub

 

[ismail-34]

Merhaba,
Fantastik bir çözüm ister misiniz?

=(PARÇAAL(F2;1;BUL("*";F2)-1)+0)*(PARÇAAL(PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2));1;BUL("*";PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2)))-1)+0)*(PARÇAAL(PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2));BUL("*";PARÇAAL(F2;BUL("*";F2)+1;UZUNLUK(F2)))+1;10)+0)/1000000

YOOKKK ARTIK TÜM KOLİ ÖLÇÜLERİ İÇİN ÇALIŞIYOR !!!!! .OLAYI İNTERNATIONAL BOYUTTA ELE ALMIŞINIZ DEĞERLİ HOCAM..SÜPER ÇALIŞIYOR SAĞOLUN VAROOOLLUUNN MAHİR HOCAM.. ADINIZLA ORANTILI ÇOK MAHİR BİR İŞ OLMUŞ DEĞERLİ HOCAM

 

[Mahir64]

YOOKKK ARTIK TÜM KOLİ ÖLÇÜLERİ İÇİN ÇALIŞIYOR !!!!! .OLAYI İNTERNATIONAL BOYUTTA ELE ALMIŞINIZ DEĞERLİ HOCAM..SÜPER ÇALIŞIYOR SAĞOLUN VAROOOLLUUNN MAHİR HOCAM.. ADINIZLA ORANTILI ÇOK MAHİR BİR İŞ OLMUŞ DEĞERLİ HOCAM

İşten Kısa bir vakit buldum.
İyi çalışmalar

 

[Mahir64]

Daha sade hali bu olabilir.

=(KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(A$1)*255;255))*KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(B$1)*255;255))*KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(C$1)*255;255)))/100000

 

[Ali]

Bir modüle aşağıdaki kodları ekleyip

Function Eval(v As Variant)
    Eval = Evaluate(v)
End Function

Sonuç göreceğiniz hücreye

=Eval("="&F2)/1000000

yazıp aşağı doğru çekebilirsiniz.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Macro 4 Evaluate işlevi ile yapılmıştır.

.

 

[ismail-34]

.

Dosyanız ekte.

Macro 4 Evaluate işlevi ile yapılmıştır.

.

hocam dosyada makro kodu göremedim !!

 

[ismail-34]

Daha sade hali bu olabilir.

=(KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(A$1)*255;255))*KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(B$1)*255;255))*KIRP(PARÇAAL(YERİNEKOY("*"&PARÇAAL($F2;1;UZUNLUK($F2));"*";YİNELE(" ";255));SÜTUN(C$1)*255;255)))/100000

aynen hocam daha sade olmuş.diğerini anlayana kadar tırnak kalmamıştı burda tek eksik sonda bir sıfır eksikti o kadar 1 milyona bölünecek yani.

 

[Merhum İdris SERDAR]

.

hocam dosyada makro kodu göremedim !!

Ad Tanımlamasına bakın.

.

 

[ismail-34]

.


Ad Tanımlamasına bakın.

.

Gördüm teşekkürler idris hocam.