• 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ü Makro ile Farklı sütunlardan veri listeleme

  • Konuyu Başlatan Konuyu Başlatan LİNDA
  • Başlangıç tarihi Başlangıç tarihi
  • Görüntülenme 1,037
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.
L

LİNDA

Gold Üye
Katılım
4 Haz 2021
Mesajlar
269
Çözümler
1
Aldığı beğeni
90
Excel V
Office 2019 TR
Gold Bitiş
15 Nisan 2026
Konu Sahibi
Merhaba sizlerin yardımı ile oluşturduğum dosyamda şöyle bir güncellemeye ihtiyacım oluştu. Listemede kullanılan aşağıdaki kodda .Data sayfasından B2:E arasından veri alıyor . güncelleme ile B2: E aralığına ek olarak O sütunundan da veri almasını istiyorum Şube Sayfasında A: F arasında görünecek Sayfa1 de ise A:G arasında şeklinde listelenecek. Dosyanın çalışma şekli açılışda gelen userform3 de liste düğmesine tıklama ile gelen Userform2 sayfasında kayıt türü seçilecerek listeleme sonrasında tercih türü seçilerek listeleme ve şubem türü seçilerek listeleme yapıldığında sınıf listem tuşu ile gelen liste de sarı sütun ile belirtilen sütun eklenmiş olacak.
Kodda hangi alanda değişiklik yapmak yeterli midir. Farklı bir koda mı ihtiyaç var . Yardımcı olursanız sevinirim

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

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.

d.Range("O1:O" & d.Cells(Rows.Count, 2).End(3).Row).Copy l.[F1] bu eklendi.
Me.ListBox2.RowSource = "ÞUBE!A2:F" & lson burdada E yerine F yazıldı.
Kopyala yapıştır yapacaksanız Tr karakterleri düzeltmeniz gerekebilir.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Merhaba.

d.Range("O1:O" & d.Cells(Rows.Count, 2).End(3).Row).Copy l.[F1] bu eklendi.
Me.ListBox2.RowSource = "ÞUBE!A2:F" & lson burdada E yerine F yazıldı.
Kopyala yapıştır yapacaksanız Tr karakterleri düzeltmeniz gerekebilir.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Çözümünüz için çok teşekkür ederim sayın Refaz Şube sayfasında listeye ekleme yapıyor. Ama Sayfa1 sayfasındaki listede görünmüyor
 
Olumlu oy 0 Negatif oyla
Rica ederim.Sayfa1 olayını anlamamıştım esasen.
Resme bakınca anladım ve çözünce eklerim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Rica ederim.Sayfa1 olayını anlamamıştım esasen.
Resme bakınca anladım ve çözünce eklerim.
Genişletmek için tıkla...
Teşekkür ederim Sayın Refaz şu şekilde çözüm buldum . (4 leri 5 yapınca listede göründü.
Sheets("Sayfa1").[C9].Resize(lson - 1,5).Value = l.Range("B2:E" & lson).Value
Sheets("Sayfa1").[C9].Resize(lson - 1, 5).Sort Sheets("Sayfa1").[D8], 1
 
Olumlu oy 0 Negatif oyla
Rica ederim.Aslında ilk kod yerine en alttaki gibi daha kısa olur bence.

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

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
LİNDA' Alıntı:
Teşekkür ederim Sayın Refaz şu şekilde çözüm buldum . (4 leri 5 yapınca listede göründü.
Sheets("Sayfa1").[C9].Resize(lson - 1,5).Value = l.Range("B2:E" & lson).Value
Sheets("Sayfa1").[C9].Resize(lson - 1, 5).Sort Sheets("Sayfa1").[D8], 1
Genişletmek için tıkla...
E yerinede F yazmanız gerekmekte yazmıştım yine yazmış olayım.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst