hej alle... godt nok længe siden jeg har været herinde ;-)
håber i stadig kan hjælpe når lokummet brænder ;-)
jeg er igång med et byggeprojektstyrings ark i excel og forventer lidt mere af mine ark end cheferne gør, men er løbet lidt på en opgave, så hvis nogen er god til makroer siger jeg tak for hjælpen:
Har Følgende som virker glimrende:
Sub SearchForString()
Dim LSearchRow As Integer
Dim LCopyToRow As Integer
On Error GoTo Err_Execute
'Start search in row 4
LSearchRow = 4
'Start copying data to row 2 in Ikke Afsluttet (row counter variable)
LCopyToRow = 2
While Len(Range("A" & CStr(LSearchRow)).Value) > 0
'If value in column H = "Nej", copy entire row to Ikke Afsluttet
If Range("H" & CStr(LSearchRow)).Value =
"Nej" Then
'Select row in Sheet1 to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy
'Paste row into Ikke Afsluttet in next row
Sheets("Ikke Afsluttet").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste
'Move counter to next row
LCopyToRow = LCopyToRow + 1
'Go back to Oversigt to continue searching
Sheets("Oversigt").Select
End If
LSearchRow = LSearchRow + 1
Wend
'Position on cell A3
Application.CutCopyMode = False
Range("A3").Select
MsgBox "All matching data has been copied."
Exit Sub
Err_Execute:
MsgBox "An error occurred."
End Sub
Jeg vil dog gerne kunne skifte søgeordet "nej", markeret med fed, ud med selvvalg ord fra en celle. men hvad skal jeg så skrive istedet for "nej"
På forhånd tak
--
Macbook Pro, ATV3, TimeCapsule 3TB, PS3....