Sub proverka()
Dim sFileName1 As String
sFileName1 = Application.GetOpenFilename _
(fileFilter:="Microsoft Excel Files (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb")
Range("u11").Select
ActiveCell.FormulaR1C1 = _
"=IF(VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C21,'sFileName1+ГПД'!R2,0)-7,0)="""","""",VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C21,'sFileName1+ГПД'!R2,0)-7,0))"
Range("V11").Select
Selection.FormulaR1C1 = _
"=IF(VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C21,'sFileName1+ГПД'!R2,0)-6,0)="""","""",VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C21,'sFileName1+ГПД'!R2,0)-6,0))"
Range("W11").Select
Selection.FormulaR1C1 = _
"=IF(VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C23,'sFileName1+ГПД'!R2,0)-7,0)="""","""",VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C23,'sFileName1+ГПД'!R2,0)-7,0))"
Range("X11").Select
Selection.FormulaR1C1 = _
"=IF(VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C23,'sFileName1+ГПД'!R2,0)-6,0)="""","""",VLOOKUP(RC8,'sFileName1+ГПД'!C8:C34,MATCH(R2C23,'sFileName1+ГПД'!R2,0)-6,0))"
Range("U11:X11").Select
Selection.Copy
Range("U11:X1100").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
|