Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
Dim j As Integer

    Sheets("name").Select
    Range("E9").Select
        Do While Not IsEmpty(ActiveCell.Value)
            ComboBox1.AddItem ActiveCell.Value
            ActiveCell.Offset(1, 0).Select
        Loop

    Call ResetFormOrther1
    Me.Image2.Picture = LoadPicture("D:\Store\image\images1.jpg")
    Sheets("Home").Select
    
End Sub

Code: Select all

Sub ShowForm_Orther()
Application.ScreenUpdating = False
    Call UnProtectAllSheets

    Sheets("name").Select
    Range("E8").Select
    Sheets("name").PivotTables("PivotTable1").PivotCache.Refresh

    Call Macro_ClearDataOrther
    Call Macro_TextDataOrther1

    frmOrther.Show
Application.ScreenUpdating = True
End Sub