Need Help for the Macro What i have prepared

[srinayana]

Hi ,


Please find the script below what i have written

Public Function BlankCells_Filler() As Integer
ActiveSheet.Unprotect
ActiveSheet.Range("A" & 65536).Select
Selection.End(xlUp).Select
last_data_row = ActiveCell.Row
Range(ActiveCell, ActiveCell.End(xlUp)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "N/A"
Range("A16").Select
ActiveWorkbook.Save
End Function


I want to make some changes to the macro. So i need your help.

What i want .

1) Macro Should work only if "A16" is not Blank.So If A16 is Blank then this macro should not work.(Macro should end without any changes).

2) I Want to select the Row upto Column "AZ" even thought the cell is blank.But in the script("Range(Selection, Selection.End(xlToRight)).Select") what i have written it selects last Active Cell.

Please do me the need ful

Thanks in Advance

 

[shyrath]

This will select from A1 to AZ down to the used rows in column A.

So if column A has data to row 40
The selection will be

A1:AZ40

Change A1 in below code to the "from" place to select.

ActiveSheet.Unprotect


    If Range("A16") = "" Then

    Msgbox "A16 is blank - we do nothing"
    
    Else
    
    lr = ActiveSheet.Range("A65536").End(xlUp).Row
    lrw = "AZ" & lr
    
    Range("A1:" & lrw).Select
    
    Selection.FormulaR1C1 = "N/A"
    Range("A16").Select
    ActiveWorkbook.Save
    End If

 

[srinayana]

This will select from A1 to AZ down to the used rows in column A.

So if column A has data to row 40
The selection will be

A1:AZ40

Change A1 in below code to the "from" place to select.

ActiveSheet.Unprotect
 
 
    If Range("A16") = "" Then
 
    Msgbox "A16 is blank - we do nothing"
 
    Else
 
    lr = ActiveSheet.Range("A65536").End(xlUp).Row
    lrw = "AZ" & lr
 
    Range("A1:" & lrw).Select
 
    Selection.FormulaR1C1 = "N/A"
    Range("A16").Select
    ActiveWorkbook.Save
    End If

Hi Shyrath,


Thank You very much.

Its working for me.

Thank you once again for your support