Krİtere GÖre Rapor Alma

[lansor]

SEÇECEĞİM KRİTERE GÖRE RAPOR SAYFASINA VERİ AKTARMAK İSTİYORUM İLGİNİZ İÇİN ŞİMDİDEN TEŞEKKÜRLER...(3 GÜNDÜR UĞRAŞIORM ACİL YARDM LÜTFN :yardim: :yardim: )

 

[N.Ziya Hiçdurmaz]

yanıt

Bu düzenlemeye göre diğerlerini yaparsınız.(Düzenlerken hücre adreslerine dikkat ediniz.)

Private Sub ComboBox1_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a2:s7750").Clear
For sutc = 7 To sb.[a65536].End(xlUp).Row
If sb.Range("a" & sutc) = Val(ComboBox1) Then
sb.Range("a" & sutc & ":s" & sutc).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a2:a" & [a7750].End(xlUp).Row
End Sub

 

[lansor]

v.vasic for..üstadım ellerine sağlık inan çok teşekkür ederim sorunum kısmen çözüldü.çözülmeyen konu seçilen bilgi rakam ise rapora atıyor sorun yok ama köyü yada adı metin o bölümden metin seçtiğimde rapor bölümüne atmıyor bu sorunu nasıl çözebilirim.emeğine sağlık tşk

 

[lansor]

arkadaşlar metin olan bölümü seçtiğimde rapora atmıyor sayı olanları atıyor ne yapmam gerek lütfen yardım.v.basic for... üstadın gönderdiği kodda ne yapmalıyımki metinleri seçtiğimde de rapor sayfasına atabilsin tşk.

 

[N.Ziya Hiçdurmaz]

yanıt

Metin içeren sütunlar için bunu revize edin(Kod Adres kısmı için ayarlı Combobox11)

Private Sub ComboBox11_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a2:s7750").Clear
For sutc = 7 To sb.[K65536].End(xlUp).Row
If sb.Range("K" & sutc) = ComboBox11 Then
sb.Range("a" & sutc & ":s" & sutc).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
Private Sub UserForm_Initialize()
ComboBox11.RowSource = "K7:K" & [K7750].End(xlUp).Row
End Sub

 

[lansor]

sayın v.basic for üstadım.ne kadar teşekkür etsem azdır.allah razı olsun senden.merakım için özür hemde öğreneyim ilk verdiğin kodla bu kod aynı farkı nedir izah etmen mümkünmü tekrar tşk

 

[N.Ziya Hiçdurmaz]

Val(ComboBox1) Buradaki val değimi sayısal değerleri almak içindir değişiklik bu ve verilerin adresinde yapılmıştır.