excel'e başka bir excel'den veri çekmek

[emrebengul]

merhaba
Excel'de makro ile veri çekmek istiyorum. Örneğin Masaüstümde bir excel dosyası var commandbutona tıkladığımda yüklemek istediğim veriyi çalışma sayfama alsın. Destek olur musunuz?

 

[emrebengul]

Merhaba
çok kod denedim fakat bir türlü yapamadım üstadlar. excel sayfasını aynı sayfada açmıyor farklı sayda açıyor.
Desteğiniz için teşekkür ederim.

 

[Necdet]

Merhaba,
Veri çekeceğiniz dosyayı paylaşırsanız, dosya yapısını anlamış olur, size yardım edecek arkadaşımız.

 

[emrebengul]

Merhaba Necdet Bey
Telefondan yazıyorum kusura bakmayın ondan dolayı dosya atamadım. Ama herhangi bir Excel dosyası çekeceğim.

 

[emrebengul]

Merhaba Hayırlı sabahlar
Üstadlar Destek olabilecek var mı?

 

[emrebengul]

Private Sub CommandButton1_Click()
Dim ilk, ikinci As Workbook
Dim Baslik As String
Dim Hucre1, Hucre2 As Range
Set ilk = Application.ActiveWorkbook
Baslik = "https://dilaverajder.com"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set ikinci = Application.ActiveWorkbook
Set Hucre1 = Application.InputBox(prompt:= Title:=Baslik, Default:="A1:EA700", Type:=8)
ilk.Activate
Set Hucre2 = Application.InputBox(prompt:=, Title:=Baslik, Default:="A1:EA700", Type:=8)
Hucre1.Copy Hucre2
Hucre2.CurrentRegion.EntireColumn.AutoFit
ikinci.Close False
End If
End With
End Sub