21. januar 2013 - 15:14Der er
4 kommentarer og 1 løsning
Find og indsæt i ledig celle
Hej.
Jeg har 2 ark, Sheet 1 og Sheet 2.
I Sheet 1 vælges der i mellem action og no action i celle C8:C58. Hvis der vælges Action skal teksten i celle B8:B58 dvs til venstre for det valgte, flyttes over i Sheet 2 i den første ledige celle fra B10.B60. Det skal være således at der ikke opstår tomme celler i Sheet 2. Dvs. hvis det f.eks. kun er celle C13 og C40 som der vælges action i, så skal teksten til venstre for disse placeres i Sheet 2 celle B10 og B11.
Jeg har indtil videre kun kunne lave en hvis formel, som ser således ud: =IF('Data Collection'!C8=BAD,'Data Collection'!B8,"")
Denne refererer dog kun til én celle, hvilket betyder at jeg får blanke celler. BAD er navnet på en celler hvor der står Action i.
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C8:C58")) Is Nothing Then Worksheets("Sheet2").Range("B10:B60").ClearContents y = 10 For x = 8 To 58 If Cells(x, 3) = "Action" Then z = Cells(x, 2) Sheets("Sheet2").Cells(y, 2) = z y = y + 1 End If Next End If End Sub
I sheet 2 vælger man i celle D10:D39 og E10:E39 et tal fra 1-10. Hvis begge tal er 5 eller derover skal teksten i celle B10:B39 (dvs. til venstre for igen) og teksten i celle C10:C39 flyttes over i sheet3 i hhv. celle C10:C23 og D10:D23.
Dvs. samme problæem, bare endu en faktor og 2 tekster der skal flyttes.
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.
