how to extract data on workbook loaded in listbox userform?

[jns1087]

is there a way to extract data on workbook loaded in listbox userform? ive been struggling to do this. as display on listbox 2, i have 3 workbooks loaded. and i have a process button at the middle which i want to copy a range of cell data from the three workbooks at listbox2, and then paste data to my current workbook sheets. ive been doing this for my studying. thank you

 

[DanteAmor]

i want to copy a range of cell data from the three workbooks

Which range and from which sheet?

and then paste data to my current workbook sheets

Paste in which cell?

 

[jns1087]

Which range and from which sheet?


Paste in which cell?

on workbook AGEFEP, FEUS & REMDUS the data are in B10:K10
and then going to paste it to current workbook with sheet name AGEFEP, FEUS, REMDUS E53:L53

thanks,

 

[jns1087]

Which range and from which sheet?


Paste in which cell?

forgot to mention that each workbook FEUS,AGEFEP,REMDUS has a default Sheet1 for its data. and the current workbook has a sheetname based on loaded workbook (AGEFEP,FEUS,REMDUS)

 

[DanteAmor]

Try this.
Set commandbutton1, textbox1 for the name of your controls.

Private Sub CommandButton1_Click()
  Dim i As Long, tBox1 As String, sName As String
  Dim wb2 As Workbook
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  tBox1 = TextBox1.Value
  If tBox1 = "" Then
    MsgBox "Fill foder"
    Exit Sub
  End If
  If Right(tBox1, 1) <> "\" Then tBox1 = tBox1 & "\"
  If Dir(tBox1, vbDirectory) = "" Then
    MsgBox "Folder does not exists"
    Exit Sub
  End If
  
  With ListBox2
    For i = 0 To ListBox2.ListCount - 1
      If .Selected(i) Then
        sName = Left(.List(i), InStrRev(.List(i), ".") - 1)
        If Dir(tBox1 & .List(i)) <> "" Then
          Set wb2 = Workbooks.Open(tBox1 & .List(i))
          wb2.Sheets(1).Range("B10:K10").Copy
          ThisWorkbook.Sheets(sName).Range("E53").PasteSpecial xlPasteValues
          wb2.Close False
        End If
      End If
    Next
  End With
End Sub