Içerir işleci

[abdlhaksy]

Merhaba benim sorum düşeyara formulü ile ilgili . Sadece farklı olarak istediğim
şey A1 hücresi D1 ile aynı ise E1 hücresini B1'e getir değil de A1 hücresi D1 hücresini içeriyorsa D1 değerini A1 ile değiştir.

A1: KLY
D1: TFXKLYKR

FORMULÜ UYGULAYINCA A1 DEĞERİ TFXKLYKR OLMALI.

 

[Korhan Ayhan]

Merhaba,

E1 hücresine aşağıdaki formülle bahsettiğiniz değeri getirebilirsiniz. Fakat A1 hücresini hem formülde kullanıp hemde A1 hücresine değer yazdırma isteminiz ancak makro ile olabilir.

=EĞER(A1=D1;B1;"")

Makro ile çözüm için aşağıdaki kodu bir butona atayıp çalıştırın.

Sub KONTROL()
    If Range("A1") = Range("D1") Then
        Range("E1") = Range("B1")
    ElseIf Range("D1") Like "*" & Range("A1") & "*" Then
        Range("A1") = Range("D1")
    End If
End Sub