Sub for1()
Range("M20").Select
ActiveCell.FormulaR1C1 = _
"=IF(MID(RC[-12],10,3)=""Íàç"",MID(RC[-12],168,17),"""")"
Range("M20").Select
Selection.Copy
Columns("M:M").Select
ActiveSheet.Paste
Range("O20").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]="""","""",LOOKUP(99^99,--LEFT(MID(RC[-2],MIN(FIND({0,1,2,3,4,5,6,7,8,9},RC[-2]&""0123456789"")),15),{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15})))"
Range("O20").Select
Selection.Copy
Columns("O:O").Select
ActiveSheet.Paste
Range("Q20").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]*7.5%/130)"
Range("Q20").Select
Selection.Copy
Columns("Q:Q").Select
ActiveSheet.Paste
Range("S20").Select
ActiveCell.FormulaR1C1 = _
"=IF(MID(RC[-18],10,3)=""Íàç"",LEFT(RC[-18],508),"""")"
Range("S20").Select
Selection.Copy
Columns("S:S").Select
ActiveSheet.Paste
Range("X20").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",INT(RC[-7]))"
Range("X20").Select
Selection.Copy
Columns("X:X").Select
ActiveSheet.Paste
Range("Z20").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""","" ðóá. "")"
Range("Z20").Select
Selection.Copy
Columns("Z:Z").Select
ActiveSheet.Paste
Range("AB20").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]="""","""",ROUND((RC[-11]-RC[-4])*100,))"
Range("AB20").Select
Selection.Copy
Columns("AB:AB").Select
ActiveSheet.Paste
Range("AD20").Select
ActiveCell.FormulaR1C1 = _
"=IF(MID(RC[-29],10,3)=""Íàç"",RIGHT(RC[-29],1145),"""")"
Range("AD20").Select
Selection.Copy
Columns("AD:AD").Select
ActiveSheet.Paste
Range("AF20").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",CONCATENATE(RC[-13],RC[-8],RC[-6],RC[-4],RC[-2]))"
Range("AF20").Select
Selection.Copy
Columns("AF:AF").Select
ActiveSheet.Paste
Columns("AF:AF").Select
Columns("AF:AF").Select
Columns("AF:AF").Copy
Columns("AH:AH").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("M:AG").Select
Range("AG1").Activate
Selection.Delete Shift:=xlToLeft
Columns("M:M").Select
With Selection
.HorizontalAlignment = xlFill
.VerticalAlignment = xlDistributed
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub |