Kapalı dosyadan veri almak

[bayteksan]

Bir buton yardımı ile,
Kitap2 dosyasından belirtilen hücreden itibaren ,Kitap1 dosyasına belirtilen hücresinden itibaren şartlı veri kopyalamak istiyorum.Eğer makrosu mümkünse... Teşekkür ediyorum.

 

[halit3]

Bir buton yardımı ile,
Kitap2 dosyasından belirtilen hücreden itibaren ,Kitap1 dosyasına belirtilen hücresinden itibaren şartlı veri kopyalamak istiyorum.Eğer makrosu mümkünse... Teşekkür ediyorum.

Kitap1.xls dosyasında bu kodu çalıştır.

Not :her iki dosyada aynı yerde olacak

Kod:

Sub kapalıverial()
a = MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo)
If a = vbNo Then
Exit Sub
End If
Kalasor = ThisWorkbook.Path
dosya = "Kitap2.xls"
SayfaAdi = "Exported data (Cerebrum)"
deg = "'" & Kalasor & "\" & "[" & dosya & "]" & SayfaAdi & "'!R"
sat = Application.ExecuteExcel4Macro("COUNTA('" & Kalasor & "\" & "[" & dosya & "]" & SayfaAdi & "'!C4)")
say = 20
For r = 4 To sat + 4
aranan = ExecuteExcel4Macro(deg & r & "C4")
If aranan > 0 Then
Cells(say, "e").Value = ExecuteExcel4Macro(deg & r & "C4")
say = say + 1
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[bayteksan]

İlginize teşekkür ediyorum Halit3.

 

[hdm24]

Teşekkürler.

 

[bayteksan]

Kapalı dosyadan veri almak (Yeni)

Halit3,
Üstadım Bu sabah dosyam ile ilgilendiğinizi görerek teşekkür ettim.Fakat kontrol etme imkanım olmadı.Şimdi denedim fakat sanırım ben istediğimi iyi ifade edemedim.Ekteki dosyada tekrar istediğimi ifade etmeye çalıştım.İlgilenirseniz teşekkür ederim.

 

[halit3]

Halit3,
Üstadım Bu sabah dosyam ile ilgilendiğinizi görerek teşekkür ettim.Fakat kontrol etme imkanım olmadı.Şimdi denedim fakat sanırım ben istediğimi iyi ifade edemedim.Ekteki dosyada tekrar istediğimi ifade etmeye çalıştım.İlgilenirseniz teşekkür ederim.

Kitap2.xls dosyanın içinde D1 hücresinde formül var ona dukunmayın kod o formüldeki değere bakarak işlem yapıyor.

 

[bayteksan]

Hocam çok teşekkür ediyorum.Tam istediğim gibi olmuş.Fakat bir sorun var.Ben sonradan Kitap2 adını verdiğim dosyayı veriyi alacağım zaman işyerinde serverdan alıyorum.Ve kaydediyorum.Sonra veriyi alıyorum.O formulu benim sayfamdan oraya macroyla kaydetmek mümkün olabilirmi ? Teşekkür edeim.

 

[halit3]

Hocam çok teşekkür ediyorum.Tam istediğim gibi olmuş.Fakat bir sorun var.Ben sonradan Kitap2 adını verdiğim dosyayı veriyi alacağım zaman işyerinde serverdan alıyorum.Ve kaydediyorum.Sonra veriyi alıyorum.O formulu benim sayfamdan oraya macroyla kaydetmek mümkün olabilirmi ? Teşekkür edeim.

Hücrenin içine gir kopyala yapıştır yada aynısını diğer dosyadaki aynı hücreye yaz

 

[halit3]

Bu kod Kitap1.xls Sayfa1 E18 hücresine Kitap2.xls dosyasının D sütunundaki son satırı veriyor dolayısıyla Kitap2 deki formüle gerek kalmadı

kod:

Sub kapalıverial()
a = MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo)
If a = vbNo Then
Exit Sub
End If
Kalasor = ThisWorkbook.Path
dosya = "Kitap2.xls"
SayfaAdi = "Exported data (Cerebrum)"
deg = "'" & Kalasor & "\" & "[" & dosya & "]" & SayfaAdi & "'!R"
yer = Kalasor & "\" & "[" & dosya & "]" & SayfaAdi
Cells(18, 5).Value = "=LOOKUP(2,1/('" & yer & "'!R[-14]C[-1]:R[65516]C[-1]<>""""),ROW('" & yer & "'!R[-14]C[-1]:R[65516]C[-1]))"
Cells(18, 5).Value = Cells(18, 5).Value
sat = Cells(18, 5).Value
If sat <= 0 Then Exit Sub
Say = 0
For r = 4 To sat
For j = r + 16 + Say To 65000
If Cells(j, "e").Value > 0 Then
Cells(j, "e").Value = ExecuteExcel4Macro(deg & r & "C4")
Exit For
Else
Say = Say + 1
End If
Next j
Next r
MsgBox "işlem tamam"
End Sub

 

[bayteksan]

Hocam sizleri yordum.Bende yoruldum.Kendi dosyama uyarlayamadım.Saat 1 e geliyor yarın iş var.Yarın bakarım artık

 

[bayteksan]

Tekrar Tşk.İyi geceler.

 

[bayteksan]

Kapalı dosyadan veri almak (Yeni)

Merhabalar,
Bu konu üzerinde fazla durdum.Sonunda Veri alınacak dosyamın A4 İLE H4 aralğı sütununu dosyama (A10 İLE H10 SÜTUNLARINA) aktararak sorunuma çözüm bulacağıma inanarak sizlere sunuyorum.Teşekkürler.

 

[halit3]

Merhabalar,
Bu konu üzerinde fazla durdum.Sonunda Veri alınacak dosyamın A4 İLE H4 aralğı sütununu dosyama (A10 İLE H10 SÜTUNLARINA) aktararak sorunuma çözüm bulacağıma inanarak sizlere sunuyorum.Teşekkürler.

Ben sizin sorunuza cevap vermiştim şimdi sorunuz başka bir boyut aldı.

Lütfen alıntı yazımı okuyun

Kapalı dosyalarla işlem yapmak bir hayli zahmetli ve zor bir iş alıntı yazımda örnek dosyanız kendi dosyanızla bire bir aynı olması vurgulanıyor.

Ben bundan sonra bu konuda yazmıyacağım size iyi çalışmalar diliyorum.

 

[bayteksan]

Üstadım,
Öncelikle iyi vakitler.Diliyorum.Biz burada yazanlar sizler gibi uzman olsaydık.Sizler gibi bilgilendirici olurduk.Bizler bazılarımız sıfırdan ;bazılarımız aşinayızdır;bazılarımız eksiklerimizi tamamlamak için buralardayız.Biz burada eğitim almıyoruz.Yapmak istediklerimizi çeşitli şekillerde anlatıp;kendi yapacaklarımıza entegre etmeye çalışıyoruz.Nihayetinde yazarak anlaşmaya çalışıyoruz.Konuşarak değil.Bizler belki bu işe sıfırdan başlıyor olabiliriz.Bizler burada bizlere yanıt veren kişilere minnetarız.Çünkü onlar bizlerden daha iyi biliyorlar.Dikkat ettiğim bir husus macrolarınızı yazıyorsunuz ;belki çözümüde veriyorsunuz.Belki macro satır sonlarına bu komutların ne yaptığını kısaca özet verseniz ,alıcılar neyin ne anlama geldiğini daha iyi anlayacaklardır.Neyse bu benim eleştiri ve görüşüm.Bir diğer husus sizin yanıtınız.Ben sizin bana en son yanıtladığınız dosyayı inceledim.Benim soruma cevap vermediğinizi gördüm.Kitap2 dosyasındaki verilerin Kitap1 dosyasına gelmediği açık.Sadece Kitap1 H20 hücresindeki verlerileri E20 sütununa kopyalıyor.Ben(yada bizler) burada her yaştan insanlar birşeyler öğrenmek amacında oldukları inancındayım.Cevap verip vermeme hakkına herkes gibi sizde sahipsiniz.İyi günler dileğimdir.İşiniz kolay gelsin.