konumunu kendi seçtiğim excel i açıp içinden data almak

[abdudogan]

merhaba,

Masaüstümde "VERİAL" adlı bir excel im var. Bu excel de bir buton oluşturup butona tıkladığımda konumunu her seferinde kendimin seçeceği excel dosyasını açmak ve yine her seferinde açılan/açılacak bu excel den örneğin;

a1 verisini "VERİAL" adlı excel deki a1 hücresine yapıştırması,
a2 verisini "VERİAL" adlı excel deki a2 hücresine yapıştırması,
a3 verisini "VERİAL" adlı excel deki a2 hücresine yapıştırması,

esasen veri almasını istediğim birçok hücre var ama bu üç örnekten yola çıkarak kalanlarını tamamlamak istiyorum.

bilgisi olan arkadaşların yardımlarını rica ediyorum.

şimdiden çok teşekkürler.

 

[Ömer BARAN]

Merhaba.
Sorularınızı, cevabımın altındaki açıklamalar doğrultusunda hazırlayacağınız örnek belge ile desteklemeye özen gösteriniz.

Sanırım istediğiniz aşağıdaki gibi bir şey.

Sub DOSYA_AC()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel Dosyası", "*.xls* ", 1
        .Show
        yol = .SelectedItems.Item(1)
    End With
    If InStr(yol, ".xls") = 0 Then: Exit Sub
'BURADAN SONRASI VERİ ALMA KODLARI
Application.ScreenUpdating = False
Workbooks.Open yol, ReadOnly:=True
    degA1 = ActiveWorkbook.ActiveSheet.[A1].Value
    degA2 = ActiveWorkbook.ActiveSheet.[A2].Value
    degA3 = ActiveWorkbook.ActiveSheet.[A3].Value
    ActiveWorkbook.Close 0
    [A1] = degA1
    [A2] = degA2
    [A3] = degA3
Application.ScreenUpdating = True
End Sub