• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    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 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
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
29 Tem 2022
Mesajlar
13
Çözümler
1
Aldığı beğeni
6
Excel V
Office 365 TR
Konuyu Başlatan
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

  • ornek.xlsx
    13.2 KB · Gösterim: 12
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.


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.


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
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.


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.


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?

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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
Ahmet' Alıntı:
Dener misiniz?

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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