ExcelBanter - Comment in every 11th row

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Comment in every 11th row (https://www.excelbanter.com/excel-discussion-misc-queries/263318-comment-every-11th-row.html)

Comment in every 11th row

Hi,

can anybody help me...i have 3 columns and i need a comment "Audit" ini
column D in every 11th row.Is it possible to have any formula or VBA for
this....

regards,
rkp

Comment in every 11th row

Try

Sub MyMacro()
Dim lngRow As Long
For lngRow = 11 To Cells(Rows.Count, "D").End(xlUp).Row Step 11
Range("D" & lngRow).AddComment "Audit"
Next
End Sub

--
Jacob (MVP - Excel)

"Radhakant Panigrahi" wrote:

Hi,

can anybody help me...i have 3 columns and i need a comment "Audit" ini
column D in every 11th row.Is it possible to have any formula or VBA for
this....

regards,
rkp

Comment in every 11th row

Try the below version instead..

Sub MyMacro()
Dim lngRow As Long
For lngRow = 11 To Cells(Rows.Count, "D").End(xlUp).Row Step 11
If Range("D" & lngRow).Comment Is Nothing Then
Range("D" & lngRow).AddComment "Audit"
End If
Next
End Sub

--
Jacob (MVP - Excel)

"Jacob Skaria" wrote:

Try

Sub MyMacro()
Dim lngRow As Long
For lngRow = 11 To Cells(Rows.Count, "D").End(xlUp).Row Step 11
Range("D" & lngRow).AddComment "Audit"
Next
End Sub

--
Jacob (MVP - Excel)

"Radhakant Panigrahi" wrote:

Hi,

can anybody help me...i have 3 columns and i need a comment "Audit" ini
column D in every 11th row.Is it possible to have any formula or VBA for
this....

regards,
rkp