novi red

[sakazvaka]

Dali postoji komanda u excelu koja automatski dodaje novi red prilikim svakog otvaranja radnog lista.tj da ne moram svaki put kad udjem u tabelu da dodam po jedan red pa ga onda upisem.

 

[Каспер]

Uz uslov da u tom radnom listu ispod tabele ne postoji neki dodatni tekst može se izvesti korišćenjem VBA koda

Sub Auto_Open()


    Dim red As Integer
    Dim kolona As Integer
    Dim I As Integer

    ActiveCell.SpecialCells(xlLastCell).Select
    red = ActiveCell.Row
    kolona = ActiveCell.Column
    
    For I = 1 To kolona
    
        Cells(red + 1, I).Select
    
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    Next I
    
    Cells(red + 1, 1).Select
    
    
End Sub

 

[sakazvaka]

Jos kad bi znao kako da to aktiviram

 

[Каспер]

Tools->Macro->Macros
U polju 'Macro name:' upiši Auto_Open
u polju 'Macros in:' izaberi This Workbook

klik na 'Create'

otvoriće ti se novi prozor u kome piše:

Sub Auto_Open()

End Sub

obriši ova dva reda pa onda Copy->Paste u taj prozor onaj kod (zeleni tekst)
snimi dokument izadji iz njega i ponovo ga otvori i videćeš rezultat.

Ukoliko ti više odgovara da taj red doda pre izlaska iz dokumenta onda Auto_Open zameni sa Auto_Close

VAŽNA NAPOMENA: pre nego sto pokušaš ovo napravi kopiju dokumenta za svaki slučaj.