Inserting ' in blank cells

[bloomingflower]

Hi,
Do you know how to make a code that will enter ' in blank cells in column range A-C? Amount of rows differs in spreadsheets.

 

[Fluff]

How about

Sub bloomingflower()
   On Error Resume Next
   Range("A:C").SpecialCells(xlBlanks).Value = "'"
   On Error GoTo 0
End Sub

 

[bloomingflower]

How about

Sub bloomingflower()
   On Error Resume Next
   Range("A:C").SpecialCells(xlBlanks).Value = "'"
   On Error GoTo 0
End Sub

Hi,
Thank you for your help, but if I have blank cell in column A, then I have data in column B, and cell in column C is blank, then it is not entering ' in column C - only in A and then it goes to next row. Could you please tell me how to modify it so it will work in such case as well?

 

[Fluff]

Do you have any data in column C?

 

[bloomingflower]

Do you have any data in column C?

Yes, sometimes I do

 

[Fluff]

Are you saying that sometimes there will only ever be data in columns A & B?

 

[bloomingflower]

I have all posibilities in rows:
Data only in A,
Data only in B
Data only in C
Data in A&B, C empty
Data in B&C, A empty
Data in A&C, B empty
Data in A,B&C

 

[Fluff]

Ok, how about

Sub bloomingflower()
   Dim UsdRws As Long
   UsdRws = Range("A:C").Find("*", , xlValues, , xlByRows, xlPrevious, , , False).Row
   With Range("A1:C" & UsdRws)
      .Value = Evaluate("If(" & .Address & "="""",""'""," & .Address & ")")
   End With
End Sub

 

[bloomingflower]

Ok, how about

Sub bloomingflower()
   Dim UsdRws As Long
   UsdRws = Range("A:C").Find("*", , xlValues, , xlByRows, xlPrevious, , , False).Row
   With Range("A1:C" & UsdRws)
      .Value = Evaluate("If(" & .Address & "="""",""'""," & .Address & ")")
   End With
End Sub

Thank you very much

 

[Fluff]

You're welcome & thanks for the feedback