Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-03-2008, 09:41   #1
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan Toplu olarak dosya isimlerini değiştirme

D:\deneme adlı klasör içerisinde bulunan resim dosyalarının adları A sutununda yazılı, B sutununda yazılı bulunan yeni isimlerle değiştirmek istiyorum. Bunu makro ile nasıl yapabiliriz.
Eklenmiş Dosyalar
Dosya Türü: xls adlandır.xls (18.0 KB, 6 Görüntülenme)
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 10:01   #2
Zeki Gürsoy
Uzman
 
Zeki Gürsoy kullanıcısının avatarı
 
Giriş: 31/12/2005
Şehir: Sakarya-Hendek
Mesaj: 3,353
Excel Vers. ve Dili:
Office 2016 (x64) - Türkçe
Varsayılan

Lütfen forumda önce arama yapınız..

Klasördeki dosyaları, excelden adlandırabilirmiyiz.
Zeki Gürsoy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 10:22   #3
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Sn. Zeki Gürsoy hocam, dediğiniz gibi formda arama yaptıp ve verdiğiniz linki inceledim, ancak burada a sutununda verilen isimler ile klasör içindeki isimler değişiyor, ancak ben belirlediğim isimlerin hangi isimlerle değiştirileceğini ben belirlemek istiyorum, yani a sutununda yazılı isimler b sutununda yazılı isimlerle değişmesini istemiştim. İlgilenirseniz sevinirim. Saygılar.
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 11:00   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Aşağıdaki kodlar A sütunundaki dosya isimlerini B sütunundaki dosya ismleri ile değiştiri.
Dosyaların D:\Deneme klasörü içinde olduğu varsayılmıştır.
Eğer klasör değişkse ilgili satırda değişkliği yapınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub isim_degistir()
Dim i As Long, say As Long
If MsgBox("D:\Deneme klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz..!!??", _
vbYesNo + vbQuestion, Application.UserName) = vbno Then Exit Sub
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Dir("D:\Deneme\" & Cells(i, "A").Value) <> "" Then
        Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value)
        say = say + 1
    End If
Next i
MsgBox say & " dosya isimi değiştirildi..", vbOKOnly + vbInformation, Application.UserName
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 11:43   #5
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Sn.Evren Gizlen Kodlar çalıştırıldığında ;
Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value)
satırında Run Time Error '75' şeklinde hata iletisi alıyorum, rica etsem dosyaya uyarlayabilirmisiniz
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 12:22   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
tahsinanarat tarafından gönderildi Mesajı Görüntüle
Sn.Evren Gizlen Kodlar çalıştırıldığında ;
Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value)
satırında Run Time Error '75' şeklinde hata iletisi alıyorum, rica etsem dosyaya uyarlayabilirmisiniz
Kodlar bende gayet güzel çalışıyor.
Sizin dosya adlarında hata vardır.
b sütununa dosya adı ile birlikte uzantısınıda yazmanız gerekiyor.
Örnek tahsin.jpg
Birde dosya adlarında . - , vb, yasak karakterler kullanmışsanızda hata verir.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 12:30   #7
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan Hocam örnek dosyamı ekte gönderiyorum

Ne yaptıysam olmadı, o dosya değiştirildi diyor. Örnek dosyamı ekte gönderiyorum, Bakarsanız çok sevinirim. Şimdiden çok teşekkür ederim
Eklenmiş Dosyalar
Dosya Türü: rar DENEME.rar (326.5 KB, 7 Görüntülenme)
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 12:56   #8
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

SN. Evren Gizlen hocam, tamam gerek kalmadı, hem a hem de B sutunundaki dosya isimlerini uzantıları ile birlikte yazılması gerekiyormuş. Bu şekilde yaptığımda oldu, eline koluna sağlık çok teşekkür ederim. Saygılar
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 12:57   #9
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
tahsinanarat tarafından gönderildi Mesajı Görüntüle
Ne yaptıysam olmadı, o dosya değiştirildi diyor. Örnek dosyamı ekte gönderiyorum, Bakarsanız çok sevinirim. Şimdiden çok teşekkür ederim
Dediğim gibi dosya uzantıları meselesi.
Şimdi kodları düzenledim.Dosyaların uzantısını yazmadan sadece dosya adlarını yazarak kodlar çalışıyor.
Ama sadece jpg uzantılı dosyalar.
Ekli dosyayı inceleyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub isim_degistir()
Dim i As Long, say As Long
If MsgBox("D:\Deneme klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz..!!??", _
vbYesNo + vbQuestion, Application.UserName) = vbno Then Exit Sub
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Dir("D:\Deneme\" & Cells(i, "A").Value & ".jpg") <> "" Then
        Name ("D:\Deneme\" & Cells(i, "A").Value & ".jpg") As ("D:\Deneme\" & Cells(i, "B").Value & ".jpg")
        say = say + 1
    End If
Next i
MsgBox say & " dosya isimi değiştirildi..", vbOKOnly + vbInformation, Application.UserName
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar DENEME.rar (273.3 KB, 28 Görüntülenme)
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2008, 20:04   #10
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Sn. Evren Gizlen hocam, gerçekten mükemmel oldu, elinize sağlık, umarım başkalarının işine de yarar, bence çok mükemmel bir kod oldu.

Bu kodlarla da dosya içerisindeki resim isimlerini listeliyebiliyoruz.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("D:\Deneme")
Set dc = f.Files
For Each dosya In dc
c = c + 1
Cells(c, 1) = dosya.Name
Next
End Sub

Çok teşekkür ediyorum, saygılar sunuyorum. Sağolun
tahsinanarat Çevrimdışı   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 05:46


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden