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

Katılım
8 Ekim 2009
Mesajlar
642
Excel Vers. ve Dili
Office 2010 & 2016 TR
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.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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.
Kod:
=YERİNEKOY($A1;SAĞDAN($A1;1);9;UZUNLUK($A1)-UZUNLUK(YERİNEKOY($A1;SAĞDAN($A1;1);"")))*1
 
Katılım
8 Ekim 2009
Mesajlar
642
Excel Vers. ve Dili
Office 2010 & 2016 TR
Alternatif olsun;
Kod:
=(PARÇAAL(A1;1;UZUNLUK(A1)-1)&9)*1
veya

Kod:
=DEĞİŞTİR(A1;UZUNLUK(A1);1;9)*1
Bunda atladığım bir ayrıntı yok umarım :giggle:
 
Son düzenleme:
Katılım
18 Ağustos 2009
Mesajlar
199
Excel Vers. ve Dili
Excel 365 - Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Alternatif:

Kod:
=KYUVARLA(A1;10)-1
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Haklısınız. :oops:
 

burhanbakici

Altın Üye
Katılım
20 Haziran 2013
Mesajlar
32
Excel Vers. ve Dili
OFFICE 2010 TURKCE
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

Altın Üye
Katılım
20 Haziran 2013
Mesajlar
32
Excel Vers. ve Dili
OFFICE 2010 TURKCE
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 ?
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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

Altın Üye
Katılım
20 Haziran 2013
Mesajlar
32
Excel Vers. ve Dili
OFFICE 2010 TURKCE
hocam örnek ektedir, müsait olduğunuzda bakabilir misiniz lütfen? sanırım ben yapamadım.
 

Ekli dosyalar

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Sayfa kodu olarak kopyalayınız.Yazdığınız sayıda işlem yapar.
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

Kod:
=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:

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

burhanbakici

Altın Üye
Katılım
20 Haziran 2013
Mesajlar
32
Excel Vers. ve Dili
OFFICE 2010 TURKCE
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.
 
Üst