• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Açık Dosyaya 2 Kapalı Dosyadan Veri Arama/Aktarma,

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
Office 2016 Pro
Merhaba;

1.Kapalı Dosya,
Desktop\Rapor\Data\Ocak\01.01.2019.xls
Desktop\Rapor\Data\02.01.2019.xls
Desktop\Rapor\Data\03.01.2019.xls
2.Kapalı Dosya,
Desktop\Rapor\Siparis\Ocak2019.xlsx

Açık dosya
,
Desktop\Rapor\Test.xlsm

Siparis Kapalı Dosyasında,

A1= Malzeme No Sütunundaki değerleri " Siparis\Ocak Klasörünün içerisindeki "Ocak2019"dosyasında aramasını bulması durumunda,

Referans tarih - C
Sipariş - G
Türü - I
Tanım - L
Bölge - O
sütunlarına ait değerleri aktarmasını.

Data\Ocak\ ... dosyalarında ise,


A= Malzeme No
Sütunundaki değerleri
Data\Ocak klasörünün içerisindeki Tarih dosyasına göre A sütünunda aramasını ve bulması durumda B sütununda veri var ise,
Test sayfasında bulunan ilgili tarih sütununlarına "1" yazmasını yok ise " " boş bırakmasını istiyorum.



Umarım yapmak istediğimi aktarabilmişimdir. Siz değerli forum üyelerin desteklerini rica ediyorum. Şimdiden destekleriniz için teşekkür ederim. İyi Çalışmalar.
 

Ekli dosyalar

  • Rapor.rar
    730.2 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba Sn. @gicimi, ilk isteğiniz için bu kodları kullanabilirsiniz.

PHP:
Sub Emre()
    Dim i&, osma As Range, ac As Workbook, syf As Worksheet
    Application.ScreenUpdating = False
    Set ac = Workbooks.Open(ThisWorkbook.Path & "\Siparis\Ocak2019.XLSX")
    Set syf = ac.Worksheets(1)
    With ThisWorkbook.Worksheets(1)
        For i = 2 To .Range("A65536").End(3).Row
            Set osma = ac.Worksheets(1).Columns(8).Find(.Cells(i, 1).Value, , , 1)
            If Not osma Is Nothing Then
                .Cells(i, "AP").Value = syf.Range("C" & osma.Row).Value
                .Cells(i, "AQ").Value = syf.Range("G" & osma.Row).Value
                .Cells(i, "AR").Value = syf.Range("I" & osma.Row).Value
                .Cells(i, "AS").Value = syf.Range("L" & osma.Row).Value
                .Cells(i, "AT").Value = syf.Range("O" & osma.Row).Value
            End If
        Next i
    End With
    ac.Close False
    Application.ScreenUpdating = True
    Set syf = Nothing: Set ac = Nothing: Set evn = Nothing: i = Empty
End Sub
 

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
Office 2016 Pro
Sn @Admin teşekkür ederim. Müsait bir vaktinizde ikinci istek için yardımlarını rica ediyorum. Teşekkürler.
 
Üst Alt