This macro works for Excel 2010 and 2013, but not
Excel 2003. When I run it in Excel 2003 all the cells
(up to row 456) gets filled with #NAMN?
I'm trying to import data from the file called laget.xls
to idrott.xls where the macro resides. I'm using the
Swedish version of Excel 2003 so I guess NAMN
means NAME in English.
Excel 2003. When I run it in Excel 2003 all the cells
(up to row 456) gets filled with #NAMN?
I'm trying to import data from the file called laget.xls
to idrott.xls where the macro resides. I'm using the
Swedish version of Excel 2003 so I guess NAMN
means NAME in English.
Code:
Sub button_import()
'
' button_import Macro
' imports data from laget.xls
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Range("P2").Select
Selection.End(xlToLeft).Select
Range("A2:T506").Select
Selection.ClearContents
Range("A2").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 1
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(LEFT('[laget.xls]Sida 1'!RC,FIND("" "",'[laget.xls]Sida 1'!RC,1)),"""")"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(MID('[laget.xls]Sida 1'!RC[-2],FIND("" "",'[laget.xls]Sida 1'!RC[-2],1),(LEN('[laget.xls]Sida 1'!RC[-2])-FIND("" "",'[laget.xls]Sida 1'!RC[-2],1))+1),"""")"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-3]="""","""",IF(MOD(MID('[laget.xls]Sida 1'!RC[-1],LEN('[laget.xls]Sida 1'!RC[-1])-1,1),2)=0,""Kvinna"",""Man""))"
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC[-3]=0,"""",'[laget.xls]Sida 1'!RC[-3]),"""")"
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC=0,"""",'[laget.xls]Sida 1'!RC),"""")"
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC=0,"""",'[laget.xls]Sida 1'!RC),"""")"
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC=0,"""",'[laget.xls]Sida 1'!RC),"""")"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-10]="""","""",""Sverige"")"
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC[-7]=0,"""",'[laget.xls]Sida 1'!RC[-7]),"""")"
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC[-7]=0,"""",'[laget.xls]Sida 1'!RC[-7]),"""")"
Range("N2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC[-7]=0,"""",'[laget.xls]Sida 1'!RC[-7]),"""")"
Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF('[laget.xls]Sida 1'!RC[-12]=0,"""",'[laget.xls]Sida 1'!RC[-12]),"""")"
Range("Q3").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Range("A2:T456").Select
Selection.FillDown
ActiveWindow.ScrollRow = 429
ActiveWindow.ScrollRow = 422
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub