gtaing1

/* Using this directive is as easy as 1, 2, 3.
  1. Grab the Tableau API JavaScript library as well as this module.
    a. <script src="path/to/tableau-2.0.0.min.js"></script>
    b. <script src="path/to/angular-tableau.js"></script>
  2. Import the module into your app by adding 'angular-tableau' to your dependencies.
  3. Use the directive like this:
        <tableau-viz height="'500px'"
          url="path/to/tableau-dashboard"
          filters={'field1':['item1', 'item2'], 'dateField':{'min':startDate, 'max':endDate}}">
        </tableau-viz>

gtaing1

//CODE EXAMPLES: Making changes to a web page with jquery

//--------------------------------------------------------------------------------

//make all list items red

$('li').css('color', 'red');

//--------------------------------------------------------------------------------

gtaing1

Product Cards - Mobile 

<div class="celtra-ad-v3">
     <!-- externalCreativeId  = raw %ecid! -->
    <!-- externalPlacementId = raw %epid! -->
    <!-- externalSiteId      = raw %esid! -->
    <!-- externalLineItemId  = raw %eaid! -->
    <img src="data:image/png,celtra" style="display: none" onerror="
        (function(img) {
            var params = {'expandDirection':'undefined','preferredClickThroughWindow':'new','clickUrl':'%c','clickEvent':'advertiser','externalAdServer':'DBM','tagVersion':'4'};

gtaing1

Sub CompleteTrafficImport()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

'setting up strings and lookups
Dim strPath As String
Dim FileName As String
Dim SelectedFiles As String
Dim TWorkBK As Workbook

gtaing1

Sub DateValueConvert()
'
' DateValueConvert Macro
'
    Application.ScreenUpdating = False
    
    Dim lastrow As Long
    lastrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
         
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

gtaing1

Sub PrismaIDfromComments()

Dim strPath As String
Dim FileName As String
Dim CSheetName As String
CSheetName = "Campaign Spreadsheet"
Dim InnovidSheetName As String
InnovidSheetName = "Creative Direction | Media Plan"
Dim SLastrow As Long
SLastrow = ActiveSheet.Cells(Rows.Count, "S").End(xlUp).Row

gtaing1

Sub PrismaIDfromComments()

Dim strPath As String
Dim FileName As String
Dim CSheetName As String
CSheetName = "Campaign Spreadsheet"
Dim InnovidSheetName As String
InnovidSheetName = "Creative Direction | Media Plan"

strPath = "S:\SMGSHARE\Depts\IP_Shared\Starcom_TAAG\Clients"

gtaing1

Sub PrismaIDfromComments()

Dim strPath As String
Dim FileName As String
Dim CSheetName As String
CSheetName = "Campaign Spreadsheet"
Dim InnovidSheetName As String
InnovidSheetName = "Creative Direction | Media Plan"

strPath = "S:\SMGSHARE\Depts\IP_Shared\Starcom_TAAG\Clients"

gtaing1

Dim lastRow As Long
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    Range("A7").AutoFill Destination:=Range("A7:A" & lastRow), Type:=xlFillCopy

gtaing1

Dim lastRow As Long
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    Range("A7").AutoFill Destination:=Range("A7:A" & lastRow), Type:=xlFillCopy