ibrahim858
Yeni Üye
- Katılım
- 27 Ağu 2022
- Mesajlar
- 44
- Aldığı beğeni
- 5
- Excel V
- Office 2021 TR
Konu Sahibi
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
'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
