Aktif olan satırı yazdırmak

[omerselcukaydin]

Merhaba arkadaşlar. İki sayfalık bir excelim var. Buraya kişileri ekliyorum alt alta. En yeni olanı en üste. Birde yazdır butonu var. İkinci sayfamda değişkenlerinin yazıdırıldığım hazır bir dilekçe var.

Aktif olan hücrenin olduğu satırıdaki bilgileri 2.sayfada çeksin istiyorum. Ama bunu nasıl yapacağım hakkında en ufak fikrim bile yok. Siz üstatlardan yardımn almak istedim. Ekteki örnekteki gibi.

aktif satırı yazdırma

Liste Sıra,Adı Soyadı,Ameliyat Tarihi,Kalem,Talep Tarihi 0 1,Ali....,14.04.2023,3,18.04.2023 14:33 2,CEMİLE....,16.04.2023,4,18.04.2023 14:30 3,CANER ....,17.04.2023,6,18.04.2023 14:29 1,ZÜHRİYE.....,17.04.2023,5,18.04.2023 14:29 5,SITKI KARAMUSTAFA,17.04.2023,4,18.04.2023 14:28,Bu listede ameli...

docs.google.com

Yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub Yaz()
    Set s1 = Sheets("Liste")
    Set s2 = Sheets("tutanak")
    s1.Activate
    x = ActiveCell.Row
    s2.Cells(16, 5) = s1.Cells(x, 2)
    s2.Cells(17, 5) = s1.Cells(x, 3)
    s2.Cells(18, 5) = s1.Cells(x, 4)
    s2.PrintOut
End Sub

 

[omerselcukaydin]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub Yaz()
    Set s1 = Sheets("Liste")
    Set s2 = Sheets("tutanak")
    s1.Activate
    x = ActiveCell.Row
    s2.Cells(16, 5) = s1.Cells(x, 2)
    s2.Cells(17, 5) = s1.Cells(x, 3)
    s2.Cells(18, 5) = s1.Cells(x, 4)
    s2.PrintOut
End Sub

Hocam oldu çok teşekkürler. Çok işimi kolaylaştırdı. İyiki burası var iyiki varsınız.