Comboxta Secİlen Verİ İle Sayfadan İlgİlİ Satirlara Verİ Aktarimi

[taseraydin]

Degerli Ustad Arkadaslar Isimin Geregi Acilen Ihtiyac Duydugum Sayfalar Arasi Veri Aktarma Makrosunda Yardimlarinizi Bekliyorum Saygilar Sevgiler

 

[hamitcan]

Eki inceleyin.

 

[taseraydin]

Ek Bİr Makro Daha İlave Edebİlİrmİyİz

İLGİNİZE TEŞEKÜR EDERİM
Tahakkuk sayfasından gelen bu tabloda bulunan tahakkuk et - yazdır düğmesine şöyle bir makro ekleyebilirmiyiz

 

[hamitcan]

Son sorunuzu açıkcası tam olarak anlamadım. Ya da siz gönderdiğim dosyayı tam olarak incelemediniz.

 

[taseraydin]

Yenİ Bİr İlave Makro

DÜzenlemİŞ OlduĞunuz Dosyayi İnceledİm Ve İŞlem Yapabİlİyorum Sadece İlgİnİze GÜvenerek İlave Bİr Makro Daha İstemİŞtİm ŞÖylekİ Bİr TuŞa Tabloya ÇaĞrilan Verİlerİn Pirint Edİldİkten Sonra Verİlerİn BulunduĞu Sayfadan Sİlİnp DİĞer GerÇekleŞmeler Dİye Bİr Sayfaya Sirali Şekİlde Atmasini İstemİŞtİm.

 

[hamitcan]

Eki inceleyin.

 

[taseraydin]

SAYFA İSİMLERİ farklı

SN.HAMİDCAN
bu yaz sıcaklarında sizide fazla uğraştırdım. Özür dilerim
DOSYADAKİ SAYFALARIN ADI (TAHAKKU LİSTESİ - ÖDELER TOPLAMI - GERÇEKLEŞMELER) "TAHAKKUK" SAYFASINDAN ALINAN VERİLER ÖDEMELRR TOPLAMINDAKİ TABLOYA YERLEŞİYOR BURAYA KADAR TAMAM SAYENİNİZDE HALLETTİM ANCAK EN SON İSTEDİĞİM KONU ŞU TAHAKKUK SAYFASINDAKİ BİLGİLER SİLİNSİN GERÇEKLEŞMELER DOSYASINA SIRALI YERLEŞSİN

GÖNDERDİĞİNİZ DOSYADA AŞAĞIDAKİ MACROYU
ZANNEDERSEM BUNA UYGUN ANCAK SAYFA İSİMLERİ Sayfa1-Sayfa2 gibi farklı bu konuda fazla bir becerim olmadığından düzenlemeye kalktım olmadı
birde bu macroyu bir tuşala tamamlabiliriz zannedersem

****************
Private Sub Workbook_BeforePrint(Cancel As Boolean)
son = Sayfa2.[a65536].End(3).Row + 1
bul = WorksheetFunction.Match(Sayfa3.ComboBox1.Text, Sayfa1.[b1:b2000], 0)
say = WorksheetFunction.CountIf(Sayfa1.[b1:b2000], Sayfa3.ComboBox1.Text)
If ActiveSheet.Name = "ödemeler toplamı" Then
Sayfa2.Rows(son & ":" & son + say - 1) = Sayfa1.Rows(bul & ":" & bul + say).Value
Sayfa1.Rows(bul & ":" & bul + say).Delete
[b6:g21].ClearContents
Sayfa3.ComboBox1 = ""
End If
End Sub

 

[hamitcan]

Kodlarda ufak değişiklikler yaptım. Bir de bunu deneyin.Not: Siz tabloyu yazdırdığınızda, makro kendiliğinden çalışacaktır. Bilginize...

 

[taseraydin]

Dosya çalışıyor.Sorun Yok

bilgilerinizi benimle paylaştığınız için içten teşekürler saygılar sunarım.

 

[taseraydin]

sayfalardaki birden fazla macroyu tek makro haline getirebilirmiyiz

düzenlediğiniz dosyada bazı değişiklik yaptım fakat bağzı basit problemler oluştu macroda fazla bir bilgim olmadığı için bir türlü sorunu cözemedim dosyayı tekrar inceleme imkanınız olursa memnun olurum saygılar,

 

[hamitcan]

Umarım doğru anlamışımdır. Aşağıdaki şekilde deneyin.

Sub Makro2()
Düğme10_Tıklat
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
    Sheets("ODEMEEMRI").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
    Sheets("ödemelertoplamı").Select
    Range("B3:C4").Select
End Sub