Gentage tekst i den aktuelle celle i de næste 5-10 celler

Sub tst()
Dim x, y, t
If ActiveCell.Column < 7 Then Exit Sub
x = ActiveCell.Value: y = ActiveCell.Row
For t = ActiveCell.Column + 2 To 31 Step 2
Cells(y, t) = x
Next
End Sub

Perfekt
Tusind tak

Jeg har lige et lille tillægssørgsmål som jeg håber at kunne få lov til at presse ind :-)

Kan man lave en makro der indsætter "0"
i alle felter der ikke er tomme i området g:ae (igen kun i g, i, m, osv.)
Men denne gang skal der ikke tages højde for om man står i g eller i eller m.
Den skal bare indsætte 0 i alle felter der ikke allerede står noget i.
Denne makro skal køres i linierne 3-500


Og så lige en lille af-art af denne også:

Hvis c kolonnen IKKE er tom skal den indsætte 0 i alle de felter der ikke er tomme i området g:ae (igen kun i hjver anden cellle)
Denne makro skal køres i linierne 3-500

det vil jeg tro kikker på det efter spisetid ok !

Det lyder rigtig godt :-)

her er den første

Sub Nul()
Dim t, t2
For t = 3 To 500
For t2 = 7 To 31 Step 2
If Cells(t, t2) <> "" Then Cells(t, t2) = 0
Next
Next
End Sub

Sub cNul()
Dim t, t2
For t = 3 To 500
If Cells(t, 3) <> "" Then
For t2 = 7 To 31 Step 2
If Cells(t, t2) <> "" Then Cells(t, t2) = 0
Next
End If
Next
End Sub

Jeg kan ikke rigtig få den til at virke.
Den overskriver alle mine tal som står i de enkelte celler med 0
Den skal kun indsætte 0, hvis der IKKE står noget i cellen i forvejen

Da nogle af mine linier er låste, kan jeg rende ind i problem, hvis den ikke kan indsætte et 0 i disse linier.
Kan man sørge for at den bare fortsætter i de næste linier, hvis den får "en fejlmelding" ?

er det Nul eller cNul ?

jeg er kun kommet til nul
Jeg tester lige den anden med det samme

nå ok har nærlæst dit spørgsmål
det er lidt modstridende formuleret som jeg læser det :-)

Det beklager jeg. :-)
Er du med på hvad jeg mener nu eller skal jeg prøve at formulere spg. igen?

Sub Nul()
Dim t, t2
on error resume next
For t = 3 To 500
For t2 = 7 To 31 Step 2
If Cells(t, t2) = "" Then Cells(t, t2) = 0
Next
Next
End Sub

prøv lige om det er nok med denne error handling ellers sig til
indsætter kun 0 hvis cellen er tom i hver anden kolone G:AE

Sub cNul()
Dim t, t2
On Error Resume Next
For t = 3 To 500
If Cells(t, 3) <> "" Then
For t2 = 7 To 31 Step 2
If Cells(t, t2) = "" Then Cells(t, t2) = 0
Next
End If
Next
End Sub

indsætter kun 0 hvis kolonne C ikke er tom men cellen er tom i hver anden kolone G:AE

Nu virker det.
Det var lige det jeg skulle bruge.
Mange tak for hjælpen.

velbekom