sayfa1 dekileri rapor sayfasına alma

[dersmx]

arkadaşlar merhaba sayfa1 deki verileri rapor sayfasına aktarmak istiyorum ekteki örnekte de göreceğiniz üzere rapor al butonuna tıkladığımda seçilen combodan ilçe ismini seçtiğimde rapor sayfasına sadece seçtiğim ilçenin verilerini nasıl getirebilirim? yardımlarınız için teşekkürler

 

[Recep İpek]

Sanırım bunun gibi olmasını istiyorsunuz.

 

[dersmx]

evet çok teşekkür ederim tam olarak istediğim buydu sağolun
peki rapor sayfasında ilçe sütunun gizlenmesini sağlayabilirmiyiz
çünkü raporu zaten ilçe adına göre alıyoruz ayriyaten orda yazılmasına gerek yok ama sayfanın başına yazılabilir mi kolay gelsin

 

[dersmx]

peki şöyle birşey yapabilir miyiz
ilçe isminin rapor sayfasında gözükmesini istemiorum. Bi de mesala okul ismi sayfa1 de D hücresinde ise rapor sayfasında E hücresinde olabilir mi?

 

[Recep İpek]

Dosyanızda bazı düzenlemeler yaptım.Makro Gelişmiş Filtreleme(Advanced Filter) ile çalıştığı için bazı alanları rapor sayfasına almama gibi seçeneğimiz yok.Bunun yerine bu alanları Hide ile gizleyebilirsiniz.

 

[dersmx]

sayın ripek verdiğiniz cevaplar için teşekkür ederim.
Eğer kabul buyurursanız birkaç sorum daha olacaktıç
kodları inceledim fakat o hücreleri nasıl gizlediniz anlayamadım kodla değil de başka bir metotla mı yaptınız?
diğer sorum da diyelim ki sayfa1 deki verileri değiştirmeden rapor sayfasında mesela tc kimlik nosu ilk hücre de sonra adı sonra okul şeklinde yapabilr miyiz

herşey için çok sağolun umarım anlatabilmişimdir

 

[Recep İpek]

Sn.dersmx,

Kolonu gizlemek için bildiğimiz işlemi, yani kolonu seçip sağ klik [bHide[/b] yapmamız yeterlidir.

2.sorunuz için ilk sayfayada TC kimlik Numarasını yazmamız gerekmektedir.

Bunlara göre kodları kendinize göre uyarlamanız gerekmektedir.

 

[dersmx]

teşekkür ederim Sn. ripek
gizleme işlemini yaptım ilk sayfamı ona göre uyarlamaya çalışacağım
yardımlarınız için çok sağolun

 

[dersmx]

peki şöyle birşey yapabilirmiyiz
diyelim ki ilçeye göre rapor aldık rapor sayfasında mart sütunundaki değerleri sütunun sonunda toplamını yapabilecek bir kod yazabilirmiyiz?

 

[Recep İpek]

Bunun için birkaç yöntem var ama, en uygun olanı ekteki dosyada yaptığım gibi
20 satırlık bir şablon oluşturup sonuna toplamları aldırmak.

Eğer rapor sonuçları 20 satırdan fazla veya az ise siz kendinize göre düzenleyebilirsiniz.

Makro kodlarındaki;

Set alan3 = s2.Range("D5:S25")

satırınıda düzeltmeniz gerekmektedir.

 

[orhankilerci]

benzer konuda banada yardımcı olursanız sevinirim..
sayfa 2 deki dökümandan (yaklaşık 10bin satır)sayfa 1 e tarihe göre ,dökümandan istediğim sutun bilgilerini raporlaya bilirmiyim..
kolaygelsin..

 

[orhankilerci]

ornek dosya ektedir ..kolay gelsin

 

[Recep İpek]

Dosyanız ektedir.
Sayfa 1'deki 5.satırdaki kriterlere göre listemeleme yapar.
Yanlız Sayfa 2'den tüm bilgileri alır.Siz istemediğiniz kolonları Sayfa 1'de Hide ile gizleyebilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Sn. ripek sanırım arkadaşımız aynı "MÜŞTERİ,FİRMA,CİNS" leri tek satırda filtrelemek istiyor. Eğer istediğiniz bu şekilde ise ekteki örneği incelermisiniz.

 

[orhankilerci]

sn.ripek , sn.cost control ilginize teşekkür ederim.
sn.cost control sanırım sizin örneğinizden anladığım kadarıyla istediğim bu fakat aktar dediğimde hata veriyor.sizin düzenlemeniz üzerinden,makroyu çalışmış kabul edersek sayfa 1 in ekteki gibi olması gerekiyor..saygılar..

 

[Korhan Ayhan]

Selamlar,

Nasıl bir hata mesajı alıyorsunuz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Set S3 = Sheets("Sayfa3")
    TARİH = CDate(S1.[G3])
    S1.[B7:G65536].Clear
    S3.Cells.Delete
    SAY = WorksheetFunction.CountIf(S2.[A6:A65536], TARİH)
    If SAY = 0 Then GoTo Son
    S2.[A4].AutoFilter Field:=1, Criteria1:=TARİH
    S2.Range("A4:J" & S2.[A65536].End(3).Row).Copy S3.[A1]
    S3.[A:C,H:H].Delete Shift:=xlToLeft
    S3.Columns("A:A").Cut
    S3.Columns("F:F").Insert Shift:=xlToRight
    S3.Columns("A:A").Cut
    S3.Columns("F:F").Insert Shift:=xlToRight
    S3.Columns("A:A").Cut
    S3.Columns("E:E").Insert Shift:=xlToRight
    S3.Columns("A:C").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    S3.Range("A2:F" & S3.[A65536].End(3).Row).Copy S1.[B7]
    S1.Columns("B:G").HorizontalAlignment = xlCenter
    S1.[B7:G65536].Sort Key1:=S1.[B7], Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
    [A1].Select
    S2.[A4].AutoFilter
    For X = 7 To S1.[B65536].End(3).Row
    ADRES1 = S3.Name & "!" & S3.Cells(2, 1).Address & ":" & S3.[A65536].End(3).Address
    ADRES2 = S3.Name & "!" & S3.Cells(2, 2).Address & ":" & S3.[B65536].End(3).Address
    ADRES3 = S3.Name & "!" & S3.Cells(2, 3).Address & ":" & S3.[C65536].End(3).Address
    ADRES4 = S3.Name & "!" & S3.Cells(2, 6).Address & ":" & S3.[F65536].End(3).Address
    ADRES5 = S3.Name & "!" & S3.Cells(2, 5).Address & ":" & S3.[E65536].End(3).Address
    KRİTER1 = Cells(X, 2)
    KRİTER2 = Cells(X, 3)
    KRİTER3 = Cells(X, 4)
    KRİTER4 = Cells(X, 7)
    TOPLAM = Evaluate("=SUMPRODUCT((" & ADRES1 & "=""" & KRİTER1 & """)*(" & ADRES2 & "=""" & KRİTER2 & """)*(" & ADRES3 & "=" & KRİTER3 & ")*(" & ADRES4 & "=""" & KRİTER4 & """)*(" & ADRES5 & "))")
    S1.Cells(X, 6) = TOPLAM
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    Application.ScreenUpdating = True
    MsgBox "VERİLER BAŞARIYLA AKTARILMIŞTIR.", vbInformation
    Exit Sub
Son:
    MsgBox "VERDİĞİNİZ TARİHE AİT VERİ BULUNAMAMIŞTIR.", vbExclamation
End Sub

 

[orhankilerci]

hata kodu .. "kopyala ile tanımlanan alan ve yapıştırma alanı aynı boyut ve şekilde olmadığı için bilgiler yapıştırılamaz"..

S2.[A4:J6556].Copy S3.[A4:J6556]

saygılar.

 

[orhankilerci]

sn.cost control
son gönderdiğiniz koda görede aynı hata mesajını veriyor .hata bölgesi olarak


S2.[A4].AutoFilter Field:=1, Criteria1:=TARİH
S2.Range("A4:J" & S2.[A65536].End(3).Row).Copy S3.[A1]
S3.[A:C,H:H].Delete Shift:=xlToLeft
S3.Columns("A:A").Cut
S3.Columns("F:F").Insert Shift:=xlToRight S3.Columns("A:A").Cut

saygılar..

 

[Korhan Ayhan]

Selamlar,

Defalarca denememe rağmen bahsettiğiniz kısımda bende hata vermiyor. Belki versiyondan kaynaklanabilir. Kod üzerinde biraz değişiklik yaptım. Ayrıca son verdiğiniz örnek dosyada Sayfa2 de ayın 17. sindeki firmalardan birinin kodu yok. Bu durumda aktarılan sayfada ilgili firmanın satırında ağırlık kısmı hatalı sonuç verecektir. Bunu önlemek için Sayfa2 deki bu sütunu kontrol etmelisiniz. Umarım faydası olur.