Keskustelu: Ohjelmointikysymykset: VB6: VBA:UserForm ongelma

Moi
Tarvihtoo appuu!
Osaan tehdä yksinkertaisen UserFormin jolla täytetään perustieto
sarakkeetuudelle riville, no problemo!
Ongelma on siinä että yksikään löytämäni malli ei osaa säilyttää
uudella rivillä muotoiluja ja kaavoja.
Eli UserFormin ei tarvitse kuin täyttää perus tiedotja ja säilyttää
muotoilu ja kaavat rivillä loppuun saakka.

A	B	    C	    D	    E	    F	    ----->	L
ID	Nimi	Huom:	Yht	    Pvm1	Pvm2	jne,,,,	Vk1
1	Matti
2	Teppo
3	Ilmari

Tuossa esimerkki taulukosssa on reunaviivaa ja kaavaa monessa kohtaa ja viikkoja kun
sattuu olemaan vuodessa. Esim. Sarakkeessa L on kaava ja toistuu joka kahdeksas sarake.

Alla oleva koodi toimii kuin junan vessa kun teen painikkeen lomakkeelle.

Sub New_Formatted_Row_With_Formula()
Dim rActive As Range

Set rActive = ActiveCell

Application.ScreenUpdating = False

With Cells(Rows.Count, "A").End(xlUp)
    .EntireRow.Copy
    With .Offset(1, 0).EntireRow
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteFormulas
        On Error Resume Next
            .SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End With

rActive.Select

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Olenhan mie noita laskevia lomakkeita tehny jokusen, mutta tuo VBA on
jääny vähemmälle.
Enklanttin taito kun on:"my name is Uuno, my english is very very bad".

Kiittäen ja kumartaen mie