write an cell if another cell is bold

[white_flag]

hello I have this code

Option Explicit
Public Sub test()

Dim my_range As Range
Dim c As Variant

Set my_range = ActiveSheet.Range("D:D")

For Each c In my_range
    If c.Font.Bold = True Then
 ' here I have no idea
    End If
Next c
    

End Sub

example if E30 is bold .. then the code will write in F30 text from F29

 

[njimack]

Confused - your code looks at column D but you mention E30?

 

[white_flag]

sorry

Set my_range = ActiveSheet.Range("E:E")

 

[njimack]

Based on what I think you're trying to do, try the following. Note it will be more efficient if you restrict the range of cells to your used range, but I can't code for that since you haven't posted a sample of your data

Public Sub test()

Dim my_range As Range
Dim c As Variant

Set my_range = ActiveSheet.Range("E:E")

For Each c In my_range
    If c.Font.Bold = True Then Cells(c.Row, 6).Value = Cells(c.Row - 1, 6)
 Next c
    

End Sub

 

[white_flag]

error 1004

 

[white_flag]

it dosen like this

Cells(c.Row - 1, 5).Value

 

[njimack]

Did it error out on row 1?

 

[white_flag]

for example:

Cells(c.Row, 5).Value = Cells(c.Row, 3).Value

it is working

 

[white_flag]

and how the first row can be avoid?

 

[njimack]

and how the first row can be avoid?

It can't - in my post, I suggested restricting the range, which I can help you with if you post a sample of your data.

Look at it another way - supposing the cell in row 1 was bold - what would you want to happen?