12. december 2007 - 21:33Der er
12 kommentarer og 1 løsning
If in row.
Hej,
Hvordan tester man If in row?
Er igang med at lave det således, men virker meget tungt!
NotaFlag = False Sheets("DS").Select r = .Cells(Rows.Count, 1).End(xlUp).Row Set NotaRows = Range(.Cells(2, 2), .Cells(r, 2)) For Each c In NotaRows If c = ref Then NotaFlag = True End If Next
Dim NotaRows as variant, I as long NotaFlag = False Sheets("DS").Select r = .Cells(Rows.Count, 1).End(xlUp).Row NotaRows = Range(.Cells(2, 2), .Cells(r, 2)) For I = 1 to ubound(NotaRows) If NotaRows(i,1) = ref Then NotaFlag = True End If Next
I din kode tester du for antal rækker i kolonne A (r) derefter tester du i kolonne B Senere skriver du den skal findes i kolonne C
mit gæt er så kolonne C ellers ret
Sub xFind() Set sh = Sheets("DS"): r = sh.Cells(65500, "C").End(xlUp).Row If Application.CountIf(sh.Range("C1:C" & r), ref) Then sh.Cells(RO, "O") = "foo" Else sh.Cells(RO, "O") = "bar" End If End Sub
Set sh = Sheets("DS"): r = sh.Cells(65500, "C").End(xlUp).Row If Application.CountIf(sh.Range("C1:C" & r), ref) Then Cells(RO, 15) = "foo" Else Cells(RO, 15) = "bar" End If
Men eksistere Ref i kolone C skriver den alligevel bar.
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.
Ny bruger
Nybegynder
Opret
Preview
