Navigation

   Hej Alle,

Jeg har tidligere haft held til at lave en interval-søgemaskine (Med lidt hjælp): Den fungere således at man indtaster et punkt (tal-værdi) Så finder Makrone alle de strækninger punktet måtte ligge imellem. 

Nu vil jeg så gerne have en søge maskine der går ind og finder en specifik tekst eller tal-værdi. Hvor efter den kopieres med hele tens række, sådan at man kan danne sig et overblik, hvis nu der er flere af den samme tekst forskellige steder i arket.

Neden for ses min gamle interval-søgemaskine.

Håber på lidt indspark. På forhånd tak.

Sub Opdater4()
rk = 10 ' Løsning hvor du selv ændrer i koden hvor der startes
Range("AP6:DD1000").Clear ' Tømmer intervalkopier før de nye skrives
x = Range("AP4"):  stk = Cells(65536, "Z").End(xlUp).Row
For Each c In Range("AC10:AC" & stk)
If x >= c And x <= c.Offset(0, 1) Then
Range("A" & c.Row & ":AM" & c.Row).Copy Cells(rk, "AP")
Range("AP" & rk & ":BD" & rk).Interior.ColorIndex = 35 ' blå baggrund
End If
If x <= c And x >= c.Offset(0, 1) Then
Range("A" & c.Row & ":AM" & c.Row).Copy Cells(rk, "AP")
Range("AP" & rk & ":BD" & rk).Interior.ColorIndex = 35 ' blå baggrund
End If
rk = Cells(65536, "AQ").End(xlUp).Row + 1
If rk < 10 Then rk = 10
Next
End Sub

Navigation

Søg og kopi'er specifik tekst/værdi