08. august 2006 - 15:49Der er
7 kommentarer og 1 løsning
Maker alle som ens med activecelle og celle 12 celler til højre
Jeg har en kode som Maker alle som ens med activecelle, fra kolonne A til kolonne S
Det jeg gerne vil have er at hvis active celle fx er 090551-4711 og cellen 12 celler til højre fx er a
skal koden makere de rækker hvor begge kreterie er opfyldt
Sub Maker_a_1() 'Maker alle som ens med activecelle, fra kolonne A til kolonne S Dim x As Integer, y As Integer, k As Integer, t As Variant r = ActiveCell.Row k = [A:A].Column k = ActiveCell.Column L = [A:A].Column t = ActiveCell.Value
x = r Do Until (Cells(x + 1, k).Value) <> t x = x + 1 Loop Range(Cells(r, L + 18), Cells(x, L)).Select 'Fra ens celle relativ række
Sub marker() myrow = ActiveCell.Row myvalue = Range("a" & myrow & ":" & "l" & myrow) maksrow = Range("a65536").End(xlUp).Row myarr = Range("a1:l" & maksrow) Range("a:iv").Interior.ColorIndex = xlNone For i = 1 To maksrow If myarr(i, 1) = myvalue(1, 1) _ And myarr(i, 12) = myvalue(1, 12) Then Rows(i).Interior.ColorIndex = 6 End If Next i End Sub
Jeg kan desværre ikke få det til at virke. Det det skulle var at hvis man fx står i kolonne d med cpr. nr. 090551-4711, de næste 15 rækker er samme cpr. nr. men cellen 12 kolonner til højre (kolonne P)står der a men kun i de 10 første rækker, de 5 sidste står der fx h.
Så skal koden kun makere (ikke farve) de 10 første rækker fra kolonne A til kolonne S
Det skal lige siges at det er Excel 95 jeg bruger, men jeg har også prøvet Excel 2003 der kan jeg heller ikke få den til at virke.
Tusind tak det virker fint i Excel 2003, men desværre ikke i Excel 95, jeg har prøvet at rette maksrow = Range("d65536").End(xlUp).Row til maksrow = Range("d16384").End(xlUp).Row det hjalp ikke. Hvis du lægger et svar får du dine point
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.
