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

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...

Teşekkürler Korhan Beycok işime yaradı. Bu arada bu benim ana xxx.pdf dosya masa üstünde olsa ve kopyalarida kodla yeni bir klasör oluşturarak yapmak istesem mesela yeniklasorgununtarihi isimli ( yeniklasor10092021 gibi bugün için mesela) Teşekkürler şimdiden

@Korhan Ayhan 'ın bahsettiği sorunla karşılaşmamak için klasör ayracını doğrudan yazmak yerine sistem ayarının kullanılmasını istemek daha doğru olur: FileCopy Secilen_Dosya, Kopyalanacak_Klasör_Yolu & Application.PathSeperator & Yeni_Dosya_Adi

En can alıcı bölüm hatalı olmuş. FileCopy Secilen_Dosya, Kopyalanacak_Klasör_Yolu & "\" & Yeni_Dosya_Adi Not : Klasör separatörünüzü "/" olarak yazmışsınız. Ben de "\" olarak ayarlı olduğu için bu şekilde "\" yazdım. Gerekiyorsa düzeltirsiniz.

Korhan Bey, Sanırım karıştırdınız ya da ben karıştırdım. Resimle ilgili bir isteğim yoktu benim Sanırım sevensuleymana yazacaktınız.