Just nu i M3-nätverket
Gå till innehåll
AniN

Makro baserat på cellformatering

Rekommendera Poster

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 :)

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×