makro ile farklı excel dosyaları arası geçiş

[mervedemir1257]

Merhaba ben makro konusunda çok yeniyim. Bu sebeple bu forumu keşfedip size danışmak istedim. Benim A ve B isimli iki excel dosyam var. Ben B dosyasının içinden bazı verilerin A dosyasına gelmesini istiyorum. A excelindeki D13 hücresine B exceli 1 nolu çalışma sayfasından bir veri, D14 hücresine aynı bu şekilde devam edecek. Alt satıra geçtiğimde ise D14 hücresine B exceli sayfa 2 den veri çekecek şekilnde. Bunu makroda işlemi kaydederek yapıyorum aşağıdaki gibi
( Range("D13").Select
ActiveCell.FormulaR1C1 = "=[export.xlsm]GV_31deg.data!R226C2").

Ancak B dosyasında birden fazla çalışma sayfası var ve kod yazmayı bilmediğimden bu işlemi çoğaltamıyorum, hepsi için kayıtlı kodu sürdürürsem de sayfalarca uzunlukta kaydedilmiş kodum oluyor. Bunun bir kısa yolu var mıdır acaba?
Diğer bir sorum da ben VBA da kendimi geliştirmek istiyorum bana yol göstermeniz mümkün müdür, nereden başlasam acaba?

 

[Mdemir63]

Selamlar
Formumuza hoş geldiniz.
Yapmak istediğinizi; bilgilerinizin gerçek olmadığı örnek bir dosya ile manuel bir şekilde yaparak belirtirseniz daha çabuk yanıtlar alırsınız.
Altın üye olmadığınız için hazırlayacağınız örnek dosyayı dosya yükleme sitelerinden birine yükleyerek Linki burada paylaşabilirsiniz.

 

[mervedemir1257]

Hızlı dönüşünüz için çok teşekkür ederim. Aşağıdaki linke yükleme yaptım. A dosyasına B den veri çekiyoruz. Ancak bazı verileri.

İndir excel forum

Dosyayı indir excel forum

dosya.co

 

[Mdemir63]

Selamlar

İnceleyiniz

 

[mervedemir1257]

Hocam çok teşekkür ederim. Bir sorum daha olacaktı mümkün müdür acaba?
A exceli C sütununda yazan Sonuç 1, Sonuç 2 vs bunlar B excelindeki her bir çalışma sayfasının adı. Bunları da bu makronun içine eklesem, o isimleri de otomatik getirebiliyor mu?

 

[Mdemir63]

Hocam çok teşekkür ederim. Bir sorum daha olacaktı mümkün müdür acaba?
A exceli C sütununda yazan Sonuç 1, Sonuç 2 vs bunlar B excelindeki her bir çalışma sayfasının adı. Bunları da bu makronun içine eklesem, o isimleri de otomatik getirebiliyor mu?

Selamlar

kodlardaki ;
Application.DisplayAlerts=False den sonrasına

Range("C5") = "Sonuç 1"
Range("C6") = "Sonuç 2"
Range("C7") = "Sonuç 3"
Range("C8") = "Sonuç 4"

yapıştırıp deneyiniz

 

[mervedemir1257]

Hocam onu yaparsam Sadece bu isimleri yazmaz mı? Ben çalışma sayfası adını değiştirirsem oraya otomatik sayfanın adının gelmesini istiyorum

 

[Mdemir63]

Selamlar

İnceleyiniz

 

[mervedemir1257]

Hocam sizi de çok uğraştırdım ama malesef site açılmıyor 403 hatası veriyor

 

[Mdemir63]

Hocam sizi de çok uğraştırdım ama malesef site açılmıyor 403 hatası veriyor

Nasıl yani dosya yüklediğim site mi açılmıyor?
Ben şimdi denedim açılıyor dosyada iniyor

 

[mervedemir1257]

Nasıl yani dosya yüklediğim site mi açılmıyor?
Ben şimdi denedim açılıyor dosyada iniyor

Evet dısyayı indir sayfası geliyor indir dediğimde açılan sayfa ‘server error 403 forbidden’

 

[Mdemir63]

Selamlar

Deneyiniz

Dosyayı Tekrar yükledim indiremezseniz, aşağıdaki işlemleri yaparsınız

'Range("C5") = "Sonuç 1"
'Range("C6") = "Sonuç 2"
'Range("C7") = "Sonuç 3"
'Range("C8") = "Sonuç 4"

yukarıdaki kodların yerine; Aşağıdaki kodları yapıştırıp deneyiniz

Range("C5:J8").ClearContents
    Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xlsx"
      i = 5
            For Each ws In ActiveWorkbook.Sheets
                        Workbooks("A").Worksheets("Sayfa1").Cells(i, "C") = ws.Name
                        i = i + 1
             Next ws
    Windows("B.xlsx").Close

 

[mervedemir1257]

Teşekkür ederim açıldı yalnız şöyle oldu:
yukarıdaki kodları silip yerine sizin gönderdiklerinizi yapıştırdım. Denemek için Sonuç4 isimli sheet adını değiştirdim. Ancak komutlarda onun adı Sonuç 4 olarak kaldığından hata verdi.
Range("D8").Select
ActiveCell.FormulaR1C1 = "=[B.xlsx]Sonuç4!R2C4"

 

[Mdemir63]

Selamlar
Siz makro kaydet yöntemi ile yaptığınızdan
=[B.xlsx]Sonuç4!R2C4
kısmı
=[B.xlsx]Sonuç 4!R2C4
olarak değiştirmeniz gerekir

 

[mervedemir1257]

Hocam peki bunun bir yolu yok mu yani şöyle bir şey diyemiyor muyum örneğin active sheet de E3 ü kopyala, active sheet ten bir sonraki sheette E3 ü kopyala vs şeklinde.
Bir referans sheet yapsam ilk sheet olsa mesala ona i=1 olarak tanımlasam. Bir sonrakini tanımlamak için i=i+1 desem sizin yaptığınız gibi. çok karışık anlattım farkındayım ama bilmediğim için mazur görün lütfen

 

[Mdemir63]

Selamlar
B adlı çalışma kitabı içindeki sayfa isimlerini değiştirerek deneyiniz.
Özür dilerim. Aşağıdaki linkden indirebilirsiniz.

İndir

 

[mervedemir1257]

Hocam malesef altın üyeliğim yok

 

[Mdemir63]

Selamlar
bir önceki mesajımı güncelledim

 

[mervedemir1257]

çok çok teşekkür ederim. Sayenizde hem işimi, hallettim hem de yeni birçok komut öğrendim. Minnettarım.

 

[Mdemir63]

çok çok teşekkür ederim. Sayenizde hem işimi, hallettim hem de yeni birçok komut öğrendim. Minnettarım.

Rica ederim.
İyi çalışmalar