SeÇİlenİ Yazdir Makrosu

[bernemej]

arkadaşlar merhaba ekte gönderdiğim kitapta listede seçeceğim satırdaki E,F,G,H ve I sütunlarındaki hücrelerde bulunan bilgileri diğer çalışma sayfasındaki (ihtarname) metinde boş olan ilgili hücrelere gönderip yazdıracak makroya ihtiyacım var. eğer yanlış anlatmışsam özür dilerim eke bakarsanız ne demek istediğimi daha iyi anlayabilirsiniz. şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu "liste" isimli sayfanızın kod bölümüne uygulayınız. Daha sonra bu sayfada iken herhangi bir satırı seçip "ihbarname" isimli sayfanızı açınız ve yazdırınız. Umarım işinize yarar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Sheets("ihtarname")
    .Range("B5007") = Cells(Selection.Row, "E")
    .Range("C5007") = Cells(Selection.Row, "F")
    .Range("B5008") = Cells(Selection.Row, "H")
    .Range("A5016") = Cells(Selection.Row, "G")
    .Range("B5017") = Cells(Selection.Row, "I")
    End With
End Sub

 

[bernemej]

sayın COST CONTROL çok teşekkürler

arkadaşım yardımın için çok sağol, çok işime yaradı sana minnettarım.
saygılarımla