Macro

[jolly01]

Ik wil met een macro de blauwe cellen in regel 1 W1, AQ1, BK1, CE1, CY1 enz plakken in de regel waarop ik klik.
Dus als ik ergens klik in regel 44, dan wil met de macro dat de blauwe cellen in regel 1 worden geplakt in respectievelijk de cellen W44, AQ44, BK44, CE44, CY44 enz.

Iemand een idee hoe dit werkt met een macro?

 

[Cobbe]

Zet deze achter uw werkblad:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    rij = ActiveCell.Row
        For kol = 23 To 243 Step 20
            Cells(rij, kol) = Cells(1, kol)
    Next
End Sub

Succes Cobbe

 

[jolly01]

Ik kan de macro niet terugvinden.

Volgens mij heb ik jouw macro in de verkeerde omgeving geplakt.
Deze is in het eerste tabblad geplakt. Zie screendump.
Kun je aangeven waar precies ik de macro moet plakken?

 

[Cobbe]

Als je de bewerking in Blad1 wil doen staat de code juist.
Als je nu in eender welke rij in een cel dubbelklikt, worden daar de gegevens uit rij 1 geplaatst, uit de opgegeven cellen.

Succes, Cobbe

 

[jolly01]

Bedankt voor je input, ik heb de code inmiddels iets veranderd en de macro aan een knop toegevoegd in plaats van te dubbelklikken.

Sub maand_plak()
    rij = ActiveCell.Row
        For kol = 23 To 149 Step 18
            Cells(rij, kol) = Cells(435, kol)
        Next
    End Sub

Nou wil ik in regel 435 ook nog een tweede bereik toevoegen aan maand_plak, namelijk

For kol = 161 To 197 Step 12

Hoe voeg ik het tweede bereik toe aan de macro?

 

[Roncancio]

Sub maand_plak()
    rij = ActiveCell.Row
        For kol = 23 To 149 Step 18
            Cells(rij, kol) = Cells(435, kol)
        Next
        For kol = 161 To 197 Step 12
            ' Je code
        Next
    End Sub

Met vriendelijke groet,


Roncancio

 

[jolly01]

Om de een of andere reden pakt de code alleen het eerste bereik

 

[Roncancio]

Ik neem aan dat je op de plek waar ik 'je code schreef, je een macrocode hebt geplaatst.
Deze zou namelijk gewoon gevonden moeten worden.

Met vriendelijke groet,


Roncancio

 

[jolly01]

De macro werkt prima voor het eerste bereik, nu is er in de code het tweede bereik toegevoegd.
Welke code zou op die plek moeten staan dan?

 

[Roncancio]

Even voor mijn beeldvorming: Wat zou er in het 2e bereik moeten staan?

Met vriendelijke groet,


Roncancio

 

[jolly01]

De cellen die vallen in het bereik:

For kol = 161 To 197 Step 12

Dus de cellen FE435, FQ435, GC435 enz

 

[Roncancio]

Volgens mij bedoel je het zo:

Sub maand_plak()
rij = ActiveCell.Row
For kol = 23 To 149 Step 18
    Cells(rij, kol) = Cells(435, kol)
    If kol = 149 Then iStap = 12
Next
For kol = 161 To 197 Step 12
    Cells(rij, kol) = Cells(435, kol)
Next
End Sub

Met vriendelijke groet,


Roncancio

 

[jolly01]

Dat is hem inderdaad.

Cells(rij, kol) = Cells(435, kol)

Bovenstaande had ik eraan toe moeten voegen.

Bedankt mensen, weer een klein stapje verder in VBA:thumb: