satırdakı bılgılerı ıceren bır rapor hazırlama

[umut33]

excelde bır sayfaya alt alt bılgıler gırılmekte. her satırın sonuna rapor butunu koyup o satırdakı bılgılerı ıceren bır rapor hazırlamak ıstıyorum. raporların kayıtlı durması gerekmıyor ama her satırdakı rapora basınca o satırdakı bılgılerın yer aldıgı bır rapor ıstıroyum. yardımcı olursanız sevnırım.

 

[Emir Hüseyin Çoban]

. . .

Merhaba, öncelikle foruma hoşgeldiniz.
Ancak konu başlığınız hatalı, sorunuzu özetleyecek şekilde konu başlıkları yazmalısınız.
Uygun şekilde değiştirin.

Sorunuz yapılabilecek birşey. Hatta şöyle yapsak nasıl olur ?
Çok fazla buton kullanmak yerine.
Anasayfa sayfada A sütununda seçili satırı aktarsak olmaz mı ?

. . .

 

[umut33]

harika olur ama nasıl olmalı.(konu başlığı değişmedi dikkat edecem bır daha)

 

[Emir Hüseyin Çoban]

. . .

Anasayfa A sütununda aktarmak istediğiniz satırı seçip, aşağıdaki kodları çalıştırın.

Sub kod_bir()
aa = Selection.Row

If ActiveSheet.Name = "anasayfa" And Selection.Column = "1" Then
Sheets("rapor").Cells(3, "a") = Sheets("anasayfa").Cells(aa, "b")
Sheets("rapor").Cells(7, "a") = Sheets("anasayfa").Cells(aa, "c")
Sheets("rapor").Cells(7, "d") = Sheets("anasayfa").Cells(aa, "d")
Sheets("rapor").Cells(7, "g") = Sheets("anasayfa").Cells(aa, "e")
MsgBox " B i t t i "
Else
MsgBox " A sütununda seçim yapmalısınız.", vbCritical
End If

End Sub

. . .

 

[umut33]

tesekkur ısterım ıstedıgım tam olarak buydu. ama kod calısınca rapor sayfasının acılması ıcın ne yazmalıyım sonuna

 

[Emir Hüseyin Çoban]

. . .

End Sub satırından önce aşağıda kırmızı ile belirttiğim, komutu ilave edin.

Sheets("rapor").Select
End Sub

. . .

 

[umut33]

tşkler
tamamen hallettık