Rakamları sola yaslamak

[manisali_mdr]

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...

 

[Metin Karaağaç]

Tek bir tuş var.
K-T-A nin hemen yanındaki "sola hizala" butonu.

 

[manisali_mdr]

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..

 

[parametre]

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

 

[Metin Karaağaç]

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.

 

[parametre]

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

 

[manisali_mdr]

bu kodları her sayfaya yapıştıracak mıyım?

 

[manisali_mdr]

bu makroya kısa yol tuşu nasıl bağlayacağım bilmiyorum inanın..

 

[mustafaine1]

makrolara geldiginizde secerseniz yaninda secenekleri vardi saniyorum..

 

[manisali_mdr]

neyse...vazgeçtim...ilgilerinize teşekkürler

 

[Korhan Ayhan]

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.

 

[manisali_mdr]

Korhan bey..
EKLENTİ olarak nasıl ve nereye kaydetmem gerekiyor?? adım adım anlatırsanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki inceleyin.

EKLENTİ HAZIRLAMAK

 

[Merhum İdris SERDAR]

Korhan bey..
EKLENTİ olarak nasıl ve nereye kaydetmem gerekiyor?? adım adım anlatırsanız sevinirim

.

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


.

 

[manisali_mdr]

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

 

[Korhan Ayhan]

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.

 

[Merhum İdris SERDAR]

Konuyla ilgisi olmayan 17. ve 18. mesajar tarafımdan silinmiştir.