Excelin rivi tummaksi

Varmaan makrolla voi tehdä , mutta miksi ylempi rivi, eikä sama rivi?

Moikka! Tämän kyseisen merkin yläpuolella on excelissä tieto joka pitäisi viedä eteenpäin. Olen jo tehnyt makron jolla boldattu rivi haetaan kolme riviä sen alta. Mutta tosiaan oon nyt käsin tummentanut tätä riviä missä tää merkki on ja sen jälkeen ajanut tuon oman makron.

Tässä tuo käyttämäni makro joka kylläkin toimii mutta jos joku tarvitsee niin täsä:

Sub otsakejatiedotsiirrä()
Dim lngRC As Long, lngLR As Long

Const cstrCOL_DAT As String = "A"
Const cstrCOL_TAR As String = "C"

lngLR = Range(cstrCOL_DAT & Rows.Count).End(xlUp).Row

For lngRC = 1 To lngLR
If Range(cstrCOL_DAT & lngRC).Font.Bold = True Then
Range(cstrCOL_DAT & lngRC).Resize(4, 1).Copy Destination:=Range(cstrCOL_TAR & Range(cstrCOL_TAR & Rows.Count).End(xlUp).Offset(1, 0).Row)
lngRC = lngRC 4
End If
Next lngRC

End Sub

Hakee A tummennettua tekstiä ja kopioi sen C kolmeriviä sen alapuolelta.

Löysin tosiaan ohjeita kans tuohon saman rivin käsittelyyn, mutta se ei oikein auta tässä tapauksessa.

Onko pakko olla makro? Tuon voi tehdä ehdollisella muotoilullakin. Käyttää vaan kaavaa ehtona.

Eli jos muotoiltavat rivit ovat vaikka ykkösrivillä, ja ehtorivit kakkosrivillä, niin ykkösrivin muotoiluehto olisi sitten:

NOT(ISERROR(SEARCH("-";A2;1)))

kiitoksia vastauksista. Ei oo väliä miten sen toteuttaisi, Miten tuo konditionaaliehto toimii? Nyt vähän tipahdin kärryiltä.

Mikäli tarkoitit että koko rivi muotoillaan uusiksi, jos missä tahansa alapuolella olevan rivin solussa on jossain kohtaa merkki "-", niin silloin pitää laittaa muotoiltavan solun ehdoksi kaava:

=EI(ONVIRHE(VHAKU("*-*";$2:$2;1;0)))

Tuossa tapauksessa etsitään merkkiä "-" riviltä kaksi (parametri "$2:$2", kolmosrivi olisi "$3:$3" jne.), ja ehdollinen muotoilu tehdään tässä tapauksessa kaikille ensimmäisen rivin soluille.

Ja merkkiä haetaan tekstiä sisältävistä soluista. Negatiivisia lukuja sisältäviä soluja ei huomioida, vaikka niissä onkin tuo sama merkki luvun etumerkkinä.

Tässä *.GIF animaatio ehdollisesta muotoilusta, jonka ehtona on tavu-viivan olemassa olo. GIF animaatio on näppärä apu opastettaessa, mutta tästä animaatiosta tuo näppäryys kyllä puuttuu. Useasti toistettuna saattaa saada käsityksen mitä siinä tehdään.

https://imgur.com/k0EiR8v

Eli siis tuo Kukkakauppias muuttuisi tummennetuksi?

Haetaanko - merkkiä A-sarakkeesta vaiko mistä?
Jos tarkoitus on siirtää - merkin yläpuolinen rivin A-sarakkeen arvo 3 sen alla olevaa arvoa C -sarakkeeseen, niin miksi siihen pitäisi 2 makroa tehdä kun menee yhdellä ihan helposti?

boldaa ja siirtää

Option Explicit
Sub Hae()
Dim vika As Long
vika = Range("A5536").End(xlUp).Row
Dim solu As Range
For Each solu In Range("A1:A" & vika)
If InStr(1, solu, "-") > 0 Then
solu.Offset(-1, 0).Font.Bold = True
solu.Offset(-1, 0).Resize(4, 1).Copy Range("C" & Range("C65536").End(xlUp).Row 1)
End If
Next
End Sub

Keep EXCELing
@Kunde