Merhabalar,
aşağıdaki gibi bir kodlamam vardı. Otomatik bir isim düzeltmesi. Ancak bu hatayı vermeye başladı Neden olabilir acaba ?
Sub konaklama()
Dim rng As Range
Range(Range("AE2"), Range("AE2").End(xlDown)).ClearContents
For Each rng In Range(Range("K2"), Range("K2").End(xlDown))
Select Case True
Case rng.Value Like "*1AD+1CH*"
result = "1AD+1CHD"
Case rng.Value Like "*1AD+2CH*"
result = "1AD+2CHD"
Case rng.Value Like "*1AD+3CH*"
result = "1AD+3CHD"
Case rng.Value Like "2AD"
result = "'2AD"
Case rng.Value Like "*2AD+1CH*"
result = "'2AD+1CHD"
Case rng.Value Like "*2AD+2CH*"
result = "'2AD+2CHD"
Case rng.Value Like "*2AD+3CH*"
result = "'2AD+3CHD"
Case rng.Value Like "--3 PAX--"
result = "'3AD"
Case rng.Value Like "3AD"
result = "'3AD"
Case rng.Value Like "*3AD+1CH*"
result = "'3AD+1CHD"
Case rng.Value Like "*3AD+2CH*"
result = "'3AD+2CHD"
Case rng.Value Like "*3AD+3CH*"
result = "'3AD+3CHD"
Case rng.Value Like "--4 PAX--"
result = "'4AD"
Case rng.Value Like "4AD"
result = "'4AD"
Case rng.Value Like "*4AD+1CH*"
result = "'4AD+1CHD"
Case rng.Value Like "*4AD+2CH*"
result = "'4AD+2CHD"
Case rng.Value Like "*4AD+3CH*"
result = "'4AD+3CHD"
Case rng.Value Like "--5 PAX--"
result = "'5AD"
Case rng.Value Like "5AD"
result = "'5AD"
Case rng.Value Like "*5AD+1CH*"
result = "'5AD+1CHD"
Case rng.Value Like "*5AD+2CH*"
result = "'5AD+2CHD"
Case rng.Value Like "--6 PAX--"
result = "'6AD"
Case rng.Value Like "*6AD+1CH*"
result = "'6AD+1CHD"
Case rng.Value Like "*6AD+2CH*"
result = "'6AD+2CHD"
Case rng.Value Like "*7AD+1CH*"
result = "'7AD+1CHD"
Case rng.Value Like "*7AD+2CH*"
result = "'7AD+2CHD"
Case rng.Value Like "*DBL*"
result = "'2AD"
Case rng.Value Like "--SGL--"
result = "'1AD"
Case rng.Value Like "1AD"
result = "'1AD"
Case rng.Value Like "-1 PAX-"
result = "'1AD"
Case rng.Value Like "10AD"
result = "'10AD"
Case rng.Value Like "2ADL"
result = "'2AD"
Case rng.Value Like "3ADL"
result = "'3AD"
Case Else
result = "YOK"
End Select
rng.Offset(0, 20).Value = result
Next
End Sub
aşağıdaki gibi bir kodlamam vardı. Otomatik bir isim düzeltmesi. Ancak bu hatayı vermeye başladı Neden olabilir acaba ?
Sub konaklama()
Dim rng As Range
Range(Range("AE2"), Range("AE2").End(xlDown)).ClearContents
For Each rng In Range(Range("K2"), Range("K2").End(xlDown))
Select Case True
Case rng.Value Like "*1AD+1CH*"
result = "1AD+1CHD"
Case rng.Value Like "*1AD+2CH*"
result = "1AD+2CHD"
Case rng.Value Like "*1AD+3CH*"
result = "1AD+3CHD"
Case rng.Value Like "2AD"
result = "'2AD"
Case rng.Value Like "*2AD+1CH*"
result = "'2AD+1CHD"
Case rng.Value Like "*2AD+2CH*"
result = "'2AD+2CHD"
Case rng.Value Like "*2AD+3CH*"
result = "'2AD+3CHD"
Case rng.Value Like "--3 PAX--"
result = "'3AD"
Case rng.Value Like "3AD"
result = "'3AD"
Case rng.Value Like "*3AD+1CH*"
result = "'3AD+1CHD"
Case rng.Value Like "*3AD+2CH*"
result = "'3AD+2CHD"
Case rng.Value Like "*3AD+3CH*"
result = "'3AD+3CHD"
Case rng.Value Like "--4 PAX--"
result = "'4AD"
Case rng.Value Like "4AD"
result = "'4AD"
Case rng.Value Like "*4AD+1CH*"
result = "'4AD+1CHD"
Case rng.Value Like "*4AD+2CH*"
result = "'4AD+2CHD"
Case rng.Value Like "*4AD+3CH*"
result = "'4AD+3CHD"
Case rng.Value Like "--5 PAX--"
result = "'5AD"
Case rng.Value Like "5AD"
result = "'5AD"
Case rng.Value Like "*5AD+1CH*"
result = "'5AD+1CHD"
Case rng.Value Like "*5AD+2CH*"
result = "'5AD+2CHD"
Case rng.Value Like "--6 PAX--"
result = "'6AD"
Case rng.Value Like "*6AD+1CH*"
result = "'6AD+1CHD"
Case rng.Value Like "*6AD+2CH*"
result = "'6AD+2CHD"
Case rng.Value Like "*7AD+1CH*"
result = "'7AD+1CHD"
Case rng.Value Like "*7AD+2CH*"
result = "'7AD+2CHD"
Case rng.Value Like "*DBL*"
result = "'2AD"
Case rng.Value Like "--SGL--"
result = "'1AD"
Case rng.Value Like "1AD"
result = "'1AD"
Case rng.Value Like "-1 PAX-"
result = "'1AD"
Case rng.Value Like "10AD"
result = "'10AD"
Case rng.Value Like "2ADL"
result = "'2AD"
Case rng.Value Like "3ADL"
result = "'3AD"
Case Else
result = "YOK"
End Select
rng.Offset(0, 20).Value = result
Next
End Sub