[Çözüldü]  Kapalı excel dosyasından veri alma hatası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı excel dosyasından veri alma hatası

İleti#1)  nihatra » 22 Haz 2022 17:03

Kolay gelsin.
Kapalı excel dosyasından veri almak istiyorum ancak aşağıdaki kod hata veriyor. Nerde hata yapıyorum acaba
Private Sub CommandButton1_Click()
Dim w1 As Workbook
Dim s1 As Worksheet

Dim w2 As Workbook
Dim s2 As Worksheet

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("Sayfa1")

With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "C:\Excel"
.Title = "Dosya Seç"
.ButtonName = "Seç bi şey"
.Filters.Clear
.Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls"
.FilterIndex = 1

If .Show = 0 Then
Exit Sub
YGS = .SelectedItems(1)
End If
End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(YGS)
Set s2 = w2.Worksheets(1)
s1.Range("A5") = s2.Range("A1")
s1.Range("A6") = s2.Range("B1")

Application.ScreenUpdating = True
w2.Close
End Sub
Kullanıcı avatarı
nihatra
Site Dostu
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 23:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 55
İleti: 500
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Kapalı excel dosyasından veri alma hatası

İleti#2)  Ali ÖZ » 22 Haz 2022 17:29

Merhaba,

Bu alanı;

Kod: Tümünü seç
If .Show = 0 Then
Exit Sub
YGS = .SelectedItems(1)
End If


Bu şekilde değiştirin.

Kod: Tümünü seç
If .Show = 0 Then
Exit Sub
End If
YGS = .SelectedItems(1)


seçilen dosyayı if bloğundan çıkarmalısınız.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10327
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Kapalı excel dosyasından veri alma hatası

İleti#3)  nihatra » 22 Haz 2022 17:48

Teşekkürler.Allah razı olsun
Kullanıcı avatarı
nihatra
Site Dostu
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 23:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 55
İleti: 500
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe