Sutun icinden aynı uzunlukdaki sayıları ayıklamak

[Musa Batur]

Ekli listede dosyayı sutun icinden aynı uzunlukdaki sayıları ayıklamak istiyorum.

 

[Ömer]

Merhaba,

=EĞER(UZUNLUK($A2)=SÜTUN(A1)+7;$A2;"")

İstediğiniz bu mu?

.

 

[Necdet]

Merhaba,

Dosyanız Ekte

Birinci satırdaki Biçimi İnceleyiniz.

 

[leumruk]

Merhaba,
Makroyla bir alternatif,

Sub ayır()
For x = 2 To [a65536].End(3).Row
If Len(Cells(x, "a")) = 8 Then
Cells(x, "a").Cut Cells(x, "b")
ElseIf Len(Cells(x, "a")) = 9 Then
Cells(x, "a").Cut Cells(x, "c")
ElseIf Len(Cells(x, "a")) = 10 Then
Cells(x, "a").Cut Cells(x, "d")
ElseIf Len(Cells(x, "a")) = 11 Then
Cells(x, "a").Cut Cells(x, "e")
ElseIf Len(Cells(x, "a")) = 12 Then
Cells(x, "a").Cut Cells(x, "f")
End If
Next
Application.CutCopyMode = False
End Sub

 

[Necdet]

Merhaba,

Alternatif makro da benden olsun.

Sub SutunAyir()
For i = 2 To [A65536].End(3).Row
    If Len(Cells(i, "A")) > 7 Then
        Cells(i, Len(Cells(i, "A")) - 6) = Cells(i, "A")
        Cells(i, "A") = ""
    End If
Next i
End Sub

 

[Necdet]

1 Soru 4 Yanıt
Sonuç?