[es] - zabraniti cuvanje sheet-a ili uvek par polja BLANK

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-3.sezampro.rs.

+2 Profil

zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{31.03.2011. u 16:14 - pre 159 meseci}

Kao sto i naslov kaze. Treba mi kod, gde ce biti zabranjeno cuvanje par sheet-ova osim polja koja sam ja postavio za unos. Naravno treba par polja da ostane korisno ali da uvek pri po kretanju tih par polja da budu BLANK. Nadam se da sam lepo objasnio!

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.wimax.verat.net.

Sajt: www.gowi.rs

+109 Profil

Re: zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{31.03.2011. u 19:08 - pre 159 meseci}

A da koristiš Template?

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-3.sezampro.rs.

+2 Profil

Re: zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{31.03.2011. u 21:50 - pre 159 meseci}

ne znam kako? Nisam bas profi za excell vise sam korisnik koji tezi ka tome?

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-3.sezampro.rs.

+2 Profil

Re: zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{03.04.2011. u 12:36 - pre 159 meseci}

nasao sam kod koji brise celiji pri otvaranju

Private Sub Workbook_Open()
With Sheets("Sheet1").Range("B1")
.Font.ColorIndex = 0
.ClearContents
.Font.Bold = False
End With
End Sub

ali nece da obrise merged cell samo singl cell

e sad pomocu moje upornosti nasao sam i kod koji brise merged cell ali samo ako se klikne na macro dugme da to uradi ali meni treba da bude pri otvaranju kako to?

Option Explicit

Sub ClearRange()

Dim DelRange As Range
Dim MergeRange() As String
Dim Cel As Range
Dim i As Long

'Change this range as needed.
Set DelRange = Range("A1:D50")

For Each Cel In DelRange
If Cel.MergeArea.Cells.Count > 1 Then
i = i + 1
ReDim Preserve MergeRange(1 To i)
MergeRange(i) = Cel.MergeArea.Address
Cel.MergeArea.UnMerge
End If
Next

DelRange.ClearContents

If i > 0 Then
For i = 1 To UBound(MergeRange)
Range(MergeRange(i)).Merge
Next i
End If

End Sub

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-3.sezampro.rs.

+2 Profil

Re: zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{03.04.2011. u 12:59 - pre 159 meseci}

resio sam problem i evo resenja ako dodje neki neuki kao ja!

Ovaj kod brise sva unlock polja!
Znaci pposto zakljucate sva polja koja ne zelite da brisete onda upisete ovaj kod i to je to!

Private Sub Workbook_Open()

With ActiveSheet
.Protect
Application.DisplayAlerts = False
On Error Resume Next

.Cells.Value = vbNullString

On Error GoTo 0
Application.DisplayAlerts = True
.Unprotect
End With

End Sub

Nema na cemu!!!

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-2.sezampro.rs.

+2 Profil

Re: zabraniti cuvanje sheet-a ili uvek par polja BLANK

^{03.04.2011. u 14:47 - pre 159 meseci}

ipak nisam resio, Bitna stvar je da ovaj kod brise samo active sheet, znaci sheet u kom se nalazite? Ali je ipak bitan pomak, Samo bih voleo pomoc da mi kazete kako da uvek brise sve sheetove?

Odgovor na temu