Makro Kapalı Dosyadan Veri alma

[arifcetin93]

Merhabalar,

asagıdaki kodumda Diğer_Not olarak göstermis oldugum yoldaki dosyanın acılmayarak verılerını getırmek ıcın nereyı duzeltmem gerekıyor ayrıca sıyah ıle koyulastırdıgım alanda da hata alıyorum herkese sımdıden cok tesekkurler


Sub Detay1()

Sheets("Detay ").Unprotect "2222"

Dim Sayfa1 As Worksheet
Dim Diğer_Not As Workbook
Dim Tablo As Range
Dim i As Long

Set Sayfa1 = Sheets("Detay")
Set Diğer_Not = Workbooks.Open("C:\Program Files (x86)\Raporlar\Dosyalarım\Diğer.xlsx", Password:="2222", ReadOnly:=True)
Set Tablo = Diğer_Not.Sheets("GenelNot").Range("A:A")


For i = 2 To Sayfa1.Range("A2").End(xlDown).Row
Sayfa1.Cells(i, 15) = Application.VLookup(Sayfa1.Cells(i, 4), Tablo, 1, 0)
Next

Set Sayfa1 = Nothing
Set Diğer_Not = Nothing
Set Tablo = Nothing

Sheets("Detay").Protect Password:="2222", AllowFiltering:=True

End Sub

 

[cems]

, AllowFiltering:=True kısmını silince calsıyorsa allow koşulunu incelemek gerekebilir

 

[arifcetin93]

Hocam Sheets("Detay").Protect Password:="2222", AllowFiltering:=True bu satırı sılınce tamamen hata vermıyor gerekıyorsa bunu kullanmam ama Set Diğer_Not = Workbooks.Open("C:\Program Files (x86)\Raporlar\Dosyalarım\Diğer.xlsx", Password:="2222", ReadOnly:=True) bu dosyayı yıne acıyor bunu acsın ıstemıyorum burasını nasıl duzeltebılırım dosyayı acmadan sonucu almayı

 

[Korhan Ayhan]

Merhaba,

Linkteki konular belki ilginizi çekebilir..

Kapalı Dosyadan Koşullu Veri Çekme

Değerli Forum üyeleri Açık kitap isimli çalışma kitabımın B sütununda yazılı olan TC kimlik numaralarını Kapalı kitapta bulup buradaki ilgili TC kimlik numaralarına ait tarihleri Açık kitaptaki TC kimlik numaralarının karşısına Tarih2 sütununa getirip, Tarih 1 ve Tarih 2 sütunlarındaki...

www.excel.web.tr

Ado ile Hücre değerlerine göre sonuç getirme

Merhaba, Eklediğim dosya da sayfa2 de örnek veriler var. Sayfa1 de ise yanına sonuç getirmeye çalıştığım değerler var. özetle ado ile düşeyara yapmak istiyorum ado ile döngü yapılabiliyormu veya selection.change ile çözüm bulabilirmiyim diye bir kaç zamandır araştırdım ama sonuç elde edemedim...

www.excel.web.tr

Farklı Dosyadan Arama Yapma-Aktarma,

Merhaba; Bir klasörüm içerisinde 2 adet excel dosyası bulunmaktadır. Biri kapalı diğeri ise açık durumda iken dosyada arama yapma ve kapalı dosyadaki bilgilerin açık olan sayfaya aktarmasını istiyorum. Nasıl yapılabilir. Dosya: Ara Aktar

www.excel.web.tr

 

[arifcetin93]

Merhaba,

Linkteki konular belki ilginizi çekebilir..

Kapalı Dosyadan Koşullu Veri Çekme

Değerli Forum üyeleri Açık kitap isimli çalışma kitabımın B sütununda yazılı olan TC kimlik numaralarını Kapalı kitapta bulup buradaki ilgili TC kimlik numaralarına ait tarihleri Açık kitaptaki TC kimlik numaralarının karşısına Tarih2 sütununa getirip, Tarih 1 ve Tarih 2 sütunlarındaki...

www.excel.web.tr

Ado ile Hücre değerlerine göre sonuç getirme

Merhaba, Eklediğim dosya da sayfa2 de örnek veriler var. Sayfa1 de ise yanına sonuç getirmeye çalıştığım değerler var. özetle ado ile düşeyara yapmak istiyorum ado ile döngü yapılabiliyormu veya selection.change ile çözüm bulabilirmiyim diye bir kaç zamandır araştırdım ama sonuç elde edemedim...

www.excel.web.tr

Farklı Dosyadan Arama Yapma-Aktarma,

Merhaba; Bir klasörüm içerisinde 2 adet excel dosyası bulunmaktadır. Biri kapalı diğeri ise açık durumda iken dosyada arama yapma ve kapalı dosyadaki bilgilerin açık olan sayfaya aktarmasını istiyorum. Nasıl yapılabilir. Dosya: Ara Aktar

www.excel.web.tr

Korhan Hocam dediginiz alanları inceledim fakat kapalı ibaresi göremedim acemiliğim icin özür dlerim öncelikle yabancı bi sitede asagıdaki ibareyi bulup ekledim sadee ekranda gıt gel yaparak getırdı bunu cozme sansımız varmı

Other_Notes.Close SaveChanges:=False

 

[Korhan Ayhan]

Verdiğiniz kod satırı açılmış dosyayı kaybetmeden kapatır. Yani sizin istediğiniz sonuç değildir. Çünkü siz dosyayı hiç açmadan bu işlemin olması konusunda talepte bulunmuşsunuz. Bende naçizane daha önce işlenen benzer konuları paylaştım. Konulardaki kodları inceleyerek kendi dosyanızı uyarlamak işi size kalmış.