Macroya ilave kod

[1Al2Ver]

Bu kod ile "teklif" sayfasına diğer sayfadaki "B" ve "C" kolonu gibi "D" kolonunu da aktarmak için nasıl bir ilave yapılmalıdır, 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
If sat2 < 5 Then sat2 = 5
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 = 6
End Sub

 

[karadami]

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
If sat2 < 5 Then sat2 = 5
[COLOR=blue]Range(Cells(sat, "b"), Cells(sat, "d")).Copy s1.Cells(sat2, "b")[/COLOR]
s1.Cells(sat2, "a") = sat2 - 1
Range("b5:c" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
Range("b" & sat & ":c" & sat).Interior.ColorIndex = 6
End Sub

 

[1Al2Ver]

[COLOR="Red"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/COLOR]
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
If sat2 < 5 Then sat2 = 5
[COLOR="red"]Range[/COLOR](Cells(sat, "b"), Cells(sat, "c"),Cells(sat, "d")).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 = 6
End Sub

Sayın Karadamı,teşekkür ederim, ilave kodu denemiştim ve yukarıda kırmızı renkle belirttiğim hata almıştım, yine aynı hatayı işaretledi ve " wrong number of arguments or invalid property assignment " mesajı verdi.

 

[karadami]

kodu guncelledim &#351;imdi dener misiniz l&#252;tfen...

 

[1Al2Ver]

kodu guncelledim &#351;imdi dener misiniz l&#252;tfen...

Say&#305;n Karadami, merhaba, d&#252;zeldi, sorun yok, ilginiz ve yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok te&#351;ekk&#252;r ederim, sayg&#305;lar&#305;mla.

 

[karadami]

rica ederim, iyi &#231;al&#305;&#351;malar fakat "Karadam&#305;" de&#287;il "karadami" yaz&#305;ld&#305;&#287;&#305; gibi okunur