• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kısa ürün kodlardan detaylı liste oluşturma.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
C

Croww

Yeni Üye
Katılım
29 Tem 2022
Mesajlar
42
Çözümler
7
Aldığı beğeni
39
Excel V
Office 365 TR
Konu Sahibi
Merhabalar,

Elimizde kısa kodları olan ürünlerden ortak ağda data dosyasından veri çekerek detaylı liste oluşturmak istiyoruz. Kısa kodları a kolonuna yapıştırdığımızda b kolonundan itibaren ilgili alanları getirilmesini umuyoruz. Örnek olması açısından basit bir excel yükledim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Merhaba

Çok fazla eksik bilgi var. Yapay Zekadan destek alarak bir örnek kod yapısı oluşturdum. Kendinize göre düzenlediğinizde işinize yarayacağına inanıyorum.


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Kod Açıklaması​

  1. kaynakDosyaYolu: Ağ üzerindeki "data.xlsx" dosyasının tam yolu.
  2. kaynakSayfaAdi: Veri çekilecek sayfanın adı ("data").
  3. wsHedef: Bu çalıştığınız Excel dosyasındaki sayfa.
  4. sonSatir: A sütunundaki son satırı bulur.
  5. For i = 2 To sonSatir: A sütunundaki veriler üzerinde döngü başlatır.
  6. wsKaynak.Columns("A").Find: "data.xlsx" dosyasının A sütununda arama yapar.
  7. wsHedef.Cells(i, "B").Value: B, C, D ve E sütunlarına veri kopyalar.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ahmet' Alıntı:
Merhaba

Çok fazla eksik bilgi var. Yapay Zekadan destek alarak bir örnek kod yapısı oluşturdum. Kendinize göre düzenlediğinizde işinize yarayacağına inanıyorum.


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Kod Açıklaması​

  1. kaynakDosyaYolu: Ağ üzerindeki "data.xlsx" dosyasının tam yolu.
  2. kaynakSayfaAdi: Veri çekilecek sayfanın adı ("data").
  3. wsHedef: Bu çalıştığınız Excel dosyasındaki sayfa.
  4. sonSatir: A sütunundaki son satırı bulur.
  5. For i = 2 To sonSatir: A sütunundaki veriler üzerinde döngü başlatır.
  6. wsKaynak.Columns("A").Find: "data.xlsx" dosyasının A sütununda arama yapar.
  7. wsHedef.Cells(i, "B").Value: B, C, D ve E sütunlarına veri kopyalar.
Genişletmek için tıkla...
Merhaba Ahmet Bey,

Teşekkür ederim ancak kod tam olarak istenileni yapmıyor. Normalde a kolonundaki kodun datadan tüm varyantlarını getirmesi gerekiyor ancak sadece o ürüne ait ilk kodu getiriyor. Yani a ürününü aradığımızda a1, a2, a3 gibi kaç tane varsa alt alta getirmesi gerekiyor. Liste sayfasınadaki örnekteki liste sayfasında olduğu gibi.
 
Olumlu oy 0 Negatif oyla
Dener misiniz?

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Kod Açıklaması​

  1. kaynakDosyaYolu: Ağ üzerindeki "data.xlsx" dosyasının tam yolu.
  2. kaynakSayfaAdi: Veri çekilecek sayfanın adı ("data").
  3. wsHedef: Bu çalıştığınız Excel dosyasındaki sayfa.
  4. sonSatir: A sütunundaki son satırı bulur.
  5. satirHedef: Verilerin yazılacağı başlangıç satırını belirtir.
  6. Find: İlk eşleşmeyi bulur.
  7. For Each cell In aralik: Tüm eşleşmeleri bulmak ve verileri kopyalamak için döngü.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Ahmet' Alıntı:
Dener misiniz?

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Kod Açıklaması​

  1. kaynakDosyaYolu: Ağ üzerindeki "data.xlsx" dosyasının tam yolu.
  2. kaynakSayfaAdi: Veri çekilecek sayfanın adı ("data").
  3. wsHedef: Bu çalıştığınız Excel dosyasındaki sayfa.
  4. sonSatir: A sütunundaki son satırı bulur.
  5. satirHedef: Verilerin yazılacağı başlangıç satırını belirtir.
  6. Find: İlk eşleşmeyi bulur.
  7. For Each cell In aralik: Tüm eşleşmeleri bulmak ve verileri kopyalamak için döngü.
Genişletmek için tıkla...
Bu hali ile istediğimiz sonucu veriyor. Desteğinize ve emeklerinize teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst