27. februar 2008 - 08:35Der er
4 kommentarer og 1 løsning
Flyt de farvede indførsler i XP og office2003
JEg har et regneark, hvor mange er fede og blå. De fede, blå skal flyttes over i et ark for sig selv, og jeg har forsøgt med søg og erstat: format blå. Kan godt markere alle de blå, og slette dem, men ikke flytte til nyt ark. Her er nogle få af dem, men uden formatering - hvis du hjælper kan de jo kopieres over i dit eget regneark. 18-09-07 500 Pernille 12-09-07 500 Rasmus 04-02-08 250 Saif 04-02-08 250 Sana 19-09-07 500 Sara Johanne 06-02-08 250 Sarah 10-10-07 500 Sarah 26-09-07 500 Sarah Aviaja 12-09-07 500 Sertac 30-01-08 250 Sidse 14-09-07 500 Sidsel 23-01-08 250 Sidsel 15-01-08 250 Sidsel 13-02-08 250 Signe 21-01-08 250 Silje
Prøv denne nmakro, men gør det i en kopi først :-)
Makroen kopierer alel data fra Ark1 til Ark2 og sletter derefter alle rækker i Ark2, hvor teksten er blå.
Sub SletBlaa() Sheets(1).UsedRange.Copy Sheets(2).Select ActiveSheet.Paste For Each c In Range("a1:a20").Cells If c.Font.ColorIndex = 5 Then c.EntireRow.Delete End If Next c End Sub
Lidt for sent, men nu poster jeg den alligevel. Aflæser farven i A1 og flytter tilsvarende rækker med formatet over i Ark 2
Sub flyt_markerede()
Farve = Range("A1").Interior.ColorIndex
For Each cell In Worksheets("Ark1").Range("A10:A1000") If cell.Font.Bold And _ cell.Interior.ColorIndex = Farve Then cell.EntireRow.Cut _ Worksheets("Ark2").Range("A" & cell.Row) End If Next cell
End Sub
Synes godt om
Slettet bruger
16. marts 2008 - 18:38#4
Kære jkrons og mrjh Tak for svar og tilgv at JEG læser dem så sent. Læg et svar, så får krons points. Hvordan jeg deler points ud til flere har jeg glemt fra gang til gang.
Synes godt om
Slettet bruger
18. juni 2008 - 16:34#5
ingen svar - jeg lukker
Synes godt om
Ny brugerNybegynder
Din løsning...
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.