[Yardım]  Exceldeki verilere göre bir dosyadan diğer dosyaya kopyalama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Exceldeki verilere göre bir dosyadan diğer dosyaya kopyalama

İleti#1)  melissa » 01 Kas 2019 10:03

Merhabalar. Öncelikle çok teşekkür ederim. Bu siteyi keşfettiğimden beri manüel olarak yaptığım bir çok işi kolaylaştırdınız. [op]
kod yazmayı bilmiyorum ancak sizden öğrendiklerimi kendime uygulamaya çalışıyorum ve artık internette diğer dillerde de aratmaya başladım. ve aşağıdaki kodu buldum. [komik]

Kod: Tümünü seç
Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub


ihtiyacım olan şey şudur. excel listesinde A sütununda FE123456 gibi alt alta ürün kodları bulunuyor. bir klasörde de bu ürünün fotoğrafları bulunuyor ancak o fotoğraflar FE123456 (1), FE123456 (2) olarak adlandırılmış.
ancak bu kodu uyguladığım zaman dosya içerisindeki jpeg.leri göremiyorum. Normalde kodu aldığım sitede jpeg, docx, xlxs uzantılı da dahil her şeyi görebiliyordu. ancak site İngilizce olduğu için biraz zorlandım. acaba bir iyileştirme yapabilir misiniz?

[TESEKKÜR]
Kullanıcı avatarı
melissa
Yeni Başlamış
 
Kayıt: 17 Ekm 2019 16:51
Meslek: tekstil
Yaş: 28
İleti: 15
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Exceldeki verilere göre bir dosyadan diğer dosyaya ko

İleti#2)  şahin » 01 Kas 2019 13:43

melissa yazdı:Merhabalar. Öncelikle çok teşekkür ederim. Bu siteyi keşfettiğimden beri manüel olarak yaptığım bir çok işi kolaylaştırdınız. [op]
kod yazmayı bilmiyorum ancak sizden öğrendiklerimi kendime uygulamaya çalışıyorum ve artık internette diğer dillerde de aratmaya başladım. ve aşağıdaki kodu buldum. [komik]

Kod: Tümünü seç
Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub


ihtiyacım olan şey şudur. excel listesinde A sütununda FE123456 gibi alt alta ürün kodları bulunuyor. bir klasörde de bu ürünün fotoğrafları bulunuyor ancak o fotoğraflar FE123456 (1), FE123456 (2) olarak adlandırılmış.
ancak bu kodu uyguladığım zaman dosya içerisindeki jpeg.leri göremiyorum. Normalde kodu aldığım sitede jpeg, docx, xlxs uzantılı da dahil her şeyi görebiliyordu. ancak site İngilizce olduğu için biraz zorlandım. acaba bir iyileştirme yapabilir misiniz?

[TESEKKÜR]



Kod: Tümünü seç
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)


bu şekilde değiştir

Set xDFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 824
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Exceldeki verilere göre bir dosyadan diğer dos

İleti#3)  melissa » 08 Kas 2019 17:08

MALESEF OLMADI

şahin yazdı:
melissa yazdı:Merhabalar. Öncelikle çok teşekkür ederim. Bu siteyi keşfettiğimden beri manüel olarak yaptığım bir çok işi kolaylaştırdınız. [op]
kod yazmayı bilmiyorum ancak sizden öğrendiklerimi kendime uygulamaya çalışıyorum ve artık internette diğer dillerde de aratmaya başladım. ve aşağıdaki kodu buldum. [komik]

Kod: Tümünü seç
Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub


ihtiyacım olan şey şudur. excel listesinde A sütununda FE123456 gibi alt alta ürün kodları bulunuyor. bir klasörde de bu ürünün fotoğrafları bulunuyor ancak o fotoğraflar FE123456 (1), FE123456 (2) olarak adlandırılmış.
ancak bu kodu uyguladığım zaman dosya içerisindeki jpeg.leri göremiyorum. Normalde kodu aldığım sitede jpeg, docx, xlxs uzantılı da dahil her şeyi görebiliyordu. ancak site İngilizce olduğu için biraz zorlandım. acaba bir iyileştirme yapabilir misiniz?

[TESEKKÜR]



Kod: Tümünü seç
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)


bu şekilde değiştir

Set xDFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Kullanıcı avatarı
melissa
Yeni Başlamış
 
Kayıt: 17 Ekm 2019 16:51
Meslek: tekstil
Yaş: 28
İleti: 15
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Cevap: Exceldeki verilere göre bir dosyadan diğer dos

İleti#4)  melissa » 08 Kas 2019 17:28

büyük harfle yazmak istememiştim [ilginc]
şahin yazdı:
melissa yazdı:Merhabalar. Öncelikle çok teşekkür ederim. Bu siteyi keşfettiğimden beri manüel olarak yaptığım bir çok işi kolaylaştırdınız. [op]
kod yazmayı bilmiyorum ancak sizden öğrendiklerimi kendime uygulamaya çalışıyorum ve artık internette diğer dillerde de aratmaya başladım. ve aşağıdaki kodu buldum. [komik]

Kod: Tümünü seç
Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub


ihtiyacım olan şey şudur. excel listesinde A sütununda FE123456 gibi alt alta ürün kodları bulunuyor. bir klasörde de bu ürünün fotoğrafları bulunuyor ancak o fotoğraflar FE123456 (1), FE123456 (2) olarak adlandırılmış.
ancak bu kodu uyguladığım zaman dosya içerisindeki jpeg.leri göremiyorum. Normalde kodu aldığım sitede jpeg, docx, xlxs uzantılı da dahil her şeyi görebiliyordu. ancak site İngilizce olduğu için biraz zorlandım. acaba bir iyileştirme yapabilir misiniz?

[TESEKKÜR]



Kod: Tümünü seç
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)


bu şekilde değiştir

Set xDFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Kullanıcı avatarı
melissa
Yeni Başlamış
 
Kayıt: 17 Ekm 2019 16:51
Meslek: tekstil
Yaş: 28
İleti: 15
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe