Umetanje reda obavlja se komandom
Code:
c.EntireRow.Insert
gde je c neka ćelija
Međutim, na ovaj način umeće se red iznad ćelije c. Ako hoćeš ispod možeš da se pozicioniraš preko Offset metode na jednu ćeliju ispod posmatrane ćelije c i onda umetneš red
Code:
c.Offset(1).EntireRow.Insert
Dakle potprogram koji umeće jedan red
Code:
Sub UmetniRed(c As Range, strUslov As String)
' Ukoliko je u celiji c zadati tekst
' Umece red ispod
'
If c.Text = strUslov Then
c.Offset(1).EntireRow.Insert
End If
End Sub
E sad, potrebno je u petlji za zadate redove pozvati ovaj potrprogram, ali ne znam kako formiraš uslov. Nisam ni razumeo da li je 3:30 tekst ili vreme (numerički podatak)? Najbolje bi bilo da postaviš kratak primer početne situacije i šta hoćeš da postigneš pa da dovršimo ovaj makro.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?