Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 02-03-2011, 21:23   #1
hesrefoglu
 
Giriş: 29/09/2004
Şehir: istanbul
Mesaj: 14
Varsayılan Klasördeki dosyaları başka bir klasöre taşımak

Merhaba Bir A klasörü içinde bulunan jpg uzantılı dosyalardan ilk 500 dosyayı B klasörüne taşımak için gerekli makro konusunda yardımlarınızı bekliyorum
hesrefoglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-03-2011, 21:32   #2
Huseyinkis
 
Huseyinkis kullanıcısının avatarı
 
Giriş: 23/09/2004
Şehir: İstanbul
Mesaj: 1,748
Excel Vers. ve Dili:
Excel 2010 TR
Varsayılan

Alıntı:
hesrefoglu tarafından gönderildi Mesajı Görüntüle
Merhaba Bir A klasörü içinde bulunan jpg uzantılı dosyalardan ilk 500 dosyayı B klasörüne taşımak için gerekli makro konusunda yardımlarınızı bekliyorum
Sayın Hesrefoglu A Klasöründeki jpg uzantılı dosyaların kucuk goruntulerini gorebileceğim ve taşınacak ve taşınmayacak şeklinde işaretleme yaparak taşınacak olanların b klasörüne taşıyabileceğim bir makro yapabilirmiyiz diye sorsanız daha iyi olcaktır bence.

Diğer türlü A klosörünü açıp ilk 500 kayıdı secip kes diyerek B klosorune yapıştır yapmak makro yazmaktan daha kısa ve hızlı olur gibi.
__________________
///Ya severek "Acı Çekmesini" biliceksin yada Sevmeyeceksin hep "Acı Çekeceksin"///
Huseyinkis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-03-2011, 00:02   #3
hesrefoglu
 
Giriş: 29/09/2004
Şehir: istanbul
Mesaj: 14
Varsayılan

Ben bu taşıma olayını başka bir işlemin parçası olarak kullanmak istediğim için makro ile yapmak istemiştim.
hesrefoglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-03-2011, 07:05   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Aşağıdaki linkdeki dosyaya bir bakarmısınız.

http://www.excel.web.tr/f48/resim-go...tml#post491466
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-03-2011, 08:52   #5
hesrefoglu
 
Giriş: 29/09/2004
Şehir: istanbul
Mesaj: 14
Varsayılan

Benim yapmak istediğim bu değil.
Bir A klasörü içinde bulunan ismi ne olursa olsun uzantısı jpg olan ilk 500 dosyayı seçip B klasörüne taşımak istiyorum
hesrefoglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-03-2011, 09:15   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
hesrefoglu tarafından gönderildi Mesajı Görüntüle
Benim yapmak istediğim bu değil.
Bir A klasörü içinde bulunan ismi ne olursa olsun uzantısı jpg olan ilk 500 dosyayı seçip B klasörüne taşımak istiyorum
Soru ve cevaplarınızda birine soruyorsanız alıntı yaparak cevaplayınız.

Bu soruyu bana soruyorsanız. ekli linkdeki dosyaya bakınız orada bir kaç çeşit userform var o formdan taşıma silme veya değiştirme işlemlerini gerçekleştirebilirsiniz.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-03-2011, 09:31   #7
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,812
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. Kırmızı bölümleri kendi sisteminize göre değiştirmeyi unutmayınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
 
Sub Dosya_Taşı()
    Dim Dosya_Sistemi As Object, Taşı As Variant
    Dim Say As Integer, Uzantı As String
    Dim Dosya, Klasör_Yolu_1 As String, Klasör_Yolu_2 As String
 
    Klasör_Yolu_1 = "C:\Documents and Settings\Admin\Desktop\A\"
    Klasör_Yolu_2 = "C:\Documents and Settings\Admin\Desktop\B\"
 
    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    
    For Each Dosya In Dosya_Sistemi.GetFolder(Klasör_Yolu_1).Files
        Uzantı = Split(Dosya.Name, ".")(1)
        If UCase(Uzantı) = "JPG" Or UCase(Uzantı) = "JPEG" Then
            Say = Say + 1
            Taşı = Dosya_Sistemi.MoveFile(Dosya, Klasör_Yolu_2)
            If Say = 500 Then GoTo Son
        End If
    Next
 
Son:
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:45


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden