Sorgu için arama sonuçları: filecopy+klasör

Böyle olabilir... Private Sub CommandButton1_Click() Dim fso As Object Dim hedefKlasor As String Dim ObjFolder As Object Dim i As Long Set fso = CreateObject("Scripting.FileSystemObject") ' --- Çoklu Dosya Seçimi --- With...

Merhaba. Hedef klasör belirtmişsiniz fakat hedef dosya adını belirtmemişsiniz onun için hata veriyor. Private Sub CommandButton1_Click() Dim fso As Object Dim dosya As String Dim hedefYol As String Set fso = VBA.CreateObject("Scripting.FileSystemObject") ' Dosya seçimi...

Merhaba, aşağıdaki kodda amacım seçilen klasördeki bir dosyayı (jpg) yine diogboxta seçtiğim klasörün altına kopyalamak bir hata yapıyorum fakat bulamadım yardımcı olursanız sevirim , teşekkürler. Private Sub CommandButton1_Click() '----- dosya kopyalama------------ Dim fso As Object Set fso...

deneyiniz. Sub EvrakKopyalariVeKlasorleriOlustur() Dim ws As Worksheet Dim sonSatir As Long, i As Long Dim evrakID As String, sahip As String Dim masaustu As String, kaynakDosya As String Dim klasorYolu As String, hedefDosya As String ' Aktif sayfa Set ws =...

Merhaba, 1. makro istediğiniz işlemi yapar, Sub DosyaTasima_Uzantisiz() Dim satir As Long Dim sonSatir As Long Dim dosyaAdi As String Dim kaynakAdres As String Dim hedefAdres As String Dim tamKaynakYol As String Dim tamHedefYol As String Dim mevcutDosya As...

Çok teşekkürler hocam. Emeğinize sağlık. Kopyasını almam gerektiğinden 2. yönteminizi kullanamıyorum. Dosyaları toplu kopyalamıyorum zaten. Aslında kurguladığım kodda kod ilk önce dinamik bir yeni klasör oluşturuyor sonra ülkeye göre dosyaları seçip o klasöre atıyor. 1. Yönteminizi daha önce de...

Yöntem :1 Sub DosyaKopyala() Dim Country As Variant Dim mainklasor As String Dim dosyaAdi As String mainklasor = "Ana Klasör Yolu" For Each Country In Array("Pakistan", "Lübnan", "Türkiye") Select Case Country Case "Pakistan"...

Hocam Country bir Variant bende. String değil. For döngüsü ile satıra göre sürekli değişiyor. Evet Country değişkeni türkçe karakter içeren bir ülkeye eşit olduğu zaman linkteki dosyayı kopyalamıyor. Yukarıdaki kodlamanızı test ettim. Klasör yolundan bağımsız hata veriyor. Aslında klasör...

Option Explicit Sub DosyaKopyala() Dim country As String Dim sourcePath As String, destPath As String country = "Lübnan" sourcePath = "C:\User\Kaynak\Klasör" & "\Banner\" & "copybanner " & country & " Branda.pdf" If Dir(destPath, vbDirectory) = "" Then MkDir...

Hocam Kaynak ve Hedef klasörlere kullanıcı adı yazmadan herhangi bir bilgisayarın masaüstünde çalışması için nasıl düzenleyebiliriz?

Merhaba, Soruyu ChatGPT'ye sordum yanıtı : Sub KopyalaPDFDosyalari() Dim KaynakKlasor As String Dim HedefKlasor As String Dim DosyaAdi As String Dim DosyaUzunlugu As Integer Dim Dosya As String ' Kaynak ve Hedef Klasör Yollarını Ayarlayın KaynakKlasor =...

Aşağıdaki kod şu şekilde çalışıyor. Kod önce masaüstüne "Taşınacak_Dosyalar" adıyla bir klasör oluşturuyor. Sonra G sütununda yazan dosya isimlerini tanımlanan klasörde arıyor. İlgili dosyayı bulursa masaüstünde oluşturulan klasöre kopyalıyor. Bulunduğu klasördeki asıl dosyayı bilerek...

Teşekkürler Korhan bey istenilen sonucu verdi

Deneyiniz. Sadece seçtiğiniz klasör için de arama yapılacağını (alt klasörlerin dahil edilmeyeceğini) ve bu işlemi UserForm üzerinde yaptığınızı varsayıyorum. Option Explicit Private Sub CommandButton1_Click() Dim My_Path As String, My_File_Name As String, My_File As String If...

Aşağıdaki kod ile deneyin. Kpopyalanacak dosya adresleri A1 den itibaren aşağıya doğru yazılmış olmalı. YapistirmaAdresi="c:\Klasor Adı" buraya yapıştırılacak klasör yolunu yazın. Sub Kopyala() Dim Bak As Long Dim DosyaAdi As Variant Dim YapistirmaAdresi As String...

Cevabınız için çok teşekkür ederim ama debugda filecopy cells kısmında hata veriyor dosya yolunu yazmama rağmen peki bu kodu a sutunun daki dosya yolundaki dosyayı b sutunundaki yola kopyalayacak şekilde değiştirebilir miyiz.

Merhaba. "c:/Klasor Adı" yerine dosyanın yapıştırılacak klasör yolunu yazın. Sub Kopyala() Dim Bak As Long For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Dir(Cells(Bak, "A")) = "" Then MsgBox Cells(Bak, "A") & " konumundaki dosya yok." Else...

Herkese selamlarımı iletiyorum. Aşağıda @halit3 üstadımızın bir kodunu ekledim. Bu kod bir klasörden diğer bir klasöre dosyaları kopyalıyor. Benim yapmak istediğim kaynak klasörü boşaltarak taşısın. Dim Kaynak2 Sub Dosyaları_kopyala() Set Klasor =...

çok teşekkürler sonradan aklıma geldi. dikkat edeceğim. teşekkkürler tekrar....

Talebiniz elbette yapılabilir. Fakat neden bu talebinizi ilk mesajınızda belirtmediğinizi merak ettim. Bir konuya cevap verdikten sonra ve karşı taraftan olumlu dönüş aldıktan sonra diğer sorulara zaman harcamaya çalışıyoruz. Siz böyle sürekli isteklerinizi değiştirirseniz konu uzayıp gider...