Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Ofis Uygulamaları
  • Bu Konuda
Şimdi Ara

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 - 2 Masaüstü
5 sn
11
Cevap
0
Favori
6.124
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • 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.

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

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



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



    _____________________________
    ...




  • ö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 >
    _____________________________
    Mesut Akcan | YouTube kanalım | Blog sayfam




  • 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 >
    _____________________________
    imzamı atarım,yeri gösterin + _ -
  • 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 ?


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



    < 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.
    _____________________________
    Mesut Akcan | YouTube kanalım | Blog sayfam
  • 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?
    _____________________________
    ...
    • Yapay Zeka’dan İlgili Konular
    C programı ile yazılmış bir exe nin kaynak kodunu görüntüleme
    13 yıl önce açıldı
    Rar dosyalarını sırayla açabileceim bir yazılım var mı ?
    2 yıl önce açıldı
    Exe dosyası nedir, nasıl açılır? İşte .exe uzantılı dosya açma yolları
    2 ay önce açıldı
    Daha Fazla Göster
  • 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
    _____________________________
    Mesut Akcan | YouTube kanalım | Blog sayfam
  • akcan kullanıcısına yanıt
    Bu çalışmanız için çok teşekkürler.
    _____________________________
    Onur Tığ / 05324879205
    Mail: tig.onur@gmail.com
  • 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
    _____________________________
    <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=http://www.fiilitekelesonverelim.org" target="_blank" data-href="http://www.fiilitekelesonverelim.org" target="_blank"><img src="http://www.fiilitekelesonverelim.org/banner/468x60.gif" width="468" height="60" border="0"></a>
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum