İkinci hücre verisine göre

[ninuninu]

Ekteki dosyanı içinde açıkladığım konu hakkında yardım rica ediyorum

 

[ZorBey_]

G7 Hücresine Denermisiniz.

=EĞER(C7>=2501;(120);EĞER(B7>=450;(110);EĞER(B7<=450;(95))))

 

[ninuninu]

Elinize şağlık çok teşekkürler.Herhalde ben eksik birşey yapmıştım zira aynısını denemiştim ama olmamıştı.ALLAH razı olsun.

 

[ZorBey_]

Cümlemizden Allah razı olsun
İyi Çalışmalar.

 

[ninuninu]

peki bir ricam daha olacak belirlediğim bir hücreye küçük harfle yazı yazdığımda
büyük harf yazsın "bunu nasıl yapabiliriz

 

[acar6783]

peki bir ricam daha olacak belirlediğim bir hücreye küçük harfle yazı yazdığımda
büyük harf yazsın "bunu nasıl yapabiliriz

=BÜYÜKHARF('hücre)

 

[ninuninu]

yok anlatamadım.Yazdğim hücre ben küçük harfte yazsam büyük harf olarak gözüksün.Zira bazen caps lock u açmayı unutuyor insanlar.

 

[acar6783]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


a = Target.Value

ActiveCell.Value = UCase(a)
End Sub

Bu geldi aklıma ama bir deneyin isterseniz.
Yazdıktan sonra seçtiğiniz her hücreyi büyük harf yapar.

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub

Target.Value = UCase(Target.Value)
End Sub

Bu daha sağlıklı olacak sanırım

 

[ninuninu]

deneyeceğim teşekkürler

 

[ninuninu]

bu macroyu nasıl çalıştıracağım sadece 1 hücre için macro çalıştırmayı bilmiyorum

 

[ninuninu]

macro yu hücreye nasıl tanımlayacağım macro bilmiyotum da

 

[ÖmerBey]

Uygulamak istediğiniz sayfa sekmesi üzerine sağ tıklayıp "Kod Görüntüle" dedikten sonra açılan beyaz sayfaya kodu yapıştırınız.
Ancak Türkçe yazı yazıyorsanız "ı" ve "i" harflerinde sorun olacaktır. O sebeple kodu aşağıdaki gibi değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Target.Value = UCase([COLOR="Red"]Replace(Replace([/COLOR]Target.Value[COLOR="red"], "i", "İ"), "ı", "I")[/COLOR])
End Sub

 

[ninuninu]

Kardeşcim ilk verdiğin makroyla oluyor fakat .0150 yazmam gereken yer var yazınca 0,015 diye görünüyor.nasıl düzeltebilirim.

 

[ninuninu]

Birde bu komut sadece 1 hücre için veya belirlenecek hücreler için olabilirmi

 

[ÖmerBey]

Belirli alanda çalıştırmak için Private sub satırından sonra en başa aşağıdaki kodu yazınız.
Kırmızı kısım çalışmasını istediğiniz yer oluyor kendi isteğinize göre değiştirebilirsiniz.

If Intersect(Target, Range("[COLOR="Red"]A1:C3[/COLOR]")) Is Nothing Then Exit Sub