Pdfleri excele aktar ve klasöre kopyala yardım

[hasanyaprak]

Merhaba Arkadaşlar,
Ekteki excelde 2 tane makro butonu var. Normalde çalışıyorlar. Fakat tek buton yapmak istiyorum. Destek olabilir misiniz? Excel içerisine detaylı açıklama yazdım.

Klasöre kopyalama yapan buton pdflerin haricinide kopyalıyor. Sadece pdf kopyalaması lazım.
Excele linkli pdf isimlerini yapan buton hatasız çalışıyor. Bu işlemden sonra seçtiği klasör altındaki pdfleri sabit bir hedef klasöre kopyalama yapması lazım.

Şimdiden teşekkür ederim.

 

[yusuf1284]

Tek butonda çalışma olayını anlamadım kopyaladıktan sonra köpürüleme işlemini yeni kopyalanan yere göre mi yapmasını istiyorsunuz?

"Private Sub Liste(yol As String)" prosedürüne eklersiniz sadece pdf dosyalarını alır

For Each Dosya In fs.getfolder(yol).Files
    If Right(Dosya.Name, 3) = "pdf" Then
        fs.CopyFile Dosya, yol1 & Environ("userprofile") & "\Desktop\masaüstü\macrolar\hedef_pdf\"
    End If
Next

 

[hasanyaprak]

Tek butonda çalışma olayını anlamadım kopyaladıktan sonra köpürüleme işlemini yeni kopyalanan yere göre mi yapmasını istiyorsunuz?

"Private Sub Liste(yol As String)" prosedürüne eklersiniz sadece pdf dosyalarını alır

For Each Dosya In fs.getfolder(yol).Files
    If Right(Dosya.Name, 3) = "pdf" Then
        fs.CopyFile Dosya, yol1 & Environ("userprofile") & "\Desktop\masaüstü\macrolar\hedef_pdf\"
    End If
Next

Excele seçtiğim klasörde ki pdfleri çekiyor ve köprülüyor. Bu köprüleme bittikten sonra excelin içindeki pdf i başka klasöre kopyalamak istiyorum. O butonda çalışıyor ama klasörü bir kez seçeyim iki işlemi aynı buton yapsın istiyorum.

 

[hasanyaprak]

Tek butonda çalışma olayını anlamadım kopyaladıktan sonra köpürüleme işlemini yeni kopyalanan yere göre mi yapmasını istiyorsunuz?

"Private Sub Liste(yol As String)" prosedürüne eklersiniz sadece pdf dosyalarını alır

For Each Dosya In fs.getfolder(yol).Files
    If Right(Dosya.Name, 3) = "pdf" Then
        fs.CopyFile Dosya, yol1 & Environ("userprofile") & "\Desktop\masaüstü\macrolar\hedef_pdf\"
    End If
Next

Hocam çalıştı sizin kodlar. Teşekkür ederim. 2 buton yapacağım. Yolu masaüstü değilde ağdan bir yol seçmek istersem nasıl değiştirmeliyim?

Yol: \\srv\Groups\ARGE\2-URETİM_MASTER_FORM\3_KLASOR DUZENLEME