!!veri seçip aktarma!!

[tuncer17]

Merhaba arkadaslar ekteki denemenin veri sayfasında ilk sutunda ""poz no"" ile tanımlanmış sütundan istediğim veriyi tıklayıp uygulama sayfasına herhangi bir tuşla alt alta seçime göre aktarmak istiyorum nasıl yapabilirim acaba şimdiden teşekkürlr..

 

[eincioglu]

Biraz daha açabilirmisiniz konuyu, tıklayarak almaktan kastınız nedir ?

 

[Recep İpek]

Aşağıdaki kodları veri sayfanızın kod bölümüne kopyalayabilirsiniz.

Bu sayfadaki a kolonundaki herhangi bir poz numarasına çift tıklarsanız ,
ilgili no işlem sayfasındaki listenin en sonuna yazılır.

Sanırım bu şekil birşey istiyorsunuz.

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

 

[aydgur]

veri ekleme

çift tıkladığımız hücre aktarılıyor.peki ohücrenin yanındaki 7 hücre daha hep beraber kopyalanabilirmi ?

 

[Recep İpek]

Aşağıdaki kodu kullanabilirsiniz.

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("veri")
Set s2 = Sheets("işlem")
son = s2.Cells(65536, 1).End(3).Row + 1
s2.Range("a" & son & ":h" & son & "").Value = Range("a" & Target.Row & ":h" & Target.Row & "").Value
Target.Offset(1, 0).Select
Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub

 

[aydgur]

TeŞekkÜr Ederİm.