Makro baserat på cellformatering

[AniN]

Hej.

 

Skulle behöva hjälp med en kod. Om formatet i en cell i kolumn E är fet vill jag

• Kopiera innehållet till kolumnerna A-C från raden ovanför
• Formatera hela den aktuella raden till fetstil

 

Tack på förhand

[Monshi]

Du får ett skal att arbeta med:

 

Sub test()
    Dim myRn As Range
    Set myRn = Application.InputBox("markera celler", "Fetstilsökning", Type:=8)
    If myRn Is Nothing Then Exit Sub
    Dim myCell As Range
    For Each myCell In myRn
        If myCell.Font.Bold Then
            MsgBox myCell.Address + "är bold"
        End If
    Next myCell
    
    
End Sub

Klarar du av att bygga aktionerna själv kanske?

Sätta om referensen till att avara E-kolumnen istället för att anges.

 

MEN att söka genom HELA E-kolumnen rekommenderas INTE

Och det är en lite konstig önskan, har du tänkt rätt i hur du ordnar dina data?

En vanlig modell, den rekommenderade, är att ha data stilla i en tabell som man fyller på och ta fram det man vill visa i rapporter.

 

[AniN]

Tackar så mycket, jag tar det vidare utifrån ditt exempel.

 

Förstår din undran, det är ingen optimal lösning men just nu den bästa möjliga med tanke på mina användares behov och förutsättningar.