Ggtcf

Not hide and seek

Started in 1987 vs. Starting in 1987

Air travel with refrigerated insulin

Is divisi notation needed for brass or woodwind in an orchestra?

How to preserve electronics (computers, ipads, phones) for hundreds of years?

How to split IPA spelling into syllables

Do native speakers use "ultima" and "proxima" frequently in spoken English?

What is the purpose of using a decision tree?

Why does a 97 / 92 key piano exist by Bosendorfer?

Would this string work as string?

Are all namekians brothers?

Unfrosted light bulb

Asserting that Atheism and Theism are both faith based positions

Why is implicit conversion not ambiguous for non-primitive types?

What is the meaning of "You've never met a graph you didn't like?"

Why do Radio Buttons not fill the entire outer circle?

Friend wants my recommendation but I don't want to give it to him

Make a Bowl of Alphabet Soup

What is the period/term used describe Giuseppe Arcimboldo's style of painting?

Why can't I get pgrep output right to variable on bash script?

What is it called when someone votes for an option that's not their first choice?

Put the phone down / Put down the phone

What can I do if I am asked to learn different programming languages very frequently?

What do the positive and negative (+/-) transmit and receive pins mean on Ethernet cables?

Excel VBA, Run-time Error '1004' when applying a formula

Is there a way to crack the password on an Excel VBA Project?Shortcut to Apply a Formula to an Entire Column in ExcelMacro to copy to another sheet in one line horizontallyFor loop through range, task is copy and paste specialHow to avoid using Select in Excel VBAFixing my macro to copy a range to the next blank column?Excel VBA to search for up to 15 values in one searchVlookup help needed - Can't seem to find this answer elsewhereexcel replace function in access vbaConditional copy Excel File-2 data to excel file-1?

0

I keep getting an error when trying to apply a formula in a cell of a recently opened sheet. Error occurs on third line. What's causing the problem?

ActiveWorkbook.SaveAs "Z:Daily Mainsource MacrosNIS.xlsx"
Workbooks.Open Filename:="file pathroster.xlsx"
Range("F2").FormulaR1C1 = "=VLOOKUP(RC[-2],'[NIS.xlsx]NIS'!C2:C5,4,0)"
Range("F2").AutoFill Destination:=Range("F2:F" & Cells(Rows.Count, "B").End(xlUp).Row)
Columns("F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
Selection.Replace What:="0", Replacement:="REWORK", LookAt:=xlWhole, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False

excel vba

share|improve this question

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I'll take it that your ActiveWorkbook is your macro enabled file. Which is refered to as ThisWorkbook. Once you save ThisWorkbook in xlsx format, the xlsm file closes and the xlsx file is open and activated, causing the code to stop. I would look at SaveCopyAs and then open the copy.
  
  – GMalc
  Mar 7 at 21:24
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  ActiveWorkbook would be a .csv file generated by a system. Right now I'm troubleshooting in xlsm, it will eventually be in an xlam. Both of those exist outside of that csv file. Don't know if that makes a difference?
  
  – squidgywidget
  Mar 7 at 21:45
  

  
  
  
  

add a comment | 

0

I keep getting an error when trying to apply a formula in a cell of a recently opened sheet. Error occurs on third line. What's causing the problem?

ActiveWorkbook.SaveAs "Z:Daily Mainsource MacrosNIS.xlsx"
Workbooks.Open Filename:="file pathroster.xlsx"
Range("F2").FormulaR1C1 = "=VLOOKUP(RC[-2],'[NIS.xlsx]NIS'!C2:C5,4,0)"
Range("F2").AutoFill Destination:=Range("F2:F" & Cells(Rows.Count, "B").End(xlUp).Row)
Columns("F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
Selection.Replace What:="0", Replacement:="REWORK", LookAt:=xlWhole, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False

excel vba

share|improve this question

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I'll take it that your ActiveWorkbook is your macro enabled file. Which is refered to as ThisWorkbook. Once you save ThisWorkbook in xlsx format, the xlsm file closes and the xlsx file is open and activated, causing the code to stop. I would look at SaveCopyAs and then open the copy.
  
  – GMalc
  Mar 7 at 21:24
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  ActiveWorkbook would be a .csv file generated by a system. Right now I'm troubleshooting in xlsm, it will eventually be in an xlam. Both of those exist outside of that csv file. Don't know if that makes a difference?
  
  – squidgywidget
  Mar 7 at 21:45
  

  
  
  
  

add a comment | 

I keep getting an error when trying to apply a formula in a cell of a recently opened sheet. Error occurs on third line. What's causing the problem?

ActiveWorkbook.SaveAs "Z:Daily Mainsource MacrosNIS.xlsx"
Workbooks.Open Filename:="file pathroster.xlsx"
Range("F2").FormulaR1C1 = "=VLOOKUP(RC[-2],'[NIS.xlsx]NIS'!C2:C5,4,0)"
Range("F2").AutoFill Destination:=Range("F2:F" & Cells(Rows.Count, "B").End(xlUp).Row)
Columns("F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
Selection.Replace What:="0", Replacement:="REWORK", LookAt:=xlWhole, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False

excel vba

share|improve this question

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

ActiveWorkbook.SaveAs "Z:Daily Mainsource MacrosNIS.xlsx"
Workbooks.Open Filename:="file pathroster.xlsx"
Range("F2").FormulaR1C1 = "=VLOOKUP(RC[-2],'[NIS.xlsx]NIS'!C2:C5,4,0)"
Range("F2").AutoFill Destination:=Range("F2:F" & Cells(Rows.Count, "B").End(xlUp).Row)
Columns("F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
Selection.Replace What:="0", Replacement:="REWORK", LookAt:=xlWhole, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False

share|improve this question

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

share|improve this question

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1

asked Mar 7 at 20:31

squidgywidgetsquidgywidget

1