Creare macro pt Excel

Salut!

Va cer ajutorul pentru crearea unui macro pt Excel. Ideea e urmatoarea: am o coloana cu x celule "pline". Vreau ca la "textul" (caracterele sau cum se numesc) ce se gaseste in fiecare celula, sa adaug (cu ajutorul comenzii alt+enter), un text predefinit (ex: subaru).

Nu am tangenta cu programarea, incerc doar sa-mi usurez munca. Am cunostiinte foarte limitate de programare si nu reusesc sa creez macroul asa cum trebuie...nu imi iese reiteratia asa cum ar trebui...
Sper ca din poza si din editarea macro-ului sa ma puteti ajuta

Multumesc frumos!

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/26/2010 by User
'
' Keyboard Shortcut: Ctrl+m
'
    Dim i As Single
    For i = 1 To 8 Step 1
       Range("D7").Select
    ActiveCell.FormulaR1C1 = "subaru"
    Cells(i, "a").Select     ------------------------------------------------ aici cred ca e buba
     ActiveCell.FormulaR1C1 = "sadf" & Chr(10) & "subaru" ---------- si aici
    With ActiveCell.Characters(Start:=1, Length:=11).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Next i
    End Sub

De ce te complici cu macro atunci cand poti si cu formule.
Folosesti o formula care sa concateneze subaru cu textul din celelalte celule (vezi atasament).
Trebuie doar sa pui alta masina in loc de subaru si formula face toata treaba.

Stiu de efectul formulei "concatenate", dar pentru tabele multe si lungi ca numar de celule imi e mult mai util sa aplic un macro.

 Sandstorm, on 26th June 2010, 20:45, said:

sal,
nu stiu daca e bine sa scriu aici, sunt nou si inca nu m-am obisnuit cu acest forum
m-ar interesa daca poti sa ma ajuti sa modific un macro; am macro facut, tastez litera "a" si intr-o anumita coloana afiseaza ora
Sub on_keypress_activate_a()

u = 7
While Cells(u, 6) <> ""
u = u + 1
Wend

Cells(u, 6) = Time

End Sub

cum pot schimba sa afiseze ora,zi,luna, an?
ms

 tibizar, on 30th June 2010, 15:41, said:

ciao!

modifica Cells(u, 6) = Time
cu
Cells(u, 6) = Time & " - " & Date

 gabirds, on 2nd July 2010, 21:10, said:

ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?

 gabirds, on 2nd July 2010, 21:10, said:

ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?

 gabirds, on 2nd July 2010, 21:10, said:

ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?