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

• #22820 Delila_1 veterán detroitrw #22818

  Új Válasz 2014-08-11 10:34:51 #22820

  Ú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

  

  Delila_1

  veterán

  válasz detroitrw #22818 üzenetére

  Bemásolod a makrót a füzetedbe, és egy gombhoz rendeled.

  Sub Vagolapra()
  Dim valaszt As Integer, FN As String
  
  Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
  valaszt = Application.FileDialog(msoFileDialogOpen).Show
  If valaszt <> 0 Then
  FN = Application.FileDialog( _
  msoFileDialogOpen).SelectedItems(1)
  Workbooks.Open Filename:=FN
  Range("A1:D2000").Copy
  Else
  MsgBox "Nem választottál fájlt!", vbOKOnly + vbInformation
  Exit Sub
  End If
  End Sub

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