how to define this method or property in form

**jay11** · 04-26-2010, 08:15 PM

hi
this code giving error msg " Run time error 438 Object doesn't support this property or method can some one pl help ather than that it create the new sheet with name on combobox but it doesn't copy the WB1 sheet"01"

Private Sub cmdOK_Click()
Dim wks As Worksheet
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Dim WBDest As Workbook
    Dim i As Long
    Dim NSname As Worksheet
   
   Set WBDest = Workbooks("Month.xls")
  Set WB1 = Workbooks.Open("C:\Day Data\Check  Data.xls")
 
    If Not ComboBox1.ListIndex = -1 Then
        
        WBDest.Worksheets.Add.Name = ComboBox1.Value
        'Set wks = ActiveSheet
        WB1.Sheets("01").Range("A1:N25").Copy
        'ThisWorkbook.Worksheets("Main").Range("A1:K31").Copy
        WBDest.Worksheet.Range("A1:K31").Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths
        ActiveSheet.Paste
        ActiveSheet.Range("A3").Value = ComboBox1.Value
        Unload Me
    Else
        Unload Me
        MsgBox "Pick a sheet!", 0, vbNullString
    End If
End Sub

**davesexcel** · 04-26-2010, 08:19 PM

It is Hard to duplicate the problem without the workbook.....

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

Doing this will ensure you get the result you need!

**jay11** · 04-26-2010, 09:59 PM

hi
i am giving the credit for this code to this forum.in some anther thread they get their solution.and i am using their form which is very similar to my requirement. here is my thing
i have two WB one is month.xls which update daily and at the end of the day i save the data in WB At C:\data\Daily Data.xls manual.instead of doing manually i try to learning some and by help from guru like u try to do some automation. to add button to copy the sheet and paste the data in new sheet in WB Daily Data here i atteching the WB which sheet "01" i want to copy the code work till creating new work sheet in WB and name as in combo box value bu it not copy the data.
i hope u will help me
thanks