Eger Formulu

[pelin5353]

Merhaba,

Ekteki dosyada da acikladigim gibi B2<A1 ise ACTyazmasi , aksi halde hucre degeri degismemesi gerekiyor. Bu konuda sizlerden yardim rica edebilir miyim ...

 

[Recep İpek]

G&#246;rd&#252;&#287;&#252;m kadar&#305;yla siz elma ile armutu kar&#351;&#305;la&#351;t&#305;r&#305;yorsunuz.Yada ben tam olarak anlayamad&#305;m.

A1'de bug&#252;n&#252;n tarihi var. B2'de ise OFF ...

Bunlar nas&#305;l birbirinden k&#252;&#231;&#252;k olacak?Biraz daha sorunuzu a&#231;abilirmisiniz?

 

[pelin5353]

Afedersiniz.. Suan ekteki dosyada yeni halini gorebilirsiniz...Yani A2<A1 ise B2'de ACT yazsin.. aksi halde hucre degeri ayni kalsin...

 

[Necdet]

Sayın pelin5353,

Hangi hücrede formülü istediğinizi söylememişsiniz.
Ben örnek olması açısından formülü B2 hücresine yazıldığını varsayarak verecem, siz ilgili hücre ile değiştirirsiniz.

B2

=EĞER(A2<A1;"ACT";B2)

 

[kombo]

Sn pelin5353

Dosyayı inceleyin.

 

[kombo]

Bu arada forum üyelerine bende bir soru sorayım.
Dosyada butona bağladığım aşağıdaki kodları nasıl Sayfanın kod sayfasına yapıştırabilirim? For.. Next döngüsünü önüne geçemedim bir türlü, devamlı çalışıyor.

Sub ACT()
For x = [A65536].End(3).Row To 2 Step -1
If Cells(x, 1) < [a1] Then Cells(x, 2) = "ACT"
Next
End Sub

 

[Recep İpek]

For.. Next döngüsünü önüne geçemedim bir türlü, devamlı çalışıyor.

Aşağıdaki şekilde deneyebilirmisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    For x = [A65536].End(3).Row To 2 Step -1
        If Cells(x, 1) < [a1] Then Cells(x, 2) = "ACT"
    Next
Application.EnableEvents = True
End Sub

 

[kombo]

Sn ripek

İlginiz için teşekkür ederim. Yazdığınız kodlar güzel çalışıyor.

Fazla olmazsam bu kodlar ne amaçla kullanılıyor. Yani for.. next döngüsüne etkisi nedir?

Application.EnableEvents = False

 

[Recep İpek]

Kodları sayfanın Change(Değişiklik) olayına yazdığınız için hücrelerdeki her
değişikte makronuz çalışmaya devam etmektedir.Yani sonsuz döngü oluşmaktadır.

Application.EnableEvents = False kodu çalışma kitabınızın olaylarını o an için durdurup, işlem yapmanızı sağlar.
Bu kod tüm olayları iptal ettiği için mutlaka makronuzun sonuna Application.EnableEvents = True satırını ilave etmeniz gerekmektedir.

 

[kombo]

Sn ripek

Bilgilendirmeniz için teşekkür ederim.