Soru kod basitleştirme

[incsoft]

Aşağıdaki kodun daha hızlı çalışması için nasıl bir değişiklik yapılabilir arkadaşlar? Satır sayısı çoğalacaktır.. Teşekkürler.



Cells.Select
Selection.Replace What:="15410001", Replacement:="15410001 - .1.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420001", Replacement:="15420001 - .1.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410002", Replacement:="15410002 - .2.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420002", Replacement:="15420002 - .2.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410003", Replacement:="15410003 - .1.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420003", Replacement:="15420003 - .1.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410004", Replacement:="15410004 - .2.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420004", Replacement:="15420004 - .2.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410005", Replacement:="15410005 - .3.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420005", Replacement:="15420005 - .3.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410006", Replacement:="15410006 - .4.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420006", Replacement:="15420006 - .4.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410007", Replacement:="15410007 - .5.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420007", Replacement:="15420007 - .5.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410008", Replacement:="15410008 - TMN.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420008", Replacement:="15420008 - TMN.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15410009", Replacement:="15410009 - .6.TRP - İB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="15420009", Replacement:="15420009 - .6.TRP - DB", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Range("O1:Q1").Select

 

[veyselemre]

Sub test()
    fnd = Array("15410001", "15420001", "15410002", "15420002", "15410003", "15420003", _
                "15410004", "15420004", "15410005", "15420005", "15410006", "15420006", _
                "15410007", "15420007", "15410008", "15420008", "15410009", "15420009")

    rplc = Array("15410001 - .1.TRP - İB", "15420001 - .1.TRP - DB", "15410002 - .2.TRP - İB", "15420002 - .2.TRP - DB", _
               "15410003 - .1.TRP - İB", "15420003 - .1.TRP - DB", "15410004 - .2.TRP - İB", "15420004 - .2.TRP - DB", _
               "15410005 - .3.TRP - İB", "15420005 - .3.TRP - DB", "15410006 - .4.TRP - İB", "15420006 - .4.TRP - DB", _
               "15410007 - .5.TRP - İB", "15420007 - .5.TRP - DB", "15410008 - TMN.TRP - İB", "15420008 - TMN.TRP - DB", _
               "15410009 - .6.TRP - İB", "15420009 - .6.TRP - DB")

    Cells.Select

    For i = LBound(fnd) To UBound(fnd)
        Selection.Replace fnd(i), rplc(i), xlPart
    Next i
End Sub

 

[incsoft]

Sub test()
    fnd = Array("15410001", "15420001", "15410002", "15420002", "15410003", "15420003", _
                "15410004", "15420004", "15410005", "15420005", "15410006", "15420006", _
                "15410007", "15420007", "15410008", "15420008", "15410009", "15420009")

    rplc = Array("15410001 - .1.TRP - İB", "15420001 - .1.TRP - DB", "15410002 - .2.TRP - İB", "15420002 - .2.TRP - DB", _
               "15410003 - .1.TRP - İB", "15420003 - .1.TRP - DB", "15410004 - .2.TRP - İB", "15420004 - .2.TRP - DB", _
               "15410005 - .3.TRP - İB", "15420005 - .3.TRP - DB", "15410006 - .4.TRP - İB", "15420006 - .4.TRP - DB", _
               "15410007 - .5.TRP - İB", "15420007 - .5.TRP - DB", "15410008 - TMN.TRP - İB", "15420008 - TMN.TRP - DB", _
               "15410009 - .6.TRP - İB", "15420009 - .6.TRP - DB")

    Cells.Select

    For i = LBound(fnd) To UBound(fnd)
        Selection.Replace fnd(i), rplc(i), xlPart
    Next i
End Sub

Teşekkürler hocam