ActiveCell.Offset Question

  • Thread starter Thread starter ash3154
  • Start date Start date
A

ash3154

Hi,

Spreadsheet with many columns:
In All column, Row4 I have dates:

What I like to do is:
"IF" I am in Column y "Any row" I would like to go up to Y4 and copy that
value down to another cell .
"IF" I am in Column de "Any row" I would like to go up to de4 and copy that
value down to another cell .

I wrote this thinking it may work, but I keep getting mismatch Type:
Sub Look4DATE()


Dim mycell As Range
Set mycell = ActiveCell.Offset(0, 0)
Dim myrange As Range
Set myrange = Range(ActiveCell.Offset(0, 0), mycell)

mycell.Select
ActiveCell.Offset(ActiveCell.Column & ActiveCell.Row & ":" &
ActiveCell.Column & "4").Select
Selection.Copy
Range("bE199").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False


End Sub
 
Thks for a quick response: Unfortunately, I have more than 2 columns, I have
over 35 columns, which I need to get the value of.
 
Yes after your previous script that is what I have done.... its every other
column. Thanks for your help; I will mark this as Resolved.

I am running into another issue: Just above my active cell, I have a email
address cell, if that is blank, grab the number which is 2 cells below my
active cell and call the number which is 10 rows above my active cell.
(basically I need to inform whoever is clicking on that macro button to call
that person with the ticket #).
 
If desierd, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You send a clear explanation of what you want
3. You send before/after examples and expected results.
 
Back
Top