En yakın onluğa ve yüzlüğe yuvarlama

[PriveT]

Hocam Merhabalar, benede birşey sorabilir miyim ?
Ekli dosyayı görüntüle 208539 hocam bu şekilde sayılar var, bunların sonunu 9 ile bitirebilir miyiz, uğraştım uğraştım sitenizden baktım olmadı.
mesela
11,218 = 11,219
11,015 = 11,019
10,708 = 10,709
560 = 559 yada 569
4,354 = 4,359 şeklinde yani 1-8 arası sayı yerine sadece aşağı yada yukarı 9 ile bitebilir mi acaba ?

Merhaba,
İlk rakam A1 hücresinde varsayarak;
B1 hücresine =YERİNEKOY(A1;SAĞDAN(A1;1);9)*1 formülünü yapıştırıp aşağı doğru sürükleyerek çoğaltınız.

 

[çıtır]

Sayın PriveT;
Yenileme sayısını bularak ilave etmelisiniz.Aksi halde birden fazla aynı sayı var ise tümünü 9 değiştirir.

=YERİNEKOY($A1;SAĞDAN($A1;1);9;UZUNLUK($A1)-UZUNLUK(YERİNEKOY($A1;SAĞDAN($A1;1);"")))*1

 

[PriveT]

Sayın PriveT;
Yenileme sayısını bularak ilave etmelisiniz.Aksi halde birden fazla aynı sayı var ise tümünü 9 değiştirir.

=YERİNEKOY($A1;SAĞDAN($A1;1);9;UZUNLUK($A1)-UZUNLUK(YERİNEKOY($A1;SAĞDAN($A1;1);"")))*1

Hiç dikkat etmedim. Teşekkürler.

 

[çıtır]

Hiç dikkat etmedim. Teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[PriveT]

Alternatif olsun;

=(PARÇAAL(A1;1;UZUNLUK(A1)-1)&9)*1

veya

=DEĞİŞTİR(A1;UZUNLUK(A1);1;9)*1

Bunda atladığım bir ayrıntı yok umarım

 

[dedenet]

Hocam Merhabalar, benede birşey sorabilir miyim ?
Ekli dosyayı görüntüle 208539 hocam bu şekilde sayılar var, bunların sonunu 9 ile bitirebilir miyiz, uğraştım uğraştım sitenizden baktım olmadı.
mesela
11,218 = 11,219
11,015 = 11,019
10,708 = 10,709
560 = 559 yada 569
4,354 = 4,359 şeklinde yani 1-8 arası sayı yerine sadece aşağı yada yukarı 9 ile bitebilir mi acaba ?

sayıları A sütununa yazıp, sayıların yanındaki hücreye aşağıdaki formülü uygulayın

=1*(PARÇAAL(A1;1;UZUNLUK(A1)-1)&9)

 

[YUSUF44]

Alternatif:

=KYUVARLA(A1;10)-1

 

[PriveT]

Alternatif:

=KYUVARLA(A1;10)-1

@YUSUF44 Bey, listede ondalıklı sayılar var. Sanırım dikkatinizden kaçtı.

 

[YUSUF44]

Haklısınız.

 

[burhanbakici]

yaw siz ne güzel insanlarsınız, maşallah, suphanallah, izlemedi excell videosu kalmamıştı, youtube da,
=KYUVARLA(A1;10)-1 bu kod bütün herşeyi çözdü ne desem bilemiyorum, excellciyim diyenlere sordum, böyle birşey mümkün değil dediler, bu kadar kolaymış, vallahi süpersiniz.

 

[burhanbakici]

hocam peki var olan mevcut hücre içerisinde bu formül uygulanamaz mı ? yani 7 tane oyle satır var, formul için 7 ayrı satır daha açmam lazım, kendi içerisinde acaba olabilir mi ekteki örneğe bir bakabilir misiniz lütfen ?

 

[YUSUF44]

yaw siz ne güzel insanlarsınız, maşallah, suphanallah, izlemedi excell videosu kalmamıştı, youtube da,
=KYUVARLA(A1;10)-1 bu kod bütün herşeyi çözdü ne desem bilemiyorum, excellciyim diyenlere sordum, böyle birşey mümkün değil dediler, bu kadar kolaymış, vallahi süpersiniz.

İşin gerçeği “bu excelde yapılamaz” diyen birinin “excelci” olması çok abartı olur. Ben kendime excelciyim ya da exceli çok iyi biliyorum diyemiyorum. Çünkü hala başkalarının yapabildiği ama benim yapamadığım bir çok şey var excelde.

hocam peki var olan mevcut hücre içerisinde bu formül uygulanamaz mı ? yani 7 tane oyle satır var, formul için 7 ayrı satır daha açmam lazım, kendi içerisinde acaba olabilir mi ekteki örneğe bir bakabilir misiniz lütfen ?

Şu anda cep telefonundan bakıyorum. O nedenle dosyayı inceleyemedim. Eğer kastınız mevcut formülünüzün sonucunun aynı hücrede son takamı 9 olmadı ise şöyle yapabilirsiniz.

Diyelim ki hücredeki formülünüz şöyle:

=formül

Bu durumda verdiğim formülde A1 yerine formülünüzün =‘den sonraki kısmını yazmalısınız. Şöyle:

=KYUVARLA(formül;10)-1

 

[burhanbakici]

hocam örnek ektedir, müsait olduğunuzda bakabilir misiniz lütfen? sanırım ben yapamadım.

 

[çıtır]

Sayfa kodu olarak kopyalayınız.Yazdığınız sayıda işlem yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If IsNumeric(Target.Value) = True Then
Target = WorksheetFunction.Replace(Target, Len(Target), 1, 9) * 1
 End If
End Sub

 

[YUSUF44]

hocam örnek ektedir, müsait olduğunuzda bakabilir misiniz lütfen? sanırım ben yapamadım.

AG4 hücresindeki formülü aşağıdaki gibi değiştirin:

=EĞER(F4=0;"";EĞERHATA(KYUVARLA(DÜŞEYARA($A4;'C:\Users\w10\Desktop\Teknoraks Takip\Ağustos\[BB & TEKNORAKS RAPORU.xlsx]Stok Veri'!$B:$AS;20;YANLIŞ);10)-1;0))

Ya da AK4 hücresindeki formülü aşağıdaki gibi değiştirin:

=EĞER(AG4="";"";KYUVARLA(AG4*(1+$AH$2);10)-1)

 

[burhanbakici]

hocam merhaba, çalıştı formül, canı gönülden teşekkür ederim, çok büyük bir yükten kurtardınız beni, bayılıyorum bu siteye, excell ile her sorunun cevabını verebilecek uzman birisi var, maşallah, sağolun tşk.

 

[PriveT]

Haklısınız.

Ama sanırım bizim ondalık olarak kullandığımız virgülü binlik ayıracı olarak kullanmış ki işine yaramış.