[ Laki024 @ 11.06.2013. 09:05 ] @
Da li ima neko neku ideju kako da odradim da mi excell automatski uradi save na dva razlicita mesta.

Imam excell file ( oko 150MB file ) , zbog ubacene funkcije automatskog bojenja ( conditional formating ) celija na osnovu rezultata, file je ovako velik, za pracenje rezultata mi bojenje puno znaci, dok za upload u SQL ovo mi jako odmaze, jer je prevelik file za upload.

Zanima kako mogu da ga save-ujem tako da automatski odradi save na 2 razlicita mesta sa bojenjem ( conditional formating ) i bez bojenja celijaa, ( bez conditional formating ) kako bi se file smanjio na 10MB i samim tim bio optimalan za uplaud u SQL

[Ovu poruku je menjao Laki024 dana 11.06.2013. u 10:32 GMT+1]
[ Brodoplovac @ 11.06.2013. 12:03 ] @
Ovo ide u Workbook modul. Kada klikneš na Save, sačuvaće postojeći dokument pod njegovim imenom i sačuvaće dokument bez kondicionalnog formatiranja pod imenom "BEZ KOND FORMATIRANJA.xlsm" u istom folderu.

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strImeWorkbooka As String

Application.EnableEvents = False
ThisWorkbook.Saved = True
ThisWorkbook.Save


Dim i As Long
For i = 1 To Worksheets.Count
    Worksheets(i).Cells.FormatConditions.Delete
Next i

strImeWorkbooka = ThisWorkbook.FullName
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "BEZ KOND FORMATIRANJA.xlsm"

Workbooks.Open (strImeWorkbooka)

Application.EnableEvents = True
ThisWorkbook.Close

End Sub