excelde hücredeki sayıları son rakama göre ayırma

[mektepli]

excelle hazırladığım bir cetvelde 1000'e kadar sayıların içerisinde son rakamlarına (örneğin 0, 1, 2, 3....gibi) göre bir gruplama yapabilirmiyiz, bununla ilgili excelde kullanılan bir formül var mı.

ya da örneğin hücrelerde yazılı sonu 1 rakamı ile biten bütün sayılar otomatik olarak renklendirilebilirmi?
teşekkür ederim. benim için çok önemli. bilen arkadaşlardan yardım bekliyorum.

 

[Recep İpek]

Örneğin veriniz A1 hücresinde ise B1 hücresine =RIGHT(A1;1) formülünü yazarak aşağıya doğru kopyalayabilirsiniz.


RIGHT=SAĞDAN

 

[Leoncio]

Merhaba;

İşleminizi =SAĞDAN( formülü ile yapabilirsiniz.

Ekteki örneği inceleyiniz.

 

[AS3434]

Dosyayı inceleyin.
Koşullu Biçimlendirme ile yapılmıştır.

 

[mektepli]

Merhaba;

İşleminizi =SAĞDAN( formülü ile yapabilirsiniz.

Ekteki örneği inceleyiniz.

belirtilen formül sadece sayılar arasında sütun veya satır açmak suretiyle bir sütun veya bir satır için uygulanabilmektedir. ben yaklaşık 500 satırlık bir sayılar grubuna bir anda uygulamak istiyorum. yani yapmak istediğim şey örneğin 10.000 tane sayının içinden sonu 10,20,30... 1,11,21,31,... 2,12,22,32... şeklinde biten sayıları alıp birbirini takip eden yani sıralı bir şekilde gruplandırmam gerekiyor. teşekkür ederim

 

[mektepli]

Dosyayı inceleyin.
Koşullu Biçimlendirme ile yapılmıştır.

Öncelikle teşekkür ederim...dosyayı inceledim..muhtemelen bu şekliyle işime yarar..ancak ben bunu kendi tabloma nasıl uygulayacağım?bu konuda bilgi verirseniz sevinirim...

 

[Leoncio]

Öncelikle teşekkür ederim...dosyayı inceledim..muhtemelen bu şekliyle işime yarar..ancak ben bunu kendi tabloma nasıl uygulayacağım?bu konuda bilgi verirseniz sevinirim...

Bence kendi çalışmanıza uygun örnek bir dosya hazırlarsanız o dosya üzerinde yapılabilir.

Orjinal dosyadaki gibi sütun satırlar ayni olursa paste yapabilirsiniz.

Not: Aslında önce verdiğim formül ile =SAĞDAN(A2;2) işleminizi yaptırabilirdiniz.
A sütnunuda sayısal verilerin olduğununu varsayarsak formülü aşağıya doğru yapıştırdığınızda sayısal verilerden sağdan 2 hanesini alacak daha sonra süz komuduyla işlem yaptırabilirdiniz. Tabiiki alternatiflere çok.

 

[AS3434]

ancak ben bunu kendi tabloma nasıl uygulayacağım?bu konuda bilgi verirseniz sevinirim...

Biçimlendirme yapacağınız alanı seçin, Üst menüden Biçim/Koşullu Biçimlendirme seçin.
Soldaki kutucuğu FORMÜL seçin sağdaki kutucuğa

=SAĞDAN(A2;1)*1=$A$1

Yazın. Hemen altında Biçim düğmesine basın. Üst menüden Desenler seçin ve istediğiniz rengi verin. Bu arada Yazı tipini ve renginide istediğiniz gibi ayarlayabilirsiniz.Tamam deyip çıkın. Bu kadar.......

Konu ile ilgili ayrıca inceleyin;

http://www.excel.web.tr/showthread.php?t=7558

 

[AS3434]

Eğer seçili hücreler dışındakileri gizlemek isterseniz.

 

[mektepli]

benim konum ile ilgili cevaplarıyla yardımcı olan tüm arkadaşlarıma teşekkür ederim, yeterince bilgilendirildim, çok teşekkür ederim, AS3434 formülü çok güzeldi

 

[mektepli]

Eğer seçili hücreler dışındakileri gizlemek isterseniz.

seçili hücreler dışındakini nasıl gizleyeceğim, açıklayabilirmisiniz, formül belirtilmemiş, teşekkür ederim,

 

[AS3434]

seçili hücreler dışındakini nasıl gizleyeceğim, açıklayabilirmisiniz, formül belirtilmemiş, teşekkür ederim,

Biçim1.1 dosyasında, Alt+F11 ile vba penceresini açarsanız, kodlar Sayfa1'in kod sayfasında.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "HEPSİ"
Application.ScreenUpdating = False
    For x = [A65536].End(3).Row To 2 Step -1
    If Cells(x, 1) <> [b1] Then Rows(x).EntireRow.Hidden = True
    Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "SEÇ"
    Rows.EntireRow.Hidden = False
    End If
    Application.ScreenUpdating = True
End Sub

 

[mektepli]

seçili hücreler dışındakileri sildikten sonra geriye kalan ve dağınık halde bulunan sayıları tek tek toplamak zor olacağından hepsini bir anda satır veya sütun olarak bir araya nasıl getirebiliriz (satır olması tercihlidir),

 

[AS3434]

Belli bir sütundaki veriyi seçtikten sonra kalanları silmek mi istiyorsunuz?

 

[mektepli]

Biçimlendirme yapacağınız alanı seçin, Üst menüden Biçim/Koşullu Biçimlendirme seçin.
Soldaki kutucuğu FORMÜL seçin sağdaki kutucuğa

=SAĞDAN(A2;1)*1=$A$1

Yazın. Hemen altında Biçim düğmesine basın. Üst menüden Desenler seçin ve istediğiniz rengi verin. Bu arada Yazı tipini ve renginide istediğiniz gibi ayarlayabilirsiniz.Tamam deyip çıkın. Bu kadar.......

Konu ile ilgili ayrıca inceleyin;

http://www.excel.web.tr/showthread.php?t=7558

seçili hücreler dışındakileri sildikten sonra geriye kalan ve dağınık halde bulunan sayıları tek tek toplamak zor olacağından hepsini bir anda satır veya sütun olarak bir araya nasıl getirebiliriz (satır olması tercihlidir),

 

[AS3434]

Eki inceleyin.

 

[mektepli]

Eki inceleyin.

seçili hücreler dışındakileri nasıl bir anda silebilirim, geriye kalanları da nasıl bir araya (satır veya sütun olarak) toplayabilirim

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre silme işlemi tamamlandıktan sonra görmek istediğiniz formatıda eklermisiniz.

 

[AS3434]

seçili hücreler dışındakileri nasıl bir anda silebilirim, geriye kalanları da nasıl bir araya (satır veya sütun olarak) toplayabilirim

Son rakamlarına göre seçip, renklendirip ve bu hücreleri Sayfa2 de listelemek için,

Sub BulRenkleAktar()
Sayfa2.Range("a1:a65000").ClearContents
Sayfa2.Range("a1:a65000").Interior.ColorIndex = xlNone
Sayfa1.Range("a2:t65536").Interior.ColorIndex = xlNone
For Each i In Sayfa1.Range("A2:t" & [t65536].End(3).Row)
rakam = Strings.Right(i, 1)
If rakam * 1 = [a1] Then i.Interior.ColorIndex = 4
If i.Interior.ColorIndex = 4 Then
i.Copy Sayfa2.Range("A65536").End(xlUp).Offset(1, 0)
End If
Next i
End Sub

Örnek dosya ekte.

 

[mektepli]

Son rakamlarına göre seçip, renklendirip ve bu hücreleri Sayfa2 de listelemek için,

Sub BulRenkleAktar()
Sayfa2.Range("a1:a65000").ClearContents
Sayfa2.Range("a1:a65000").Interior.ColorIndex = xlNone
Sayfa1.Range("a2:t65536").Interior.ColorIndex = xlNone
For Each i In Sayfa1.Range("A2:t" & [t65536].End(3).Row)
rakam = Strings.Right(i, 1)
If rakam * 1 = [a1] Then i.Interior.ColorIndex = 4
If i.Interior.ColorIndex = 4 Then
i.Copy Sayfa2.Range("A65536").End(xlUp).Offset(1, 0)
End If
Next i
End Sub

Örnek dosya ekte.

nasıl uygulayacağımı anlayabileceğim şekilde açıklayabilirmisin