dosya yoksa

[burhanyildirim11]

günaydın arkadaşlar ,


vba da farklı sayıda excel dosyalarından veri çekiyorum.

örnek :

4 tane farklı dosyam var , bunlarda işlemi yapsın ama 5. dosya varsa onuda işleme katsın

yoksa sadece 4 dosyanın verisini çeksin şeklinde vba kodunu nasıl yazabiliriz yardımcı olabilirmisiniz..

teşekkür ederim..

 

[burhanyildirim11]

günaydın arkadaşlar ,


vba da farklı sayıda excel dosyalarından veri çekiyorum.

örnek :

4 tane farklı dosyam var , bunlarda işlemi yapsın ama 5. dosya varsa onuda işleme katsın

yoksa sadece 4 dosyanın verisini çeksin şeklinde vba kodunu nasıl yazabiliriz yardımcı olabilirmisiniz..

teşekkür ederim..

yani tarzanca

if workbooks("5.xls")=5 then

filan diye bir şeyler yapmaya çalıştım olmadı .

hala arama tarama çalışmalarım devam ediyor

 

[ÖmerFaruk]

4 dosyam var dediğinizi kullandığınız kodlar nasıl anlıyor bilemiyorum.

Nasıl bir kod kullanıyorsunuz?
4 Dosya açık olan dosyalar mı?
4 Dosya, bir klasörün altındaki dosyalar mı?
5. dosya nerede?
5.dosyanın yapısı diğerleriyle aynı mı?
vs vs.

Aşırı şekilde bilinmezlik içeren konuda cevap alabilmeniz için sorununuzu tam ifade etmelisiniz.

 

[burhanyildirim11]

4 dosyam var dediğinizi kullandığınız kodlar nasıl anlıyor bilemiyorum.

Nasıl bir kod kullanıyorsunuz?
4 Dosya açık olan dosyalar mı?
4 Dosya, bir klasörün altındaki dosyalar mı?
5. dosya nerede?
5.dosyanın yapısı diğerleriyle aynı mı?
vs vs.

Aşırı şekilde bilinmezlik içeren konuda cevap alabilmeniz için sorununuzu tam ifade etmelisiniz.

ömer hocam ,


1 , 2 ,3 ,4 ,5 adet excel dosyam var

hepsini 1 e kopyalamak istiyorum
5. dosya varsa kopyalasın yoksa kopyalamasın .

aynı şekilde o aşamaya gelemedim ama

1 nolu dosyaya geldiğinde 5.dosyanın verileri yoksa
vlookup da da 5.dosyanın dataları varsa işlesin yoksa işlemesin tarzı bir olay

biraz karışık oldu ama arzu edilirse basit bir örnek dosya ilave edebilirim.

 

[burhanyildirim11]

4 dosyam var dediğinizi kullandığınız kodlar nasıl anlıyor bilemiyorum.

Nasıl bir kod kullanıyorsunuz?
4 Dosya açık olan dosyalar mı?
4 Dosya, bir klasörün altındaki dosyalar mı?
5. dosya nerede?
5.dosyanın yapısı diğerleriyle aynı mı?
vs vs.

Aşırı şekilde bilinmezlik içeren konuda cevap alabilmeniz için sorununuzu tam ifade etmelisiniz.

ömer hocam örnek dosya ilave ettim.

dosyalar açıkda olabilir kapalıda size nasıl kolay gelirse ,
dosyaların hepsi masa üstünde ,
dosyaların türü hepsi aynı


vba kodu olarak yardımcı olabılırsenız sevınırım

teşekkur ederim ...

BURHAN.xlsx dosyasını indir - download

BURHAN.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[ÖmerFaruk]

Anladığım şu,
2-3-4-varsa5. dosyalardan veriler alınıp 1.dosyaya yazılacak.
1.dosyanızda A1:A11 aralığında bir veriniz var.

Diğer dosyalardan verileri çıkıp B-C-D-varsaE sütunlarına yazacağız

Diğer dosylardan alınacak bu veriler, o dosyaların hangi sayfasında, hangi hücrelerinde? O dosyaların formatı hep aynıysa onlarla alakalı da örnek paylaşmanız daha kolay olurdu.

 

[Korhan Ayhan]

Dosyalarınızı bir klasöre alarak işlemi kolaylaştırabilirsiniz. Bu durumda aşağıdaki gibi bir yapı işinizi görecektir. Kendinize göre düzenlersiniz.

Option Explicit

Sub Test()
    Dim Yol As String, Dosya As String
   
    Yol = "C:\Belgelerim\"
   
    Dosya = Dir(Yol & "*.xls*")
   
    While Dosya <> ""
        If Dosya <> "Ana Dosya.xlsx" Then
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
        End If
        Dosya = Dir
    Wend
End Sub

 

[burhanyildirim11]

Anladığım şu,
2-3-4-varsa5. dosyalardan veriler alınıp 1.dosyaya yazılacak.
1.dosyanızda A1:A11 aralığında bir veriniz var.

Diğer dosyalardan verileri çıkıp B-C-D-varsaE sütunlarına yazacağız

Diğer dosylardan alınacak bu veriler, o dosyaların hangi sayfasında, hangi hücrelerinde? O dosyaların formatı hep aynıysa onlarla alakalı da örnek paylaşmanız daha kolay olurdu.

Dosyalarınızı bir klasöre alarak işlemi kolaylaştırabilirsiniz. Bu durumda aşağıdaki gibi bir yapı işinizi görecektir. Kendinize göre düzenlersiniz.

Option Explicit

Sub Test()
    Dim Yol As String
   
    Yol = "C:\Belgelerim\"
   
    Dosya = Dir(Yol & "*.xls*")
   
    While Dosya <> ""
        If Dosya <> "Ana Dosya.xlsx" Then
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
        End If
        Dosya = Dir
    Wend
End Sub

ilginiz için teşekkür ederim.

haftasonu deneyim.

iyi forumlar...

 

[burhanyildirim11]

Dosyalarınızı bir klasöre alarak işlemi kolaylaştırabilirsiniz. Bu durumda aşağıdaki gibi bir yapı işinizi görecektir. Kendinize göre düzenlersiniz.

Option Explicit

Sub Test()
    Dim Yol As String
   
    Yol = "C:\Belgelerim\"
   
    Dosya = Dir(Yol & "*.xls*")
   
    While Dosya <> ""
        If Dosya <> "Ana Dosya.xlsx" Then
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
            Rem Buraya yapmak istediğiniz işlemlere ait kodları yazınız...
        End If
        Dosya = Dir
    Wend
End Sub

korhan hocam değişken tanımlama hatası veriyor.

 

[Korhan Ayhan]

Evet "Dosya" değişkenini tanımlamayı atlamışım. Kodu revize ettim.

 

[burhanyildirim11]

Evet "Dosya" değişkenini tanımlamayı atlamışım. Kodu revize ettim.

tamam oldu

teşekkür ederim ,

iyi çalışmalar