[Yardım]  Sayfalar arası veri transferi

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

Sayfalar arası veri transferi

İleti#1)  snf124 » 12 Tem 2018 16:31

Merhabalar;

Excelde makro ile sayfalar arası veri aktarmak istiyorum. Ancak "Compile Error: Variable not defined" hatası alıyorum. Aktarmak istediğim hücrelerde formüller var ve ben sonuçları almak istiyorum. Örnek olarak "if " kısmında "Sheets("hsp").Cells(a, 20) = 1" buradaki "Cells(a, 20)" hücrelerinde formül sonucu olarak ya "#YOK" ya "1" yada "" sonuçlarından biri var. "if" kısmında başvuru hücresinde formül olduğundan mı yoksa "varyant" mı belirlemedim ondan mı anlayamadım. Makro aşağıdadır. Makroyu nasıl çalıştırabiliriz?


Kod: Tümünü seç
For a = 2 To 3000
If Sheets("hsp").Cells(a, 20) = 1 Then
Sheets("Tercihler").Range("C65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 8)
Sheets("Tercihler").Range("D65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 9)
Sheets("Tercihler").Range("E65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 14)
Sheets("Tercihler").Range("F65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 10)
Sheets("Tercihler").Range("G65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 11)
Sheets("Tercihler").Range("H65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 12)
Sheets("Tercihler").Range("I65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 15)
Sheets("Tercihler").Range("J65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 16)
Sheets("Tercihler").Range("K65536").End(3)(2, 1).Value = Sheets("hsp").Cells(a, 17)
End If
Next a



Resim
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 38
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

Cevap: Sayfalar arası veri transferi

İleti#2)  Ali ÖZ » 12 Tem 2018 18:26

Bu şekilde deneyin.

Kod: Tümünü seç
If Sheets("hsp").Cells(a, 20).value = 1 Then
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ş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Sayfalar arası veri transferi

İleti#3)  snf124 » 12 Tem 2018 18:58

Ali ÖZ yazdı:Bu şekilde deneyin.

Kod: Tümünü seç
If Sheets("hsp").Cells(a, 20).value = 1 Then


Malesef Ali Bey.
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 38
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 0 misafir

Bumerang - Yazarkafe