aktarma

[beterbug]

sayfa1 deki ismlerden birine tıklandığında, bu isme ait bilgilerin sayfa2 deki başlıkların altına yazılmasını istiyorum ama visual basic bilmiyorum yardım ederseniz sevinirim

 

[kombo]

Çalıştığınız sayfanın kod sayfasına yazın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
If Target = "" Then Exit Sub
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s2.Cells(65536, "a").End(3).Row + 1
s2.Range("a" & son & ":d" & son & "").Value = Range("a" & Target.Row & ":d" & Target.Row & "").Value
Target.Offset(1, 0).Select
Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıdadır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sonsat As Long, i As Byte
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
sonsat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
If sonsat = 65535 Then
    MsgBox "SAYFA DOLDU.BAŞKA KAYIT YAPAMAZSINIZ..!!", vbCritical
    Exit Sub
End If
For i = 1 To 4
    Sheets("Sayfa2").Cells(sonsat + 1, i).Value = Cells(ActiveCell.Row, i).Value
Next i
End Sub

 

[kombo]

Dosyayı eklememişim.

 

[beterbug]

ilginiz için teşekkür ederiimm