Tüm Birimlerden Rapor Alma

[Mustafa MUTLU]

Sütün A dan AQ ya kadar veri kadediyorum.
Rapor almak için UserForm da Şu Kodu Kullanıyorum

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
sat = 2
Sheets("Sayfa3").Range("B2:AQ65536").ClearContents
For i = 2 To Cells(65536, "B").End(xlUp).Row
If Cells(i, "B").Value >= CDate(TextBox1.Text) And _
Cells(i, "B").Value <= CDate(TextBox2.Text) Then
Sheets("Sayfa3").Range("B" & sat & ":AQ" & sat).Value = _
Range("B" & i & ":AQ" & i).Value
sat = sat + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "İki tarih aralığı sayfa3ye aktarıldı." & _
vbLf & vbLf & "www.excel.web.tr", vbOKOnly + vbInformation, "www.excel.web.tr"

Worksheets("Sayfa3").Select
Range("B2:AQ65000").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Worksheets("Sayfa1").Select

End Sub


Bu Koda göre sadece B sütunundaki tarihe göre veri çağırabiliyorum.
İsteğim : B sütünu yerine A1 e yazacağım veriyi rapor etsin.
A1 e yazacağım veri D Yada AB gibi farklı sütünlarda olabilir.
Y sütununda bulunan verilerden birini A1 e yazdığımda B sütunundan AQ sütununa kadar verileri getirmeli.

Örnek Dosya Ekte

İlginize Teşekkür Ederim...

 

[Orion1]

Soruyu sormadan önce Kodu incelemenizi öneririm.
Üzerinde az bir deneme yanılma yöntemi ile bulacağınızı tahmin ediyorum.
Aşağıdaki kodda sizce neresi B sütunundan sorgulama yapıyor?
Soruya cevap veiriseniz sorduğunuz sorunun cevabıda olacaktır ayni zmanada .Kolay gelsin.

For i = 2 To Cells(65536, "[B][COLOR="Red"]B[/COLOR][/B]").End(xlUp).Row
If Cells(i, "[B][COLOR="Red"]B[/COLOR][/B]").Value >= CDate(TextBox1.Text) And _
Cells(i, "[B][COLOR="Red"]B[/COLOR][/B]").Value <= CDate(TextBox2.Text) Then

 

[Mustafa MUTLU]

Sayın Evren Hocam

Bunu denemeyle yapmıştım Hocam
Ancak B yerine L yazdığımda B den K ya kadarki değerleri almıyor.

Ayrıca Sonraki sütularda tarih yok isim veya adresler var.

Benim sorunum bu ...

İlgine Teşekkür Ederim..

 

[Mustafa MUTLU]

Bunu Kodu : Açıkladığım şekilde değiştirebilirmiyiz..

Forma bir text koyalım onuda Sayfa1 A1 e kayıt yaptıralım.

Raporu A1 deki değere göre alsın.

A1 e yazdığım Veri K sütununda olabilir
Rapor alırken B den Başlayarak AQ ya kadar almalı

Yukarıdaki Kod sadece Tarih ve Rakama göre ayarlanmış
Bana Metine görede olması lazım..

Teşekkürler........

 

[Orion1]

Bunu anlamadım
2 çeşit kullanrak siz elle yapın.Ben onradan ne istediğinizi anlarım.
Siz elle yapın ben kod ile yaparım onu.
Örnek dosya ekleyiniz.

 

[Mustafa MUTLU]

Örnek yaparak ekledim Hocam..

 

[Mustafa MUTLU]

Birde tarih sorununu düzeltirseniz sevinirim.
01.09.2011 olarak kaydettiğimi
09.01.2011 olarak alıyor rapor bölümüne..

 

[Orion1]

Ben tarih leri ve ad soyadı için kodlama yaptım.
Hem comboboxta listeleme hemde rapor için.
Onlara bakıp diğerlerini siz yapınız.
Dosyanız ektedir.
Koay gelsin.