• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü veri alma hatası

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ibrahim858

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
27 Ağu 2022
Mesajlar
44
Aldığı beğeni
5
Excel V
Office 2021 TR
Konuyu Başlatan
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
 
Tarihe göre sırala Oylara göre sırala
ektedir
 

Ekli dosyalar

  • ürün listesi1.xlsm
    19.5 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
Dosyanızda değiştirmemişsiniz dediğimi.
Değiştirdim çalışıyor.
 
Olumlu oy 0 Negatif oyla
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.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Yukardaki gibi yazarsanız inputbox çıkınca fare ilede hücreleri seçebilirsiniz manuel yazmadan ek bilgi olarak.
 
Olumlu oy 0 Negatif oyla
Alttaki gibi deneyin birde.

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


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst