Satırdakileri Alt Alta sütunlara aktarma

[appiahluci]

Kolay gelsin arkadaşlar, Ekte hazırlamış olduğum programda son aşama,

''VERİ'' sayfasındaki istediğim bir satırı seçerek oradaki;

Numune Cinsi
Numune No
Lab'a Geliş Tarihi
Numune Geliş Şekli
Parametreleri

bulunan hücrelerdeki verileri bir tuşla, ''ETİKET'' adındaki sayfamdaki hücrelere (C2,C3,C4,C5 ve C6) aktarmak istiyorum bunu nasıl yapabilirim yardımcı olabilir misiniz?

Aynı anda ''ETİKET'' sayfasında ki tablonun çıktısını da alabilir miyiz?

 

[Orion1]

Dosyayı ekledim.
aktarcağınız satırın üstüne çift tıklayaınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sonsat As Long, sh As Worksheet
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
If Intersect(Target, Range("A2:K" & sonsat)) Is Nothing Then Exit Sub
On Error Resume Next
Set sh = Sheets("ETİKET")
Cancel = True
sh.Range("C2").Value = Cells(Target.Row, "B").Value
sh.Range("C3").Value = Cells(Target.Row, "A").Value
sh.Range("C4").Value = Cells(Target.Row, "E").Value
sh.Range("C5").Value = Cells(Target.Row, "H").Value
sh.Range("C6").Value = Cells(Target.Row, "J").Value

End Sub

 

[appiahluci]

Çok teşekkür ederim Orion1 iş tamamdır süper oldu