Eğer kullanımı

[oguzhanozge]

Herkese merhaba, yaptığım bir çalışmada eğer formülü ile tarihlerin büyük küçük durumlarını karşılaştırıyorum, büyük ise "bos" yazıyorum ancak küçük ilgili kutucuğu elle sayı ya da metin ile doldurmak istiyorum. Yani büyük ise otomatik olarak "bos" yazmak küçük ise elle doldurmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Elle doldurmaktan kastınız nedir? Daha detaylı açıklar mısınız.

 

[oguzhanozge]

Merhaba,

Elle doldurmaktan kastınız nedir? Daha detaylı açıklar mısınız.

örneğin D1 ile E1 karşılaştırılması sonucu E1 büyük ise D2 ye "BOS" yazsın ancak E1 küçük ise D2 yi serbest bir şekilde doldurayabileyim istediğimi istediğim bir sayıyı oraya yazabileyim ve istediğim zaman değiştirebileyim. Formülü D2 ye yazıyorum bu arada.

 

[Ömer]

Bu işlemi formülle değil makro ile yapabilirsiniz.
Çalışma sayfasının kod bölümüne kopyalayınız. D1 yada E1 e veri girdiğinizde kod çalışır. Şartı sağlarsa "boş" yazar, sağlamazsa "seçiminiz" yazar. D2 yi elle değiştirebilirsiniz. Bu mantıkla geliştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D1:E1")) Is Nothing Then Exit Sub
    With Target
        If .Count > 1 Then Exit Sub
        If Range("E1") > Range("D1") Then
            Range("D2") = "BOŞ"
        Else
            Range("D2") = "Seçiminiz."
        End If
    End With
End Sub

 

[oguzhanozge]

Bu işlemi formülle değil makro ile yapabilirsiniz.
Çalışma sayfasının kod bölümüne kopyalayınız. D1 yada E1 e veri girdiğinizde kod çalışır. Şartı sağlarsa "boş" yazar, sağlamazsa "seçiminiz" yazar. D2 yi elle değiştirebilirsiniz. Bu mantıkla geliştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D1:E1")) Is Nothing Then Exit Sub
    With Target
        If .Count > 1 Then Exit Sub
        If Range("E1") > Range("D1") Then
            Range("D2") = "BOŞ"
        Else
            Range("D2") = "Seçiminiz."
        End If
    End With
End Sub

Yardımınız için çok teşekkür ederim. Çok yararlı oldu.

 

[Ömer]

Rica ederim, iyi çalışmalar.