Copy to first Blank cell in Colum C Non blank cells still exist be
Hi
I would like to copy the results of a calculation in a macro into the first blank cell in column C. Note that this is NOT the cell below the ast row of the colum. There are more various blank and non-blanks below the first blank in column C. How do I select the first blanc cell in Column C then? The part of the macro below works perfectly except for the fact that it does not copy the value in the first blanc cell but in the last cell. Adding a line + 1 did not work until now. Your help is really appreciated, Many thanks upfront. If COMPANY = "SA" Or COMPANY = "sa" Then ' Select the SA 2006_2007 sheet for input Sheets("2006_2007 BE Invoices Out").Select Range("C1").Select 'Instruction below Brings me to the last non-blank cell, but need the line below !!! Range(Selection.Address).End(xlDown).Select Sheets("Parameters").Select Range("E16").Select Selection.Copy Sheets("2006_2007 BE Invoices Out").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
Copy to first Blank cell in Colum C Non blank cells still exist be
Suddenly found a solution
If COMPANY = "SA" Or COMPANY = "sa" Then ' Select the SA 2006_2007 sheet for input Sheets("2006_2007 BE Invoices Out").Select Range("C1").Select Range(Selection.Address).End(xlDown).Select 'Moving to the next cell below ActiveCell.Offset(1, 0).Select Sheets("Parameters").Select Range("E16").Select Selection.Copy Sheets("2006_2007 BE Invoices Out").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False "Ulrik loves horses" wrote: Hi I would like to copy the results of a calculation in a macro into the first blank cell in column C. Note that this is NOT the cell below the ast row of the colum. There are more various blank and non-blanks below the first blank in column C. How do I select the first blanc cell in Column C then? The part of the macro below works perfectly except for the fact that it does not copy the value in the first blanc cell but in the last cell. Adding a line + 1 did not work until now. Your help is really appreciated, Many thanks upfront. If COMPANY = "SA" Or COMPANY = "sa" Then ' Select the SA 2006_2007 sheet for input Sheets("2006_2007 BE Invoices Out").Select Range("C1").Select 'Instruction below Brings me to the last non-blank cell, but need the line below !!! Range(Selection.Address).End(xlDown).Select Sheets("Parameters").Select Range("E16").Select Selection.Copy Sheets("2006_2007 BE Invoices Out").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
Copy to first Blank cell in Colum C Non blank cells still exist be
Range(Selection.Address).End(xlDown).Select
would be Range(Selection.Address).End(xlDown)(2).Select or Range(Selection.Address).End(xlDown).Offset(1,0).S elect -- Regards, Tom Ogilvy "Ulrik loves horses" wrote in message ... Hi I would like to copy the results of a calculation in a macro into the first blank cell in column C. Note that this is NOT the cell below the ast row of the colum. There are more various blank and non-blanks below the first blank in column C. How do I select the first blanc cell in Column C then? The part of the macro below works perfectly except for the fact that it does not copy the value in the first blanc cell but in the last cell. Adding a line + 1 did not work until now. Your help is really appreciated, Many thanks upfront. If COMPANY = "SA" Or COMPANY = "sa" Then ' Select the SA 2006_2007 sheet for input Sheets("2006_2007 BE Invoices Out").Select Range("C1").Select 'Instruction below Brings me to the last non-blank cell, but need the line below !!! Range(Selection.Address).End(xlDown).Select Sheets("Parameters").Select Range("E16").Select Selection.Copy Sheets("2006_2007 BE Invoices Out").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
All times are GMT +1. The time now is 03:01 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com