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

• #16951 Delila_1 veterán picsu #16950

  Új Válasz 2013-02-28 10:38:16 #16951

  Ú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 picsu #16950 üzenetére

  Ha jól értem, egy könyvtárból kiválasztott fájl első lapjának A3:F3 tartományát akarod bemásolni az indító fájl A5:F5 celláiba.

  Sub mm()
  Application.DisplayAlerts = False
  Dim fldlg As FileDialog, utvonal As String
  Dim cel As String, forras As String
  Dim rv, oszlop As Integer
  
  cel = ActiveWindow.Caption
  utvonal = "E:\Eadat\" 'Itt add meg az induló könyvtár útvonalát
  
  Set fldlg = Application.FileDialog(msoFileDialogOpen)
  With fldlg
  .Title = "Megnyitás"
  .InitialFileName = utvonal
  .FilterIndex = 1 '*.xls, vagy *.xlsx
  End With
  
  rv = fldlg.Show
  
  If rv Then
  Workbooks.Open fldlg.SelectedItems(fldlg.FilterIndex)
  forras = ActiveWindow.Caption
  Workbooks(forras).Sheets(1).Range("A3:F6").Copy _
  Workbooks(cel).Sheets(1).Range("A5")
  End If
  Workbooks(forras).Close
  Application.DisplayAlerts = True
  End Sub

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