VBA snippet required

[Mr.Karr]

Hello,

I have column A where used range is. According to that, can someone please provide a code snippet to fill up column B with "Completed".

Please see attached file.

Thanks,
Kar

 

[Debaser]

Basically:

range("B2:B" & cells(rows.Count, "A").end(xlup).row).Value2 = "India"

 

[Mr.Karr]

Thank you @Debaser. It works like a breeze.
In case I've next set of data in column A and would like to enter another region the same way, how about we do it ?

Please see attached file.

 

[Debaser]

For example:

range("B2:B" & cells(rows.Count, "A").end(xlup).row).SpecialCells(xlCellTypeBlanks).Value2 = "Another country"

 

[Mr.Karr]

Excellent. You need a raise!

 

[Debaser]

I'm on twice as much as yesterday...

 

[Mr.Karr]

I'm on twice as much as yesterday...

Outstanding I say :-D

 

[Mr.Karr]

@Debaser, a quick question.
I am trying above provided snippet code with GetData query and seeing error mentioned below;
Run-time error '1004';
No cells were fouind

Can you please help as this is spoiling everything which is been built.

 

[Marc L]

Hi !​

In case I've next set of data in column A and would like to enter another region the same way, how about we do it ?

Just using Excel basics, an easy formula !
No error without any blank cell to fill …​

Sub Demo()
       Const F = "IF(#2>"""",#2,""#C"")"
    With Cells(1).CurrentRegion.Columns(2)
        .Value = Evaluate(Replace$(Replace$(F, "#2", .Address), "#C", "Japan"))
    End With
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[Mr.Karr]

Thank you @Marc L