Jeg tænkte ellers at hvis du udfyldte rækkerne med formler så kunne du snige det andet med ind.
En metode kan være at stedet du udfylder er blot en henvisning.
Eksempel: Hvis du har de rækker som indimellem skal være tomme i A1:C10 så kunne der hvor du udfylder være i K1:M10 og der hvor du sætter x er så A11, B11 og C11
Så formlen i A1 =hvis(A$11="x";"";K1)
Det ville gøre at du kan vælge om tallene skal vises, men selve udfyldningen er et andet sted.
Hej igen. Jeg ved ikke om jeg kan fortsætte her, eller jeg skal lave et nyt spørgsmål. Jeg har opgivet at rydde rækker uden VBA, så jeg har lavet en sådan, men den virker ikke. Sub RydLigeRækker() Dim rng As Range Dim i As Long Set rng = Range("B2:B40") ' Juster området efter behov For i = 2 To rng.Rows.Count Step 2 If Range("A40").Value = "x" Then rng.Cells(i).ClearContents End If Next i End Sub Er der nogen som vil hjælpe mig? Hvad gør jeg forkert? Ib
Hej Morten. Det forstår jeg ikke, for det er jo netop rækkerne B2 til B40 den skal slette. De ulige rækker er låste. Hvordan skal det så se ud? Har du et forslag? Ib
Du starter din løkke i B2:B40 og starter i anden række, altså B3, og tager så hver anden række.
Har lavet en ny kode, som starter med at tjekke A40 for: x Og hvis der er: x så slettes hver anden række i kolonne 2, med start i række 2 og slutter med 40
Sub RydLigeRækker2() Dim i As Integer If Range("A40").Value = "x" Then For i = 2 To 40 Step 2 Cells(i, 2).ClearContents Next i End If End Sub
Det ser rigtigt godt ud, men hvordan skal den se ud, hvis det er kolonne A til og med K. Er det For i = 1 To 40 step 2 Men så kan jeg ikke lige gennemskue hvordan man får de andre kolonner med. Ib
Sub RydLigeRækker3() Dim i As Integer If Range("A40").Value = "x" Then For i = 2 To 40 Step 2 Range(Cells(i, 1), Cells(i, 11)).ClearContents Next i End If End Sub
Det virker desværre ikke helt rigtig Morten. Jeg har sat koden ind i et modul, og derefter skal jeg ind og trykke på RUN i macros. Kan det laves så jeg ikke skal ind og køre RUN hver gang det skal køre. Det er rigtigt som du siger, at den sletter A40 også, men det er helt ok. ib
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.
Ny bruger
Nybegynder
Opret
Preview
