[Yardım]  Run-time error '1004' Uyarısı

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

Run-time error '1004' Uyarısı

İleti#1)  software » 30 Nis 2020 14:39

Merhaba başka bir excel dosyasındaki veri ile açık olan excel dosyasındaki verileri karşılaştırmak istiyorum.
Sub data()
Dim mkod As Range
Dim alan As Range
Set mkod = Workbooks("PROGRAM").Sheets("Sheet1").Range(Range("a2"), Range("a2").End(xlDown))
If mkod.Count <> 0 Then
mkodc = mkod.Count
Workbooks.Open "C:\Users\......\Desktop\1.xls"
Set alan = Workbooks("1").Sheets("GENEL_006").Range(Range("b4"), Range("b4").End(xlDown))
İstediğim dosyayı açabiliyorum fakat bold olarak belirttiğim saırda run-time error"1004" uyarısı alıyorum. Ne yapmam gerekiyor ve nedenini anlamadım.
Kullanıcı avatarı
software
 
Kayıt: 10 Tem 2019 14:21
Meslek: öğrenci
Yaş: 23
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ADANA

Cevap: Run-time error '1004' Uyarısı

İleti#2)  şahin » 02 May 2020 13:45

Kalın olarak belirttiğini satır ve üstündeki satır yerine alttaki satırları ekleyip deneyin..

Kod: Tümünü seç
Set dosya = Workbooks.Open(ThisWorkbook.Path & "\1.xlsm")
Set alan = dosya.Sheets("GENEL_006").Range(Range("b4"), Range("b4").End(xlDown))
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 31
İleti: 1010
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Run-time error '1004' Uyarısı

İleti#3)  software » 12 May 2020 13:27

Merhaba dediğinizi denedim fakat aynı hata ile karşılaşıyorum. Olmadı. Başka bir fikriniz var mı ?
Kullanıcı avatarı
software
 
Kayıt: 10 Tem 2019 14:21
Meslek: öğrenci
Yaş: 23
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ADANA

Cevap: Run-time error '1004' Uyarısı

İleti#4)  Tarkan VURAL » 12 May 2020 19:03

Merhaba,
1004, nesne bulunamadı hatasıdır. GENEL_006 adında bir sayfa olmayabilir. Sayfa adı tam olarak bu şekilde olmayabilir. Başında sonunda boşluk olabilir. Kontrol ediniz.

Herşey doğru ise şu şekilde de deneyebilirsiniz :
Kod: Tümünü seç
Set dosya = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
Set alan = dosya.Sheets("GENEL_006").Range("b4:b" & dosya.Sheets("GENEL_006").Range("b4").End(xlDown).Row)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Run-time error '1004' Uyarısı

İleti#5)  software » 14 May 2020 12:26

Çok teşekkür ederim, olduğu gibi yazdığınız kodu aldım çalıştı. Fakat aradaki farkı anlamadım. Neden bu şekilde çalıştı?
Kullanıcı avatarı
software
 
Kayıt: 10 Tem 2019 14:21
Meslek: öğrenci
Yaş: 23
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: ADANA

Cevap: Run-time error '1004' Uyarısı

İleti#6)  Tarkan VURAL » 21 May 2020 13:13

İki kod bloğu arasındaki farklılıkları gözlemleyiniz. Düşüncelerinizi yazınız. :)


Son güncel tutan software, 21 May 2020 13:13.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 2 misafir

Bumerang - Yazarkafe