• DİKKAT

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

Rakamları sola yaslamak

M

manisali_mdr

Banned
Katılım
9 Ocak 2009
Mesajlar
370
Excel Vers. ve Dili
office2003 türkçe
Arkadaşlar merhaba...
bu seferki sorum çok basit ama çaresini bulamayınca bizim için çok zor bir soru luyor..
excelde bir yıllık,her ay için ayrı ayrı dosyalarım var ve bu her dosyanın içerisinde de 30 sayfa var..bu çizelgede A sütununda tarih var ve ben bu tarihi hücrenin ortasına yaslamış durumdayım..ama bazen bu hücreye tarih değil de yanyana 10-15 adet rakam yazmak zorunda kalıyorum..bu rakamları da sola yaslamak durumundayım..yaslamadım mı biliyorsunuz rakamlar aynı hücreye ortalandığı için kayma yapıyor ve rakamları okuyamıyorum..menü çubuğundaki rakamları ortalama menüsne gidip de rakamı sola yaslamak bana vakit kaybettiriyor..
sizden istediğim şu :
ortalanmış hücreyi tek bir tuş hareketiyle sola yaslamam mümkün mü?
şimdiden teşekkürler...
 
Tek bir tuş var.
K-T-A nin hemen yanındaki "sola hizala" butonu.
 
Metin Karaağaç arkadaşım..umarım dalga geçme amacıyla dememişinizdir..eminim şaka yapmışınızdır..benim sorduğum sorumun 6. satırında "menü çubuğundaki rakamları ortalama menüsne gidip de rakamı sola yaslamak bana vakit kaybettiriyor.." diye ben zaten onu bildiğimi söylemiştim..ben bunu hızlandırabilecek kısa yolu sormuştum..
 
o makroya kısa yol tusu baglayın diyelimki alt+ctrl+s bu tus kombinasyonunu hep yaptıgınızda bu işlemi yapacaktır kolay gelsin :)
 
Niye dalga geçeyim anlamadım.
Tek tuş var mı diye sormuşsunuz, ben de tek tuş olduğunu belirttim.
Dosyanıza benzer bir örnek ekleyin, o zaman size sorun yaratan kısmı biz de görebiliriz.
 
Range("C2").Select
ActiveCell.FormulaR1C1 = "ankara"
Range("C2").Select
With Selection
.HorizontalAlignment = xlRight saga yaslar
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlLeft sola yaslar
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter merkezler
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
 
bu makroya kısa yol tuşu nasıl bağlayacağım bilmiyorum inanın..
 
makrolara geldiginizde secerseniz yaninda secenekleri vardi saniyorum..
 
Selamlar,

Ekteki örnek dosyayı EKLENTİ olarak kaydedip aktif hale getirdikten sonra tüm excel dosyalarınızda kullanabilirsiniz.

Alan seçip F12 tuşuna basarsanız veriler sola yaslı olarak hizalanır.
 

Ekli dosyalar

Korhan bey..
EKLENTİ olarak nasıl ve nereye kaydetmem gerekiyor?? adım adım anlatırsanız sevinirim
 
manisali_mdr' Alıntı:
Korhan bey..
EKLENTİ olarak nasıl ve nereye kaydetmem gerekiyor?? adım adım anlatırsanız sevinirim
Genişletmek için tıkla ...
.

Olay öyle basit bir şekilde anlatılacak gibi değil.

Eğer makro ile ilgili birşeyler yapmak istiyorsanız, önce temel bilgilere sahip olmalısınız.

Bu nedenle, aşağıdaki linkleri incelemenizde yarar var.

http://www.excel.web.tr/showthread.php?t=61736
http://www.excel.web.tr/showthread.php?t=57064
http://www.excel.web.tr/showthread.php?t=56297
http://www.excel.web.tr/showthread.php?t=4228
http://www.excel.web.tr/showthread.php?t=3815


.
 
Korhan hocam..yeni bir dosya oluşturup uyguladım mı sonuç alıyorum..fakat elimdeki hazır dosyalara uygulayıp F12 tuşuna bastım mı.!farklı kaydet" sayfası açılıyor
 
Selamlar,

#13 nolu mesajımdaki linki incelediniz mi?
Orada anlatılanları adım adım uygulayın. Tüm dosyalarınızda çalışacaktır.
 
Konuyla ilgisi olmayan 17. ve 18. mesajar tarafımdan silinmiştir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst