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
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