Excel ile JPG dosyaları Otomatik isimlendirme. ACİL Yardım!

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel ile JPG dosyaları Otomatik isimlendirme. ACİL Yardım!

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

10
Cevap 6092
Tıklama 0
Öne Çıkarma

1. sayfa

Excel ile JPG dosyaları Otomatik isimlendirme. ACİL Yardım!

Cevap Yaz

sewimce

10 yıl

Konu Sahibi

Bir klasörde yaklaşık 600 görsel var, ama ben bunların isim Kodunu Exceldeki Kod stunu karşılıklarındaki Barkod numaraları ile değiştirmek istiyorum. Kopyala yapıştır yapmadan daha hızlı bir yöntemi varmıdır?... Acil bilgilendirirseniz çok sevinirim. NOT: Excel bilgim sadece kendi işimi görecek kadar malesef o yüzden mümkün olduğu kadar basit bir şekilde aktarılırsa bilgi sevinirim.

Excell ve JPG ler için örnek foto aşağıdadır.

< Resime gitmek için tıklayın >
< Resime gitmek için tıklayın >

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi sewimce -- 22 Mayıs 2015; 8:36:42 >

akcan

10 yıl

Binbaşı

ö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 >
Bu mesaja 1 cevap geldi.

fsh77

10 yıl

Yarbay

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 >
Bu mesaja 1 cevap geldi.

sewimce

10 yıl

Konu Sahibi

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 ?

< Resime gitmek için tıklayın >< Resime gitmek için tıklayın >

< Bu mesaj bu kişi tarafından değiştirildi sewimce -- 22 Mayıs 2015; 16:09:29 >

sewimce

10 yıl

Konu Sahibi

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 :)

Bu mesaja 1 cevap geldi.

akcan

10 yıl

Binbaşı

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.

Bu mesaja 1 cevap geldi.

sewimce

10 yıl

Konu Sahibi

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?

Bu mesaja 1 cevap geldi.

akcan

10 yıl

Binbaşı

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

Bu mesaja 1 cevap geldi.

WEST_BOY

7 yıl

Yüzbaşı

Bu çalışmanız için çok teşekkürler.

Bu mesajda bahsedilenler: @akcan

pozantidan

7 yıl

Çavuş

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

GameMan

6 yıl

Çavuş

Hocam sağolun bana da çok faydalı oldu uygulaması da gayet basit

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel ile JPG dosyaları Otomatik isimlendirme. ACİL Yardım!