Dva makroja bi rad združil v enega

[tic]

in sicer tegale:

Koda: Izberi vse

Sub Nov_račun()
'
' Nov_račun Makro
' Makro ustvaril: Uporabnik, dne 22.10.2007
'

'
    Range( _
        "C9,C10,C11,C12,C13,H3:O3,H4:O4,H5:O5,H6:O6,H7:O7,H8:O8,C16,B20:H49" _
        ).Select
    Range("B20").Activate
    Selection.ClearContents
    Range("C8").Select
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
End Sub

in tegale

Koda: Izberi vse

Private Sub Workbook_Open()

    Application.DisplayAlerts = False
        Worksheets(1).Cells(8, 3) = Worksheets(1).Cells(8, 3) + 1
        ActiveWorkbook.SaveAs Filename:="C:\Obrt\Račun.xlt "
    Application.DisplayAlerts = True
   
End Sub

Ime makroja bi naj bil nov_račun

Verjetno je treba vzet kako vrstico stran al kak presledek ali narekovaj se žal ne spoznam na to da bi potem delal kot eden.
Vsak zase dela tako kot mora
LP
Tic

[admin]

Samo prekopirajte vrstice drugega makra pod prvi makro in to je to. Svetujem vam tudi, da za imena makrov ne uporabljate šumnikov.

Koda: Izberi vse

    Range( _
        "C9,C10,C11,C12,C13,H3:O3,H4:O4,H5:O5,H6:O6,H7:O7,H8:O8,C16,B20:H49" _
        ).Select
    Range("B20").Activate
    Selection.ClearContents
    Range("C8").Select
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44 

' in tako dalje ....

    Application.DisplayAlerts = False
        Worksheets(1).Cells(8, 3) = Worksheets(1).Cells(8, 3) + 1
        ActiveWorkbook.SaveAs Filename:="C:\Obrt\Račun.xlt "
    Application.DisplayAlerts = True 
End Sub

[kljuka13]

Mislim, da on želi, da se mu to izvede ob zagonu Excela torej morate prvi makro vnesti pred drugega.

[tic]

Hvala, stvar dela.Tako sem si zamislil in tudi vrstni red je pravi
LP
Tic