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
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.
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
