hücre görünümü kalın(bold) ise yandaki hücreye kopyalansın

[simsek2001]

yardımınız için şimdiden çok teşekkür ederim.
B sütunundaki değer kalın harfle(bold) ile yazıldıysa A sütununda hizasına gelen hücreye yazılsın. Kalın değilse yazılmasın.
ornek dosya ektedir.
Not: Ben internetten bulduklarımı uyarlayıp aşağıdaki gibi birşey yaptım ama sadece A1 için çalıştı:

Sub Makro2()
Dim cRow As Long

Dim rRow As Range

Dim LastRow As Long

LastRow = [A65000].End(xlUp).Row

For cRow = 1 To LastRow

If Cells(cRow, 2).Font.Bold Then

Cells(cRow, 1).FormulaR1C1 = "=RC[1]"

End If
Next cRow

End Sub

 

[yanginci34]

Denermisiniz.
Sub Makro2()
Dim cRow As Long

Dim rRow As Range

Dim LastRow As Long

LastRow = [B65000].End(xlUp).Row

For cRow = 1 To LastRow

If Cells(cRow, 2).Font.Bold Then

Cells(cRow, 1).FormulaR1C1 = "=RC[1]"

End If
Next cRow

End Sub

 

[simsek2001]

Süper çok teşekkür ederim

 

[yanginci34]

Rica ederim. Kolay gelsin

 

[Ömer BARAN]

Merhaba.

Konu sahibinin isteği bence çok net değil.
Önce koyu olduğu için A sütununa değer yazıldı diyelim.
Ardından da aynı satırda B sütunundaki hücrenin KOYU özelliği iptal edilirse veya silinirse bir önceki aşamada
A sütununa yazılan değer orada kalır. Oysa artık B sütunundaki hücre KOYU DEĞİLDİR veya DOLU DEĞİLDİR.

A sütununda FORMÜL istiyorsanız mavi olan satırı, DEĞER istiyorsanız kırmızı olan satırı kullanın, diğerini silin.

Sub KOYU_AKTAR()
For sat = 1 To Cells(Rows.Count, 2).End(3).Row
    Cells(sat, 1).ClearContents
    If Cells(sat,2).Value<>"" And Cells(sat, 2).Font.Bold Then Cells(sat, 1) = Cells(sat, 2)
    If Cells(sat,2).Value<>"" And Cells(sat, 2).Font.Bold Then Cells(sat, 1).Formula = "=B" & sat
Next
End Sub