00:00:3 Start Attribut e VB_Nam e = "Que sta_cart ella_di_ lavoro" 00020819 $ 0046} IFalse Creatabl Predecl BExpose Template`Deriv stomiz Sub Workbook _Open() pplicati on.OnTi @Now + alue("00 3"), " Attribut e VB_Nam e = "Fog lio1" x0{00 020820- |GlobaBl dCre atabl Pr@edecla plateDer Busto Channel Channel Program / Secondary verifica se il file stato elaborato *[[]* Vuoi visualizzare il file in modalit Monitor Osservatorio? Define message. Define buttons. MonitorOsservatorio Define title. Application.ScreenUpdating = False Columns.EntireColumn.Hidden = False recupera dalla prima riga looking at first 700 column headers Individuals 4+ Individuals 2+ (Combined) Individuals 3+ Germania Individuals 2+ Problema da gestire recupera dalla seconda riga looking at first 200 column headers Program / Secondary Program Start Time Channel Weekday Duration Level Application.ScreenUpdating = True IMPORTAZIONE DATI IN CORSO 1 TV INVERTITA CODICE PROGRAM SECONDARY DATA INIZIO RETE GIORNO SH. MEDIA DUR. 1 TV recupera l'ultima colonna e l'ultima riga valorizzata lastColumn = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column completoA elimina l'ultima riga con le medie *[[]* elimina gli "n.a." e li sostiuisce con "0,0" n.a.' forza a 1 il livello decodifica le reti] \\mediaset.it\cologno\osservatorio_progetti\MonitorOsservatorio\NEW_MonitorOsservatorio\' TABELLA DECODIFICA RETI.CSV read in data 1 line at a time Rete non trovata nella tabella di decodifica: Splitta il campo Program replica gli altri campi dd-mm-yyyy SPAIN MsgBox "START" Call sub_SPAGNA_DREG 'da sistemare se serve ancoraA applica filtro Errore! stato_file --> completo, Application.ScreenUpdating = False nasconde tutte le colonne tranne quelle da visualizzare completo modifica la font Arial mette bordo alle celle larghezza colonne formattazione condizionale 1="N" 1="S" 1="C_notte" 1="C_recap" centra le colonne resetta la posizione dello schermo blocca le prime due righe di intestazione Application.ScreenUpdating = True Set MySheetHandler = New SheetChangeHandler D.REG D.REG C_dreg dalle 2.30 alle 7.00 C_notte C_notte :PRESENTACION :PRESENTACION) :EN EL PROXIMO CAPITULO :EN CAPITULOS ANTERIORES :EN EL CAPITULO ANTERIOR :MARTES :MARTES) :DOMINGO :DOMINGO) :ESTA NOCHE :ESTA NOCHE) :MIERCOLES :MIERCOLES) ANA EN CUATRO :ESTA NOCHE EN CUATRO C_recap :ULTIMO CAPITULO :ULTIMOS CAPITULOS) :ULTIMOS CAPITULOS :NUEVA TEMPORADA :LUNES) :PREVIO :PREPARATE PARA LA DESPEDIDA :CONTINUACION C_recap Individuals 5+ TURCHIA Attribut e VB_Nam e = "Mon itorOsse Dim col _SHARE @Public ROGRAM_S ECONDARY1 tTA@RT_TIM &C@HANNEL 2W EEKDA CUR ATION MO_1T V_INVERT -INIZIO pVIRTUA lastCo lumn As Integer %MyShee tHandler Change Sub S rror GoT 1).Cells ue <> " nel" The l sub_RE CUPERA_C & 2) Program / Secon0daryI+A g, Style , Tit lp, Ctxt , Respon>s erifica se il fi ela8bor@ n= @ActiveBW.PUsed .Count Like "*[x[]*) uoi visu alizzar @in mod ' Define message esNo + v bQuestio aultB utton2 [MAI? v= Ne ma~'(App creenUpd s.E ntire .H`idden ecupera Ela prim a riga 00 'loo$ki heapders "In divid Ts <4+ Re@place( T,P "2" =vParSh 2+ (C Germani /&/&"& `rNex (" 1o i(cOD " O~=`y Start "@zV_ )(xlT oLef@ col_M O_SECOND ARY = "$ " & Spli t(Cells( , lastCo lumn + 4 ).Addres X)(1) DATA! 5"MINIZIO !O6"ORETE &GIORN 'SHAR"O9 "'DUR 1TV_VIRTHUAL 3CODI bEnd @If ActiveS heet. .s.Coun (xlT0oLef@ on.Scree Public sub_MA Error Go To eA FORM_MES SAGGI.Sh el1.Cap KIMPORTA tNE ` N CORSO" DoEvenLts B& 2). Value PROGRA SH. M cupera l 'ultima `{onna eG riga val orizzata rRowC IIrUsedBI.y` lLAYO UT("comp leto"bn'eplimi@ on le meDdi EEKDAY _Like " *[[]*" T @Entire` i "n.a." i sosti uisce sht As Works Varia F@MEach book6. epla@ whaHt:= rt, Sear chOrder: =xlBy MatchCasxe:= %'for za a 1 i l liv $LEVEL decodifi c ompleto, /tutt lon@ne tra Evis@ualizz Columnsd(R 4,0 "$" 6CODI )!-dea la fxont#S With6 pArial 'me!. bordo ers(xl Diagonal = xlxNon Uxp). EpdgeL inuous P&orI TintAn0dSha xlThniTQ Botto @1Ins Horizy DOH /O/O@ intAndSh ade = 0 .Weig xlThi dEnd Wi $ Sel ection.B orders(x lInsideH orizonta .Lin eStyl inuous "ColorIn(dex 'largh@ezza c >umns (Replace _MO_PR OGRAM, " Width SECONDA DATA ^INIZIO uformaPttaz vn$di ngeJwCHAN NELG) & " VIRTUAL s.Add T ype:=xlE@xpress ula1:= 1=""N""" (X'Count ).SetFir stPri (1).I ern b uto 4ic( opIfTru pFals A6#)B vGD15 0O/Br G!reca qocR>O!O! 'centrPData 0 To lastRow <8> " And _ "C@_dreg" #Exit Next S Applicat ion.Scre enUpd sub_S PAGNA_NO TTE() dalle 2. _START_T IME & nD3 , 2)) >=x 3 <8= 6P _1TV_VIRpTUAL ottehBa1 MidD{=8 *RighE PROGRAM_ SECONDARfY itolo dBInStr Xue, " - 1`>1K :PRESE NTACION" &ITULO NTERIO u= ": DOMING d NOCH MIERCO ,UATR _eOqa! C_recapDq_iCaD NUEVA TEMPORAD PARATE LA DE SPEDI tTINU Source.Select gestisce il copia/incolla multiplo e la cancellazione multipla Selection.SpecialCells(xlCellTypeVisible).Select Source.Select Attribut e VB_Nam e = "She etChange Handler"D {FCFB3D2 A-A0FA-1 068-A738 -08002B3@371B5} |G lobal IFalse dCreatab Predecdla CE xpose mplateDe E'Op tion WithEve nts App vA VarHelp *(Sub (By@Val Sh 5O$bj TaPrget .C`olumn col_MO_1 TV_VIRTU ALE & 1) ell"s Address R Is N othingH SchedaPr odotto.T xtRicerc a@&Left(G PROGRAM_ SECONDAR (, 3@I E@CIf lWorkb ookBefor eSaveDlW IAmBoolea n, Cance M_MESSAG GI.C' el1.CaC ORNAMEN TI E VER IFICHE I N CORSO sub_REC UPERA_CO LONNE TP xOKA|= 8Tru` lass_Ini tialize( }/} +}So|ur0 creenUpd ~>= 1"{ )Titolo 'g estis copia/1O lla mult iplo e Spec#p> 2(xlq Ty@peVisi ch a`r v RTUALE & a.Row). Comment Is Nothi ng Then Range (col_MO_@1TV_VI .@Delete E`nd If f aValue = "" z Next Appli cation.E nableEv creenUpd3 Option Explicit AGGIORNAMENTI E VERIFICHE IN CORSO CI SONO DELLE 1TV NON AGGANCIATE' incompleto' CI SONO DELLE 1TV NON AGGANCIATE FILE CORRETTO: SI PUO' PROCEDERE CON IL CARICAMENTO INTRANETA@ fermi ag gancio?" ' Defi mil m vbYes No + vbQ uestion aultBu puls>a / THhen "" z.Clea Or Le ) < 3CH .Open "SELECT SCHEDA_P RODOTTO. WHELRE v akeB &`f* c%D(o U (Withk Item (rs!@ =Count - 1rD= POLOGIAaE? AN4NOO PAE|SE CodOss rs.Mov F Use rForm_In`itial ~v0arPa vator pgett i\Mop db.accdb mnWidths 180;60 ;30;100, RBP"B1") "THE "p |nce"Qi Attribut e VB_Nam e = "FOR M_MESSAG GI" 0{C076 DCC3-C36 1-4C91-8 104-E253 263BC760 }{B9AF09 88-A427- 4DA0-A86 3-E0B841 5E9E00} d@Global oFals Creata PredeHcla BExpos 0Templ ateDeriv Customi Sub Us erForm_C@lick() nisce col_MO_PROGRAM col_MO_SECONDARY col_MO_DATA col_MO_INIZIO col_MO_RETE col_MO_GIORNO col_MO_SHARE col_MO_DUR% col_MO_1TV_VIRTUALEV lastColumn< lastRoww MySheetHandlerW SheetChangeHandler~ START errore Sheets Cells Value sub_RECUPERA_COLONNE Range Style Title Response MyString ActiveSheet%N Confermi aggancio?' Definisce il messaggio. Definisce i pulsanti. aggancio prodotto Definisce il titolo. L'utente sceglie il pulsante S SELECT SCHEDA_PRODOTTO.* FROM SCHEDA_PRODOTTO WHERE titolo Like SELECT SCHEDA_PRODOTTO.* FROM SCHEDA_PRODOTTO WHERE titolo Like \\mediaset.it\cologno\osservatorio_progetti\MonitorOsservatorio\' \db.accdb 180;60;30;100,100 Germany Eine France France Attribut e VB_Nam e = "Sch edaProdo@tto" 0{3EB 4C406-49 05-42E1- 9BF8-27B D8804841 9}{697E3 83B-200AA JA0-83 C7A3C4A2 SpacA oFalse reatabl Predecla Expose Template Deriv Cu@stomiz Dim db pAs D Record 5 Sub Ch eckBoxCo ntiene_C@lick() Titoli On Erro r GoTo C ommentEx FMsg, Style, Help, C txt, Res MySedRange Count0v vbYesNo vbQuestion vbDefaultButton2 MsgBox vbYesa? sub_MAIN Replacef Address varShare1 varShare2 varShare3 varShare4 Columnsp9 xlToLeftWY Column Split FORM_MESSAGGI Label1 Caption ScreenUpdating! sub_LAYOUT EntireRow Delete Worksheet rplcxY ActiveWorkbook Worksheets Replacement LookAt xlPart SearchOrder xlByRows MatchCase SearchFormat ReplaceFormat FileNum DataLine varPath varReteAgganciata varPosiz1| varPosiz2} varReteOriginale varReteDecodificata1 varPaese NumberFormat sub_SPAGNA_NOTTEhw sub_SPAGNA_RECAP AutoFilterMode AutoFilter Hide9z Stato_File*4 Hidden] SelectionZ FontU BordersC" xlDiagonalDownJ@ LineStyle xlNone xlDiagonalUp xlEdgeLeft xlContinuous[ ColorIndex TintAndShadeq Weight1 xlThin xlEdgeToph xlEdgeBottom xlEdgeRight%v xlInsideVerticaljM xlInsideHorizontal ColumnWidth FormatConditionsu xlExpressionR Formula1 SetFirstPriority4 Interior; PatternColorIndex xlAutomatic StopIfTrue HorizontalAlignmentS@ xlCenter Color2F Reference Scroll ActiveWindow FreezePanesMz Auto_OpenV sub_SPAGNA_DREG_dismessoyw varStart Offset varProgram_DREG varRete_DREGQ varData_DREG varHI_DREG Right varTitolo App_SheetSelectionChange+ Target CommentHs SchedaProdottos TxtRicerca App_WorkbookBeforeSave Workbookk SaveAsUI Cancel varMessaggiom6 EnableEvents InStrRev Class_Initializen App_SheetChangeNH SourceG varComment varTitoloComment AddComment Recordset CheckBoxContiene_Click ListBoxTitoli_Click{) CommentExiste? ActiveCell ListBoxTitoli List* ListIndex Shape TextFrame AutoSize! TxtRicerca_Change Clear Visible CheckBoxContiene OpenRecordset AddItem UCase5 Titolo ListCount6 TIPOLOGIA GENERE PAESE CodOss MoveNextL! UserForm_Initialize5c OpenDatabase ColumnWidths varRice Excel Win16 Win32 Win64x VBAProject stdole Office MSFormsC Questa_cartella_di_lavoro _Evaluate Workbook_Open Application OnTimeT TimeValue Foglio1 MonitorOsservatorioc col_SHARE col_PROGRAM_SECONDARY3 col_DATEPJ col_START_TIMEJE col_CHANNEL col_WEEKDAY col_DURATION col_LEVEL col_MO_1TV_INVERTITA col_MO_CODICE rcaTitolo UserForm_Click Class SheetSelectionChange3 WorkbookBeforeSave, Initialize SheetChange _Defaultj roject \G{00020 0046}# 2.0#0#C: \Windows \System3 e2.tlb #OLE Aut omation EOffic 8D04C-5B FA-101B- m Files\@Common icrosoft Shared\ OFFICE16 \MSO.DLL M 16.0 Lib0rary MSForm 2EE1-E08"F 2608C4D0 SINDO SFM260L'B AHq00}#0Bq#G F9D0A5 E4-61D3- 43D9-99E 0-40368B@28DD71 sers\MAU ROG~1\Ap pData\Lo cal\Temp0\VBE 7.eB /4AC9E1DDA -86E3-24 F4CDCECA`28}#c KAcce ss d@!bas e engineE ta_carte lla_di_l avoroG Foglio1G Mon@itorOs Vvja heetChan geHandle Scheda FORM_ME SSAGGIG VBAProject Questa_cartella_di_lavoro Foglio1 MonitorOsservatorio SheetChangeHandler SchedaProdotto FORM_MESSAGGI ato_File Target SaveAsUI Cancel Source" Tahoma TxtRicerca Tahoma RICERCA "CONTIENE" Tahoma Tahoma CheckBoxContiene ListBoxTitoliIEN Microsoft Forms 2.0 Form Embedded Object VBE7.DLL VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SchedaProdotto Caption = "Scheda prodotto" ClientHeight = 6750 ClientLeft = 45 ClientTop = 435 ClientWidth = 9825 StartUpPosition = 1 'CenterOwner TypeInfoVer = 5 Tahoma Label1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX VBAProject Questa_cartella_di_lavoro Foglio1 MonitorOsservatorio SheetChangeHandler SchedaProdotto FORM_MESSAGGI C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL Office C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE Excel C:\Windows\System32\stdole2.tlb stdole C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL C:\WINDOWS\system32\FM20.DLL MSForms C:\Users\MAUROG~1\AppData\Local\Temp\VBE\MSForms.exd C:\Program Files\Common Files\Microsoft Shared\OFFICE16\ACEDAO.DLL Workbook Workbook_Open VBE7.DLL sub_SPAGNA_RECAP App_WorkbookBeforeSaveJ START sub_RECUPERA_COLONNE sub_MAIN sub_LAYOUT Auto_Open sub_SPAGNA_DREG_dismesso sub_SPAGNA_NOTTE Class$ VBInternal App_SheetSelectionChange Class_Initialize App_SheetChange Tahoma Microsoft Forms 2.0 Form Embedded Object VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FORM_MESSAGGI Caption = "MONITOR OSSERVATORIO" ClientHeight = 765 ClientLeft = 45 ClientTop = 375 ClientWidth = 4110 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 6 Questa_cartella_di_lavoro Foglio1 MonitorOsservatorio SheetChangeHandler SchedaProdotto FORM_MESSAGGI ID="{A4CFCA0A-FCD3-45BD-B981-A13C5B05404B}" Document=Questa_carP tella_di_lavoro/&H00000000 Document=Foglio1/&H00000000 Module=MonitorOsservatorio Class=SheetChangeHandler BaseClass=SchedaProdotto BaseClass=FORM_MESSAGGI Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C3C1D3129216921692169216" DPB="868496579AD95CDA5CDA5C" GC="494B595A5A5A5AA5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Questa_cartella_di_lavoro=0, 0, 0, 0, C Foglio1=0, 0, 0, 0, C MonitorOsservatorio=78, 78, 1313, 702, Z SheetChangeHandler=0, 0, 0, 0, C SchedaProdotto=0, 0, 0, 0, C, 26, 26, 1612, 701, C FORM_MESSAGGI=0, 0, 0, 0, C, 52, 52, 1638, 727, C