Tablodan Kod Aktarma

[aksoy53]

"D2" DE 3.2 İLE BAŞLAYAN VE KIRMIZI RENKLI OLAN SAYILARI "E2" AKTARMAK İSTİYORUM

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Sub Test()
    Dim Kodlar As Variant
    Dim Kod As String
    Dim Bak As Integer
    Kodlar = Split(Range("D2"), ", ")
    For Bak = 0 To UBound(Kodlar)
        If Left(Kodlar(Bak), 3) = "3.2" Then
            If Kod = "" Then
                Kod = Kodlar(Bak)
            Else
                Kod = Kod & ", " & Kodlar(Bak)
            End If
        End If
    Next
    Range("E2") = Kod
End Sub

 

[aksoy53]

Teşekkür ederim eline sağlık