Macro'da değişiklik ve/veya ilave

[1Al2Ver]

Merhabalar, aşağıdaki macro'da ; sayfada mevcut satıra(B) çift tıklama yapıldığında "teklif" sayfasına aktarılan verilerin, teklif sayfası B5 sütununa aktarılmasını (hali hazırda aktarma, B2'den başlıyor)
Bu kodun neresi değişmeli ve/veya koda ne ilave edilmeli?

Teşekkür ederim,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("teklif")
Cancel = True
sat = Target.Row
sat2 = s1.[a65536].End(3).Row + 1
s1.Rows(sat2).Insert
Range(Cells(sat, "b"), Cells(sat, "c")).Copy s1.Cells(sat2, "b")
s1.Cells(sat2, "a") = sat2 - 1
Range("b5:c" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
Range("b" & sat & ":c" & sat).Interior.ColorIndex = 37
End Sub

 

[Necdet]

Merhaba,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("teklif")
Cancel = True
sat = Target.Row
sat2 = s1.[a65536].End(3).Row + 1
[B][COLOR=red]If sat2 < 5 Then sat2 = 5[/COLOR][/B]
's1.Rows(sat2).Insert
Range(Cells(sat, "b"), Cells(sat, "c")).Copy s1.Cells(sat2, "b")
s1.Cells(sat2, "a") = sat2 - 1
Range("b5:c" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
Range("b" & sat & ":c" & sat).Interior.ColorIndex = 37
End Sub

bir deneyin

 

[1Al2Ver]

Merhaba,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("teklif")
Cancel = True
sat = Target.Row
sat2 = s1.[a65536].End(3).Row + 1
[B][COLOR=red]If sat2 < 5 Then sat2 = 5[/COLOR][/B]
's1.Rows(sat2).Insert
Range(Cells(sat, "b"), Cells(sat, "c")).Copy s1.Cells(sat2, "b")
s1.Cells(sat2, "a") = sat2 - 1
Range("b5:c" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
Range("b" & sat & ":c" & sat).Interior.ColorIndex = 37
End Sub

bir deneyin

Sayın Yeşertener, merhaba, teşekkür ederim, kod satır 5'e taşıdı,

ilave istek ; "D" sütununu da "teklif" sayfasına taşıtmak istiyorum, dolayısı ile koda ne ilave etmeliyim ?

saygılarımla