How to update multiple worksheets thru spreadsheet in userform

[HYKE]

Hi there again EXCEL Guru's,

I have seen this code just last night and I am somewhat impressed at how a spreadsheet can be used to show worksheet data's on the userform. I am however wondering if it is possible to show and update mulitples worksheets in workbook using the spreadsheet in userform.

I am using this code but is somehow just showing me 1 worksheet. How should this be coded that when I select other worksheet thru the combobox that it will activate the selected worksheet and show it in the userform's spreadsheet.

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC10.Worksheet, ByVal Target As OWC10.Range)
ThisWorkbook.Worksheets("BPME").Range(Target.Address).Value = Target.Value
End Sub

this is my code for combobox

Private Sub Oft_Change()
    Select Case Oft
        Case "BPME"
        Worksheets("BPME").Select
        'Worksheets("CONSOLIDATED").Select
        Me.Spreadsheet1.Cells.Range("A1:AJ10").Value = ThisWorkbook.Worksheets("BPME").Range("A1:AJ10").Value
        
        Case "EXXON MOBIL"
        Worksheets("EXXONMOBIL").Select
        Me.Spreadsheet1.Cells.Range("A1:AJ10").Value = ThisWorkbook.Worksheets("EXXONMOBIL").Range("A1:AJ10").Value
        'Me.Spreadsheet1.Refresh
        Case "EMARAT"
        Worksheets("EMARAT").Select
    End Select
End Sub

Thanks again for your help guys.

 

[HYKE]

Hi Again,

I have been browsing the net for hours now and still did not get any positive result on what I desire to happen. I tried to code this, but still is not giving me the desired result.

Private Sub Oft_Change()
    Select Case Oft
        Case "BPME"
        Worksheets("BPME").Select
        'Worksheets("CONSOLIDATED").Select
        Me.Spreadsheet1.Sheets("Sheet1").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("BPME").Range("A1:AJ10").Value
        
        Case "EXXON MOBIL"
        Worksheets("EXXONMOBIL").Select
        Me.Spreadsheet1.Sheets("Sheet2").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("EXXONMOBIL").Range("A1:AJ10").Value
        Me.Spreadsheet1.Sheets("Sheet2").Refresh
        Case "EMARAT"
        Worksheets("EMARAT").Select
        Me.Spreadsheet1.Sheets("Sheet3").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("EMARAT").Range("A1:AJ10").Value
        Me.Spreadsheet1.Sheets("Sheet3").Refresh
    End Select
End Sub

Any help I will greatly appreciate.

Thanks,

HYKE

 

[HYKE]

Hi Again,

I somehow beginning to make the code work the way I want but I am stuck with error runtime 5 invalid procedure call or argument. could you guys help me on this.

Private Sub Oft_Change()
    Select Case Oft
        Case "BPME"
        Worksheets("BPME").Select
        'Worksheets("CONSOLIDATED").Select
        Me.Spreadsheet1.Sheets("Sheet1").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("BPME").Range("A1:AJ10").Value
        Me.Spreadsheet1.Sheets("Sheet1").Activate
        Me.Spreadsheet1.Sheets("Sheet1").Name = "BPME"
        Case "EXXON MOBIL"
        Worksheets("EXXONMOBIL").Select
        Me.Spreadsheet1.Sheets("Sheet2").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("EXXONMOBIL").Range("A1:AJ10").Value
        Me.Spreadsheet1.Sheets("Sheet2").Activate
        Me.Spreadsheet1.Sheets("Sheet2").Name = "EXXONMOBIL"
        Case "EMARAT"
        Worksheets("EMARAT").Select
        Me.Spreadsheet1.Sheets("Sheet3").Range("A1:AJ10").Value = ThisWorkbook.Worksheets("EMARAT").Range("A1:AJ10").Value
        Me.Spreadsheet1.Sheets("Sheet3").Activate
        Me.Spreadsheet1.Sheets("Sheet3").Name = "EMARAT"
    End Select
End Sub

 

[HYKE]

anyone, please...