Çözüldü veri alma hatası

[ibrahim858]

Private Sub CommandButton1_Click()

'veri alma
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "excel 2007-13", ".xlsx;.xlsm;.xlsa;.xls"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "lütfen veri çekmek istediğiniz dosyayı seçiniz"
Exit Sub
End If

kopya = InputBox("kopyalamak istediğiniz hücre aralığını yazınız", Default * "a1")
yapiştir = InputBox("kopyalamak istediğiniz hücre seçiniz", Default * "a1")
Application.Workbooks.Open.SelectedItems (1) '''''hata veriyor burası
Set kaynak = Application.ActiveWorkbook

'kaynak.sheets(" sayfa ismi yazılabilir ")range(kopya)copy
kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapiştir)
kaynak.Close False
Set kaynak = Nothing
MsgBox "VERİ ALINDI"

End With


End Sub

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ibrahim858]

ektedir

 

[ibrahim858]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

usdam yine hat veriyor

 

[Refaz]

Dosyanızda değiştirmemişsiniz dediğimi.
Değiştirdim çalışıyor.

 

[ibrahim858]

Dosyanızda değiştirmemişsiniz dediğimi.
Değiştirdim çalışıyor.

değiştirdim ustam olmadı

 

[Refaz]

Böyle deneyin ama dediğim gibi bende çalışıyor.
Birde kopya = InputBox("kopyalamak istediğiniz hücre aralığını yazınız", Default:="a1") böyle yamanız gerek ilgili yeri diğerinide zaten yanlış yazmışsınız.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yukardaki gibi yazarsanız inputbox çıkınca fare ilede hücreleri seçebilirsiniz manuel yazmadan ek bilgi olarak.

 

[Refaz]

Alttaki gibi deneyin birde.

Set kaynak = Workbooks.Open(.SelectedItems(1))


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ibrahim858]

teşekkürler elinize sağlık

 

[Refaz]

Rica ederim,kolay gelsin.