Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
add a date in a row from row above
Hi
I would like to add a date from the row/cell above (in col 4) given that the cell I want to add the date to in col 4 is empty. This should continue to execute as long as column 5 contains anything/is not blank. I tried below syntax, but it returned an error-message SUB Test () Dim r As Range For Each r In Worksheets("rådata").Range("G1:G10000") If IsEmpty(r.Value) Then Exit For End If x = 4 If (Cells(x, 4)).Value = " " Then Cells(x, 4).Value = Cells(x - 1, 4).Value x = x + 1 Loop Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
add a date in a row from row above
Sub Test()
Dim r As Range For Each r In Worksheets("rådata").Range("G1:G10000") If Not IsEmpty(r.Value) Then If r.Offset(0, -4).Value = "" Then r.Offset(0, -4).Value = r.Offset(-1, -4).Value End If End If Next End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "sverre" wrote in message ... Hi I would like to add a date from the row/cell above (in col 4) given that the cell I want to add the date to in col 4 is empty. This should continue to execute as long as column 5 contains anything/is not blank. I tried below syntax, but it returned an error-message SUB Test () Dim r As Range For Each r In Worksheets("rådata").Range("G1:G10000") If IsEmpty(r.Value) Then Exit For End If x = 4 If (Cells(x, 4)).Value = " " Then Cells(x, 4).Value = Cells(x - 1, 4).Value x = x + 1 Loop Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Concatenate including a date so that the date appears as a date | Excel Worksheet Functions | |||
date in Cell to change colors if the date is beyond today's date | Excel Discussion (Misc queries) | |||
Report Date - Date Recv = Days Late, but how to rid completed date | Excel Worksheet Functions | |||
copy date based on date -refer to date range | Excel Programming | |||
Date updates from worksheet to chart & changes date to a date series! Help!! | Charts and Charting in Excel |