belli aralıktaki sayılar dışındakiler silinsin

[umutozkans]

Merhaba ekteki dosyada (off ile başlayanların hepsi) kırmızı ile belirtilen değerleri tek sütün haline getirmek istiyorum ama öncelikle seri no su belli bir değerin dışında olanlar silinsin.

 

[hamitcan]

Olması gereken halini de bir sütunda belirtirseniz, daha çabuk yanıt bulabilirsiniz.

 

[umutozkans]

Olması gerekeni yan sütünda belirttim. Saygılar.

 

[umutozkans]

Aslında seri no olayını da hallettim. Sadece ekteki dosyada olması gereken sütününda belirttiğim gibi bazı verileri çekmem lazım. Saygılar

 

[Ali]

İsteğiniz ile ilgili bir örnek hazırladım.Umarım işinizi görür.

 

[hamitcan]

Ben de makro ile yaptım.

Sub nn()
Columns("j:m").Clear
On Error Resume Next
For i = 2 To [a65536].End(3).Row
With WorksheetFunction
    son = [j65536].End(3).Row + 1
    Cells(son, "j") = CStr(Mid(Cells(i, "a"), .Search("SM", Cells(i, "a")) + 3, 2))
    Cells(son, "k") = Mid(Cells(i, "a"), .Search("TM", Cells(i, "a")) + 3, 2)
    Cells(son, "l") = Mid(Cells(i, "a"), .Search("FG", Cells(i, "a")) + 3, 2)
    Cells(son - 1, "m") = Mid(Cells(i, "a"), .Search("ET", Cells(i, "a")) + 3, 2)
End With
Next
End Sub

 

[umutozkans]

harika oldu. ama bi de içinde tam sayılar olan bir kümedeki her sayının tekrarlama sıklığını nasıl hesaplayabilirim