• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü font ve toplama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ilkay94

Yeni Üye
Katılım
27 Nis 2022
Mesajlar
139
Aldığı beğeni
9
Excel V
Office 2016 TR
Konu Sahibi
Merhaba Arkadaşlar,

Herkese hayırlı cumalar,

Aşşağıda ki 2 konu için yardımlarınızı rica ediyorum,

Aşşağıda ki L5 hücresine öncelikle D5*H5 ve bu sonucuda B5 ile toplayıp yazdırmak istiyorum ama yapamadım,

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Aşşağıda ki kodlamanın daha basit kısa hızlı bir yolu var mıdır acaba,


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
mozuer
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
Tarihe göre sırala Oylara göre sırala
aşağıdaki kısım tekrarlamış gibi aynı alanın aynı özellikleri var ve dikkatimden kaçan bir yer yoksa VerticalAlignment dışındakilerin değeri de birebir aynı
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
----------------------------------------
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
halily' Alıntı:
aşağıdaki kısım tekrarlamış gibi aynı alanın aynı özellikleri var ve dikkatimden kaçan bir yer yoksa VerticalAlignment dışındakilerin değeri de birebir aynı
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
----------------------------------------
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Genişletmek için tıkla...
Teşekkür ederim hocam.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
mozuer' Alıntı:
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
Genişletmek için tıkla...
Teşekkür ederim hocam.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst