When I run this code I haven't get any error, but at the same time not getting any result too

ShaileshK · Nov 3rd 2020

Hi,

Please help me on below code. When I run this code I haven't get any error, but at the same time not getting any result too.

Code

Sub New_Method()


'If date in coloum C is less than today and cell in coloum E is blank (in the same row), then fill that blank cell with "my text" in coloum E.


Dim rng As Range


Dim sh As Worksheet


Dim lastrow As Long


lastrow = Range("C" & Rows.Count).End(xlUp).Row


Set sh = ThisWorkbook.Worksheets("Entry Page")


'Set the range in column C you want to loop through
Set rng = sh.Range("C2" & lastrow)


With Worksheets("Entry Page")


For Each Cell In rng


'test if cell is empty
If Cell.Value < Date And Cell.Offset(0, 2) = "" Then


'write to adjacent cell
Cell.Offset(0, 2).Value = "My Text"


End If


Next


End With


End Sub

Display More

**royUK** · Nov 3rd 2020

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Note: no apostrophe in the tags, just used for demonstration here.

['code]

your code goes between these tags

['/code]

Or, just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

**royUK** · Nov 3rd 2020

Try this

Code

Sub New_Method()


'If date in coloum C is less than today and cell in coloum E is blank (in the same row), then fill that blank cell with "my text" in coloum E.
Dim rng As Range, rCl As Range
Dim sh As Worksheet
Dim lastrow As Long


Set sh = ThisWorkbook.Worksheets("Entry Page")
With sh
lastrow = .Cells(.Rows.Count, 3).End(xlUp).Row
'Set the range in column C you want to loop through
Set rng = sh.Range(.Cells(2, 3), .Cells(lastrow, 3))




For Each rCl In rng
'test if cell is empty
If rCl.Value < Date And rCl.Offset(0, 2) = "" Then
'write to adjacent cell
rCl.Offset(0, 2).Value = "My Text"
End If
Next rCl
End With


End Sub

Display More

ShaileshK · Nov 4th 2020

Ok thanks

I will take care in future

**royUK** · Nov 4th 2020

Does my code work?

When I run this code I haven't get any error, but at the same time not getting any result too

Participate now!

Share