Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi sewimce -- 22 Mayıs 2015; 8:36:42 > |
Hızlı 
Bildirim
Excel ile JPG dosyaları Otomatik isimlendirme. ACİL Yardım!
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
önce resimleri ve excel dosyasını yedekleyin.
excel dosyasını resimlerin olduğu klasöre kopyalayın
VBA makro editörünü açmak için ALT+F11 e basın
menüden Insert / Module tıklayın
açılan sayfaya aşağıdaki VBA kodunu ekleyin
Sub addegis()
satir = 2
klasor = Application.ActiveWorkbook.Path
If Right(klasor, 1) <> "\" Then klasor = klasor & "\"
Do
barkod = Cells(satir, 1)
kod = Cells(satir, 2) & ".jpg"
kod = Replace(kod, "-", "- ")
If barkod = "" Then Exit Do
Name klasor & kod As klasor & barkod & ".jpg"
satir = satir + 1
Loop
MsgBox "İşlem Tamam !"
End Sub
resimlerin jpg olduğu varsayılmıştır farklı ise kodda değişiklik yapın
excele geçip liste sayfasına geçin
makroyu çalıştırmak için ALT+F8 e basın
makro listesinde addesgis göreceksiniz seçip çalıştır'ı tıklayın.
not yukarda gönderdiğiniz resimde dosya adlarının bazılarında - den sonra 1 boşluk bazılarında - den önce ve sonra boşluk var
verdiğim kodlar dosya adlarında -den sonra boşluk olduğunu varsaymıştır.
2 boşluk olanları değiştirmez
bunun için kodları 1 kere çalıştırdıktan sonra
kod = Replace(kod, "-", "- ")
satırını
kod = Replace(kod, "-", " - ")
olarak değiştirin ve tekrar çalıştırın
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 22 Mayıs 2015; 11:46:37 >
-
Dogru anladımsa eğer,c ile de arasına yeni bir kolon sokun (insert ile) ve ilk hücreye =IF(C1<>"",b1,"") yazın ilk hücreye sonra asaya kadar kopyalayın.c sutununu silin.
Ben ingilizce kullanıyorum siz If yerine eğer yazarsanız olur, türkçe kullanıyorsanız.
Ayrıca zaten isimler sablon bir kere ilk hucreye yazarsanız sablonu tutup cekerseniz, aynı kolonda bir bir artarak diger resim isimlerini vericektir sonrada yukardaki islemi yaparsınız.
< Bu mesaj bu kişi tarafından değiştirildi fsh77 -- 22 Mayıs 2015; 11:50:58 > -
quote:
Orijinalden alıntı: akcan
önce resimleri ve excel dosyasını yedekleyin.
excel dosyasını resimlerin olduğu klasöre kopyalayın
VBA makro editörünü açmak için ALT+F11 e basın
menüden Insert / Module tıklayın
açılan sayfaya aşağıdaki VBA kodunu ekleyin
Sub addegis()
satir = 2
klasor = Application.ActiveWorkbook.Path
If Right(klasor, 1) <> "\" Then klasor = klasor & "\"
Do
barkod = Cells(satir, 1)
kod = Cells(satir, 2) & ".jpg"
kod = Replace(kod, "-", "- ")
If barkod = "" Then Exit Do
Name klasor & kod As klasor & barkod & ".jpg"
satir = satir + 1
Loop
MsgBox "İşlem Tamam !"
End Sub
resimlerin jpg olduğu varsayılmıştır farklı ise kodda değişiklik yapın
excele geçip liste sayfasına geçin
makroyu çalıştırmak için ALT+F8 e basın
makro listesinde addesgis göreceksiniz seçip çalıştır'ı tıklayın.
not yukarda gönderdiğiniz resimde dosya adlarının bazılarında - den sonra 1 boşluk bazılarında - den önce ve sonra boşluk var
verdiğim kodlar dosya adlarında -den sonra boşluk olduğunu varsaymıştır.
2 boşluk olanları değiştirmez
bunun için kodları 1 kere çalıştırdıktan sonra
kod = Replace(kod, "-", "- ")
satırını
kod = Replace(kod, "-", " - ")
olarak değiştirin ve tekrar çalıştırın
Teşekkür ederim fakat Hata uyarısı alıyorum, Sizce nerede hata yapıyorum ?
< Bu mesaj bu kişi tarafından değiştirildi sewimce -- 22 Mayıs 2015; 16:09:29 >
-
quote:
Orijinalden alıntı: fsh77
Dogru anladımsa eğer,c ile de arasına yeni bir kolon sokun (insert ile) ve ilk hücreye =IF(C1<>"",b1,"") yazın ilk hücreye sonra asaya kadar kopyalayın.c sutununu silin.
Ben ingilizce kullanıyorum siz If yerine eğer yazarsanız olur, türkçe kullanıyorsanız.
Ayrıca zaten isimler sablon bir kere ilk hucreye yazarsanız sablonu tutup cekerseniz, aynı kolonda bir bir artarak diger resim isimlerini vericektir sonrada yukardaki islemi yaparsınız.
Sanırım anlayamadım ben tam anlattığınızı, Benim İstediğim Ayrı bir klasörde olan JPG dosyalarımın İsminin Exceldeki Barkodlar ile değişmesi , ve evet bende ingilizce kullanıyorum Exceli. Teşekkürler ilginiz için. umarım çözeriz bu problemi :) -
son gönderdiğiniz resimdeki dosya adları farklı
ayrıca kod sütunundaki isimler dosya isimleri ile uyuşmuyor galiba
dosyaların tümü md-39- ile başlıyorsa VBA kodu ona göre değiştireyim. -
quote:
Orijinalden alıntı: akcan
son gönderdiğiniz resimdeki dosya adları farklı
ayrıca kod sütunundaki isimler dosya isimleri ile uyuşmuyor galiba
dosyaların tümü md-39- ile başlıyorsa VBA kodu ona göre değiştireyim.
Geç dönüş yaptığüım için özür dilerim bu aralar baya baya yoğunuz çünki.
Evet dosya isimleri farklı ama hepsi aynı başlık ile gitmiyor ama tüm dosya isimleri Exceldeki Kod stununda karşılığı var.
Örneğin:
Dosya adı : MD356
// // : MR563
// // : SR256
Yazdığınız program ile MD356 adlı dosyanın Excelde Kod stunu MD356 olan ürünün karşılığı olan barkodu Alıp JPG dosyasını yeniden adlandıramazmıyız? -
dosya adının birebir aynısı excelde kod sütununda varsa aşağıdaki VBA kodu işinizi görecektir.
ancak dosya adı aynı olmlı MD-039 ile MD -039 aynı şey değildir.Sub addegis()
On Error Resume Next
satir = 2
klasor = Application.ActiveWorkbook.Path
If Right(klasor, 1) <> "\" Then klasor = klasor & "\"
Do
barkod = Cells(satir, 1)
kod = Cells(satir, 2) & ".jpg"
' kod = Replace(kod, "-", " - ")
If barkod = "" Then Exit Do
Name klasor & kod As klasor & barkod & ".jpg"
satir = satir + 1
Loop
MsgBox "İşlem Tamam !"
End Sub -
akcan
kullanıcısına yanıt
Bu çalışmanız için çok teşekkürler. -
Merhaba
Bu soruyu soran ve cevaplayan arkadaşa teşekkür ederim.
Benim de benzer sorunumu çözdü
Bendeki durum, proje lisesini verilen sıraya dizmek için dosya adlarını exceldeki sıraya göre revize etmem gerekiyordu -
Hocam sağolun bana da çok faydalı oldu uygulaması da gayet basit
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
