Új hozzászólás Aktív témák

• #19262 lomajpure csendes tag

  Új Válasz 2013-10-10 08:29:41 #19262

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lomajpure

  csendes tag

  Üdv!
  Lenne egy ilyen kódom:

  Private Sub CommandButton1_Click()
  Dim fd As FileDialog, SelFile
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  Set wb = ActiveWorkbook
  If fd.Show = -1 Then
  SelFile = fd.SelectedItems(1)
  Workbooks.Open Filename:=SelFile, ReadOnly:=True
  End If
  Set fd = Nothing
  Set wb1 = ActiveWorkbook
  wb1.Range("Z2").Copy wb.Range("F6")
  wb1.Close
  End Sub

  És fájl megnyitásnál kapok egy 438-as hibakódot.. Debug módban a "range" sorra hivatkozik, de nem értem a hibát..
  Előre is köszi a segítséget!!

Új hozzászólás Aktív témák