I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.