Filtrelenen veriyi diğer sayfaya otomatik aktarma ?

[RenaCC]

Merhaba cok araştırmama rağmen bu konu ile ilgili problemime çözüm bulamadım.Siz bilgili arkadaşlarıma sormak istedim.

Bendeki dosyada KAYITLAR sayfasında bir YAZDIR butonu var.Bu yazdır butonuna bastığım zaman.Filtreleme yaptığımda gelen satırın,B3,D3,F3,G3,H3 değerlerinin MAKBUZ ÇIKTISI SAYFASINDA Kİ karşılıklarına yazmasını istiyorum.

Yani olay geçmişe dönük bir faturanın makbuzunu yazdırmak istediğinde örneğin tesisat numarasına göre arama yaptığında gelen satırı makbuz çıktısı bölümüne aktarması.
Bunu bir türlü yapamadım.Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Bu işlemi formülle de yapabilirsiniz.

Dizi formülüdür.

Formülde kırmızı işaretlediğim bölüm sütun indisini ifade ediyor.
1 olduğu zaman B:H arasındaki 1.sütundaki değeri yani B sütunundaki değeri alır.
3 olduğu zaman B:H arasındaki 3.sütundaki değeri yani D sütunundaki değeri alır.
Siz ona göre ilgili bölüme formülü yazarken bu bölümü değiştirirsiniz.

=İNDİS(KAYITLAR!B3:H1000;MİN(EĞER(ALTTOPLAM(3;KAYDIR(KAYITLAR!B3:B1000
 ;SATIR(KAYITLAR!B3:B1000)-SATIR(KAYITLAR!B3);;1))>0
  ;SATIR(KAYITLAR!B3:B1000)-SATIR(KAYITLAR!B3)+1));[B][COLOR="Red"]1[/COLOR][/B])

.

 

[RenaCC]

Merhaba Cevabınız için teşekkür ederim.Bu formülü nereye yazacağım.Ben bu işlemi Yazdır butonu ile yaptırmak istiyorum.Kayıtlar sayfasında 100 lerce kayıt biriktikten sonra filtreden bir kayıt çağırında satır numarası değişiyor.

 

[Ömer]

Eki inceleyin.
Hangi aboneyi seçerseniz Makbuz çıktı sayfasında o aboneye ait bilgilerin geldiğini görebilirsiniz.

İstediğiniz bu değil mi?

.

 

[RenaCC]

Eki inceleyin.
Hangi aboneyi seçerseniz Makbuz çıktı sayfasında o aboneye ait bilgilerin geldiğini görebilirsiniz.

İstediğiniz bu değil mi?

.

Yok bu şekilde değil.Şimdi ben makbuz sayfasından makbuz kesilecek abone yi giriyorum.Kaydet diyorum.Oda kayıtlar kısmına kaydediyor.Kaydet ve yazdır dersem hem kaydedip hem yazdırıyor.Hep en üstteki değeri yazıyor makbuz çıktısına.

Fakat bir müşteri geldi diyelim makbuzunu soruyor.Filtreleme kısmına girdim tesisat numarasını arattım getirdim.Yazdır butonuna bastığım zaman filtrelediğim değerleri makbuz çıktısına gönderecek ve printpreview yapacak

 

[Ömer]

Aktarma işlemi olarak formül aynı işlemi yapıyor. Fakat ekran görüntüsünü makro ile yapacaksanız, formül kullanımına da gerek kalmaz.

Sub yazdir()
    
    Dim sat As Long, i As Byte
    
    sat = Cells(Rows.Count, "B").End(xlUp).Row
    
    With Sheets("MAKBUZ ÇIKTISI")
        For i = 2 To 6
            .Cells(6, i) = Cells(sat, i)
        Next i
        
        .Range("B10") = Cells(sat, "G")
        .Range("D10") = Cells(sat, "H")
    
        .PrintPreview
    End With
        
End Sub

.

 

[RenaCC]

Çok teşekkür ederim güzel olmuş fakat bir problem daha çıktı.Bu kezde Kaydet ve yazdır butonuna tıklayınca debug hatası alıyorum.Yani sizin kodu ekledim oldu.Yeni giriş yaparken kaydet ve yazdır yaptığımda bir satırda hata alıyorum

 

[Ömer]

Kaydet ve yazdır koduyla yapmak istediğiniz nedir?

.

 

[RenaCC]

Tamamdır onuda çözdüm.Çok çok teşekkür ederim.Çok yardımcı oldu gerçekten.