Interactive Excel Dashboard for Babri Air Travel Agency

Tajamal Hussain

AI Automation

Data Scraper

Data Visualizer

Excel VBA

Microsoft Excel

Travel & Tourism

Client Requirements & Expectations

👤Client Name: Hussnain Ahmed (Approached me on my Physical Office)

🏢 Agency: Babri Air Travel Agency

🎯 Objective:

To transform a Raw Data CSV file into a fully functional, interactive Excel Dashboard that enables:

Efficient data visualization and management.

Dynamic search and filtering capabilities.

Task or record tracking in a user-friendly interface.

Raw Data given from the Clinet

💡 Client Expectations:

Professional-grade deliverable suitable for internal use or client presentations.

Automation for key repetitive tasks using VBA.

Clear layout that any team member can understand and use without technical training.

A deliverable that supports scalability (i.e., easily adapted for future data sets).

Client Expectations

📊 3. Excel Dashboard Features

🎨 Dashboard Design Highlights:

Header Section: Project title, logo (if needed), and filter controls.

Dynamic Search Bar: Allowing users to type in search terms to filter data in real-time (using VBA).

Data Table Section: Auto-updated table reflecting filtered results from the CSV.

Task Management Panel:

Checkboxes or dropdowns for status (Pending/In Progress/Completed).

Columns for assigned staff, priority, or deadlines.

Summary Cards/KPIs: Top-left visual cards showing metrics like Total Bookings, Pending Flights, Canceled Bookings, etc.

Reset Button: Clear filters and return to full data view.

Navigation Buttons: Jump to raw data, help, or export sections.

💻 4. Sample VBA Code Snippets

🔍 Dynamic Search Filter

Private Sub txtSearch_Change()
    Dim ws As Worksheet
    Dim cell As Range
    Dim searchVal As String

    searchVal = LCase(Me.txtSearch.Value)
    Set ws = ThisWorkbook.Sheets("DataSheet")

    ws.Rows.Hidden = False

    If Len(searchVal) > 0 Then
        For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
            If InStr(1, LCase(cell.Value), searchVal) = 0 Then
                cell.EntireRow.Hidden = True
            End If
        Next cell
    End If
End Sub

✅ Task Status Dropdown (with Data Validation)

Use Excel's Data Validation:

Create a named range (e.g., StatusList with "Pending", "In Progress", "Completed").

Apply data validation to the “Status” column.

🔁 Refresh Button Code

Private Sub btnRefresh_Click()
    Me.txtSearch.Value = ""
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DataSheet")
    ws.Rows.Hidden = False
End Sub

Like this project