• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

verileri şu biçimde nasıl yanyana yazarım

  • Konbuyu başlatan Konbuyu başlatan modoste
  • Başlangıç tarihi Başlangıç tarihi

modoste

Altın Üye
Katılım
31 Mayıs 2008
Mesajlar
3,714
Excel Vers. ve Dili
Microsoft OFFİCE Ev ve İş 2019 TR
merhaba bir çizelge hazırlıyorum

A1 hücresi 1 / 1
B1 Hücresi 1 / 2
..
.
.
.
I1 1 / 9
J1 1 / 10
K1 1 / 11
.
.
devam ediyo bunun kısayolu varmı mesela hücre biçimlendirmeden 0 "/" 0
yapıp enter A1 e 11 yazınca dediğimde 1 / 1 (bir boşluk bir) yapıyo ama bunu yatay devam ettirince 12,13,,, 19 a kadar oluyo ama 1 / 10 olmuyo

umarım anlatabildim.
 
sayın uzmanamele sizin yöntemi denediğimde hücreye 14 yazdığımda 1 / 14 çıkıyo sonuç
hücreye ne yazacağım ve nasıl görüncek aşağıda yazıyorum
11 ise 1 / 1
12 ise 1 / 2
123 ise 1 / 23
215 ise 2 / 15
1235 ise 12 / 35 sayı boşluk "/" boşluk sayı kırmızıyla olan sayıları ben hücreye bitişik yazcam görüntüleri örnek verdiklerim gibi olcak
 
a1 hücresine göre formülü yazdım..siz dilediğince değiştirirsiniz..

=EĞER(A1="";"";EĞER(UZUNLUK(A1)>3;PARÇAAL(A1;1;2)&"\"&PARÇAAL(A1;3;3);PARÇAAL(A1;1;1)&"\"&PARÇAAL(A1;2;2)))
 
Hücre Biçimlendirme'den :
Kod:
[<=99]0"/"0;[<=999]0"/"00;00"/"00
Makro :
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len([Target]) = 2 Then Target.NumberFormat = "0""/""0"
If Len([Target]) = 3 Then Target.NumberFormat = "0""/""00"
If Len([Target]) = 4 Then Target.NumberFormat = "00""/""00"
End Sub
 
Geri
Üst