Makro ile Birden Fazla Şarta Bağlı Değer Yazdırma

[cedi007]

Selamlar,

Bir konuda desteğinize ihtiyacım var. Müsait olup da yardımcı olabileceklere şimdiden teşekkür ederim.
Sorum şöyle;
Tabloda olduğu gibi; A sütunundaki değerim 2T olduğunda, B2 sütunundaki değerin baştan ilk iki hanesi harf ile başlıyorsa, C2 sütununa yazsın.

Dosya ektedir.

 

[ÖmerFaruk]

=EĞER(VE(A2="2T";DEĞİL(ESAYIYSA(1*PARÇAAL(B2;1;1)));DEĞİL(ESAYIYSA(1*PARÇAAL(B2;2;1))));B2;"")

 

[cedi007]

=EĞER(VE(A2="2T";DEĞİL(ESAYIYSA(1*PARÇAAL(B2;1;1)));DEĞİL(ESAYIYSA(1*PARÇAAL(B2;2;1))));B2;"")

Teşekkürler Ömer hocam. Mümkünse makro kodunu da paylaşabilir misiniz.

 

[ÖmerFaruk]

Sub Cedi007()
Dim xRng As Range
For i = 2 To 6
    Set xRng = Range("A" & i)
    If xRng = "2T" And xRng.Offset(, 1) Like "[A-Z][A-Z]*" Then
        xRng.Offset(, 2) = xRng.Offset(, 1)
    Else
        xRng.Offset(, 2) = ""
    End If
Next i
End Sub