Sayfadan sayfaya seçerek veri aktarımı

[canmert01]

Kıymetli hocalarım,sayenizde excell konusunda kendimi geliştirmekte ,yazılan konular ve verilen cevapları takdirle izlemekteyim.
işim gereği günde 2 yada 3 teklif hazırlamam gerekebiliyor.Bildiğim kadarı ile hazırlayabiliyorum.Uzun bir zamandır daha kısa ve pratik bir proğram yapmakla uğraşmaktayım ,fakat başaramadım,İsteğimi sizlerle paylaşmak istedim bir çare olabileceğinizi umuyorum.İlgilenen arkadaşlara teşekkür ederim..

 

[tahsinanarat]

ekli dosyanızda ben bir şey göremiyorum, yanlış mı gönderdiniz acep.

 

[canmert01]

ekli dosya ektedir

 

[meslan]

Merhaba

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
son = Sheets("TEKLİF").[b150].End(3).Row + 1
If WorksheetFunction.CountIf(Sheets("TEKLİF").[b:b], Target.Value) > 0 Then sor = MsgBox("Bu Kayıt Var Devam Edilsin mi?", vbYesNo, Application.UserName)
If sor = vbNo Then Exit Sub
Sheets("TEKLİF").Cells(son, 1) = WorksheetFunction.Max(Sheets("TEKLİF").[a:a]) + 1
Sheets("TEKLİF").Cells(son, 2) = Target.Value
Sheets("TEKLİF").Cells(son, 5) = Cells(Target.Row, 2)
MsgBox "" & Target.Value & "  " & "aktarıldı"
End Sub

Kolay gelsin.

 

[canmert01]

sayın meslan;ne kadar teşekkür etsem azdır.elinize emeğinize gözünüze sağlık,
başarılarınızın devamı dileğiyle

 

[tahsinanarat]

Seçere aktarma

Data sayfasından a sutununda seçilenleri, buton yardımı ile teklif sayfasına aktarmaya çalıştım, belki işinize yarar. Kolay gelsin.