Sorgu için arama sonuçları: movefile

Sayın plint kırmızı ve yeşil olacak derken excelin A sütununa yazdığım TC kimlik numaraları icinmi hücrede renklendirme olacak taşınıp tasinamadigina göre

..."A").End(3).Row If Trim(Cells(i, "A").Value) <> "" Then dsy = Trim(Cells(i, "A").Value) & ".pdf" If A.FileExists(Klas1 & dsy) = True Then A.moveFile Source:=Klas1 & dsy, Destination:=Klas2 & "\" Cells(i, "A").Interior.ColorIndex = 4 Else Cells(i, "A").Interior.ColorIndex = 3 End If: End If...

...istediğiniz dosyanızın yolunu yazın/yazdırın. Örnek C:\Users\Desktop\teklifler\ Sub Dosya_Taşı() Dim ds, f Set ds = CreateObject("Scripting.FileSystemObject") f = ds.MoveFile(Cells(1, 45).Value, Cells(1, 46).Value & "\") End Sub

...istiyorum. Yani makronun çalıştığı excel dosyasının kes yapıştır olması gerekiyor. Dosyayı makro ile başka bir konuma kopyalayabiliyorum. Forumda "movefile" diye araştırırken ekteki kodları buldum ancak çalıştıramadım. Yardımcı olabilecek herkese şimdiden çok teşekkür ederim. Saygılarımla

Merhabalar, ilginize çok teşekkür ederim fakat makroyu çalıştırdığım zaman herhangi bir hata almıyor olmama rağmen bir sonuç elde edemiyorum. A sutunundaki hücre değerlerini dosya ismi ile misal: IMG_3701 veya IMG_3701.JPG şeklinde de denesem de bir sonuç alamadım. Bir yerde hata mı yapıyorum acaba?

...- 1)) = False Then MsgBox SourcePath & " doesn't exist" Exit Sub End If With ActiveSheet For r = 2 To .Cells(.Rows.Count, "B").End(xlUp).Row Fn = .Cells(r, "A").Value FSO.MoveFile Source:=SourcePath & Fn, Destination:=DestPath Next r End With End Sub

.MoveFile'ın başındaki tırnak işaretini silip .Copyfile'ın başına ekledik mi?

...For xd = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Val(Left(dosya.Name, 11)) = Val(Cells(xd, 1)) Then fds.movefile dosya.Path, eskikimlik & "\" & dosya.Name Exit For End If Next End If Next MsgBox "Belirtilen dosyalar taşındı"...

...Range("A" & i).Value If dosyavarmi(kaynakisim) Then hedefisim = yeniklasor & "\" & Range("A" & i).Value FSO.MoveFile Source:=kaynakisim, Destination:=hedefisim Range("B" & i).Value = Range("A" & i).Value Range("A" & i).Value = ""...

...Yazdığınız kodu şu şekilde düzeltiniz. Sub Dosya_Tasi() Dim i As Integer For i = 3 To [A1].Value ogrenci = Cells(i, 2) siniflar = Cells(i, 3) Set fs = CreateObject("Scripting.FileSystemObject") fs.movefile "C:Fotoğraflar\" & ogrenci & ".JPG", "C:Fotoğraflar\" & siniflar & "\" Next i End Sub

Sub test() With CreateObject("Scripting.FileSystemObject") If Not .folderexists("C:\NEW") Then .CreateFolder "C:\NEW" If Dir("C:\KAYIT\*NEW*") <> "" Then .movefile "C:\KAYIT\*NEW*", "C:\NEW\" End With End Sub

Merhaba, FileCopy yerine ds.MoveFile kullanabilirsiniz. Alternatif olarak Name komutu da kullanılabilir. Name src & Cells(i, 1) & ".pdf" as dest & Cells(i, 1) & ".pdf"

bu notuda makroya ilave ettim, genelde copy kullanıyorum. Teşekkürler

Rica ederim, Bir de koda ilave olarak dosyaları kopyalamak yerine taşımak isterseniz ds.CopyFile yazan yeri ds.MoveFile ile değiştirebilirsiniz. İyi çalışmalar...

...2) & ".pdf" ykonum = ThisWorkbook.Path & "\" & Range("C1") & "\" If Dir(ykonum) <> "" Then Else MkDir ykonum End If f = ds.MoveFile(belge, ykonum) Next End Sub B sütunuda yazılı olan dosyaları istenen yere götürüyor. Kendinize göre düzenleyebilirsiniz. İyi...

...belge = ThisWorkbook.Path & "\" & Cells(i, 2) & ".pdf" ykonum = ThisWorkbook.Path & "\" & Range("C1") & "\" If Dir(ykonum) <> "" Then Else MkDir ykonum End If f = ds.MoveFile(belge, ykonum) Next MsgBox "İşlem tamam...", vbInformation, "ASKM" End Sub

...1).End(3).Row Set fls = CreateObject("Scripting.FileSystemObject") For x = 3 To sonsat If Cells(x, 1).Font.Bold = True Then fls.MoveFile klsr1 & Cells(x, 1), klsr2 & Cells(x, 1) sat = Cells(Rows.Count, 2).End(3).Row If sat < 3 Then sat = 3 Cells(sat, 2) = Cells(x, 1) Cells(x, 1) = "" End If...

Selamlar, Verdiğim linkte bu konuyla ilgili bir çok başlık göreceksiniz. https://www.excel.web.tr/search/18221/?q=movefile&o=date

Yukarıda 15. mesajdaki revize kodda, aşağıdaki kırmızı renkli ilaveyi yaparsanız, "Taşındı" ibaresini görürsünüz... FSO.MoveFile Range("B" & i).Text, DataFolder & Application.PathSeparator & tempFile & "." & tempExt Range("C" & i) = "Taşındı" .

...tempFile = FSO.GetBaseName(Range("B" & i).Text) tempExt = FSO.GetExtensionName(Dir(Range("B" & i).Text)) FSO.MoveFile Range("B" & i).Text, DataFolder & Application.PathSeparator & tempFile & "." & tempExt End If Next Set FSO = Nothing End Sub .