Nej, det har ikke noget med VBA at gøre. Mærk A kolonnen op, gå ind i Betinget formattering, vælg en ny regel og indsæt den første formel, og formatter med den ønskede farve. Og gør så det samme med kolonne B Hvis du har en dansk version så hedder COUNTIF TÆL.HVIS
Hvis du sender en mail - kan du få min testfil. @-adresse under min profil.
VBA-koden indsættes under relevante ark / Højreklik på ark / Vis programkode. Eksekver koden fra alm. visning med Alt+F8 / Afspil makro
Public Sub findFællesTal() Dim antalRæk As Integer, ræk As Integer, tal, ræk2 As Integer antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
For ræk = 1 To antalRæk tal = Range("A" & ræk) If tal <> "" Then ræk2 = findRække("B1:B" & antalRæk, tal) If ræk2 > 0 Then Range("A" & ræk).Select Selection.Interior.ColorIndex = 4 Range("B" & ræk2).Select Selection.Interior.ColorIndex = 4 End If End If Next ræk End Sub Private Function findRække(område, id) With ActiveSheet.Range(område) Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then findRække = c.Row Else findRække = 0 End If End With End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.