CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

kold6000 Nybegynder

18. november 2007 - 13:17 Der er 5 kommentarer og
2 løsninger

kopiere kolonne c til d (når nogle celler er skrivebeskyttet)

Jeg har et ark men farlig masse tal i.
Der står f.esk. noget i området c5-c500.

Dette kunne jeg godt tænke mig at få kopieret over i kolonne D.
Men da jeg har skrivebeskyttet nogle af cellerne i kol c OG d pga formler mm, giver det mig problemer.

Kan man få excel til at kopiere alle celler i kol c til kol d linjerne 5-500, på nær dem som er skrivebeskyttet.

Synes godt om

word-hajen Nybegynder

18. november 2007 - 13:31 #1

Sub KopierOgFlyt()
Dim objCopy As Range
Dim i As Integer

Set objCopy = ActiveSheet.Range("C5:C500")

For i = 1 To objCopy.Cells.Count
If objCopy.Cells(i).Locked <> True Then
objCopy.Cells(i).Copy Destination:=objCopy.Cells(i).Offset(, 1)
End If
Next i

End Sub

Synes godt om

kold6000 Nybegynder

18. november 2007 - 14:46 #2

jeg kan desværre ikke få den til at virke.
Lige så snart jeg beskytter arket går den kold.

Bemærk at der erskrivebekyttede celler i BÅDE kol C og D.
'
Den skriver
RUMTIME ERROR 1004
Application defined or objekt definederror

Synes godt om

word-hajen Nybegynder

18. november 2007 - 15:03 #3

Så ville det være rart at vide, hvor du får en runtime error.

If objCopy.Cells(i).Locked <> True and objCopy.Cells(i).Offset(,1).Locked <> True Then

Synes godt om

excelent Ekspert

18. november 2007 - 15:35 #4

Denne kopierer kun hvis celler i kolonne D ikke er skrivebeskyttet
uanset hvad kolonne C evt. er

Sub xCopy()
For Each c In Range("D5:D500")
If c.Locked = False Then c.Value = c.Offset(0, -1)
Next
End Sub

Synes godt om

kold6000 Nybegynder

18. november 2007 - 19:53 #5

ja, nu virker det.
Begge løsningsforslag virker.
Skal vi ikke dele pointene mellem jer.

Og så lige tak for hjælpen

Synes godt om

word-hajen Nybegynder

18. november 2007 - 20:22 #6

Velbekomme.

Synes godt om

excelent Ekspert

18. november 2007 - 21:12 #7

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Returnere korrekt værdi ved dubletter Af karina1971 i Excel	2	I går 13:13	I går 14:02
Excel åbner fil i kæmpe format Af Aske i Excel	8	02/11/202406:10	02/11/202411:56
Summere beløb pr. dato Af TTA i Excel	2	01/11/202412:37	01/11/202415:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel	10	30/10/202408:41	30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel	8	29/10/202411:50	29/10/202414:18

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS