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