[Yardım]  Dosya isimlerini hücre değerleri ile değiştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Dosya isimlerini hücre değerleri ile değiştirme

İleti#1)  ercan_60 » 23 Mar 2020 21:09

TEST klasörü içerisinde dosyalarım var. Klasörün içerisindeki dosya isimlerini sırasıyla change.xlsx excel dosyası içerisindeki B2 değeri (2.satır) ile değiştirmek istiyorum.

Klasör içerisindeki 2.ini dosyasının adı floppy.ini
3.ini dosyası cpu.ini
4.ini dosyası ram.ini
..
şeklinde sırasıyla değiştirmek istiyorum.

Konu hakkında yardımlarınızı bekler şimdiden teşekkür ederim.

TEST.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosya isimlerini hücre değerleri ile değiştirme

İleti#2)  Feyzullah » 23 Mar 2020 22:17

Sub xd_excel1()
yol = ThisWorkbook.Path & "\" '"
dosya = Dir(yol)
Do While dosya <> ""
If Right(yol & dosya, 3) = "ini" Then
sat = sat + 1
Name yol & dosya As yol & Cells(sat + 1, 2) & ".ini"
End If
dosya = Dir
Loop
MsgBox "işlem tamamlandı", vbInformation, "Tamam"
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 772
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Dosya isimlerini hücre değerleri ile değiştirme

İleti#3)  ercan_60 » 23 Mar 2020 23:47

Teşekkür ederim. Kodlar ekteki dosyada çalışıyor. Ancak dosyaları çoğalttıkça şöyle bir ihtiyaç hasıl oldu.

3 ile 4 satırdaki dosya isimlerini (sayı arttıkça 50-100 arasındaki satırları) değiştirmek istersek kodlarda nereyi değiştirmek gerekir ?
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Dosya isimlerini hücre değerleri ile değiştirme

İleti#4)  ercan_60 » 24 Mar 2020 21:53

Konu hakkında daha açıklayıcı olsun diye ekteki dosyayı tekrar düzenledim. 2. mesajda da belirttiğim üzere ilk kod çalışıyor ancak isimlendirme başlangıç ve bitiş satırlarını belirleyemedim.

Yardımlarınızı bekliyorum...

TEST_aciklamali.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: konas06 ve 2 misafir

Bumerang - Yazarkafe