Double Click ile Çoklu Sayfaya Aktarma

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sayfa As String
If Not Intersect(Target, Range("B6:B130")) Is Nothing Then
sayfa = "Zati Muhammen Bedel"
'ElseIf Not Intersect(Target, Range("A19:A28")) Is Nothing Then
'[B][U]sayfa = "Sınır Değer"[/U][/B]
'[B][U]sayfa = "Yaklaşık Maliyet"[/U][/B]
Else
Exit Sub
End If
Sheets(sayfa).Range("D3").Value = Target.Offset(0, 0).Value
Sheets(sayfa).Range("D4").Value = Target.Offset(0, 2).Value
Sheets(sayfa).Range("D5").Value = Target.Offset(0, 3).Value
Sheets(sayfa).Range("D6").Value = Target.Offset(0, 4).Value
Sheets(sayfa).Range("D7").Value = Target.Offset(0, 5).Value
Sheets(sayfa).Range("D8").Value = Target.Offset(0, 6).Value
Sheets(sayfa).Range("D9").Value = Target.Offset(0, 7).Value
Sheets(sayfa).Range("D11").Value = Target.Offset(0, 8).Value
Sheets(sayfa).Range("D12").Value = Target.Offset(0, 9).Value
Sheets(sayfa).Range("D13").Value = Target.Offset(0, 10).Value
Sheets(sayfa).Range("D14").Value = Target.Offset(0, 11).Value
Sheets(sayfa).Range("D15").Value = Target.Offset(0, 12).Value
Sheets(sayfa).Range("D16").Value = Target.Offset(0, 13).Value
Sheets(sayfa).Range("D17").Value = Target.Offset(0, 14).Value
Sheets(sayfa).Range("D18").Value = Target.Offset(0, 15).Value
'Sheets(sayfa).Range("C18").Value = Sheets("Yaklaşık Maliyet").Range("Q5")
'Sheets(sayfa).Range("C18").Value = Sheets("Sınır Değer").Range("Q5")

End Sub

Sınır Değer ile Yaklaşık Maliyet sayfalarını da eklemek istiyorum.
Yardımcı olabilir misiniz?

 

[BedriA]

Aşağıdaki gibi denediniz mi?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sayfa As String
If Not Intersect(Target, Range("B6:B130")) Is Nothing Then
sayfa = "Zati Muhammen Bedel"

Sheets(sayfa).Range("D3").Value = Target.Offset(0, 0).Value
Sheets(sayfa).Range("D4").Value = Target.Offset(0, 2).Value
Sheets(sayfa).Range("D5").Value = Target.Offset(0, 3).Value
Sheets(sayfa).Range("D6").Value = Target.Offset(0, 4).Value
Sheets(sayfa).Range("D7").Value = Target.Offset(0, 5).Value
Sheets(sayfa).Range("D8").Value = Target.Offset(0, 6).Value
Sheets(sayfa).Range("D9").Value = Target.Offset(0, 7).Value
Sheets(sayfa).Range("D11").Value = Target.Offset(0, 8).Value
Sheets(sayfa).Range("D12").Value = Target.Offset(0, 9).Value
Sheets(sayfa).Range("D13").Value = Target.Offset(0, 10).Value
Sheets(sayfa).Range("D14").Value = Target.Offset(0, 11).Value
Sheets(sayfa).Range("D15").Value = Target.Offset(0, 12).Value
Sheets(sayfa).Range("D16").Value = Target.Offset(0, 13).Value
Sheets(sayfa).Range("D17").Value = Target.Offset(0, 14).Value
Sheets(sayfa).Range("D18").Value = Target.Offset(0, 15).Value



sayfa = "Sınır Değer"

[COLOR="Red"](Bu sayfanın hangi hücrelerine veri gelecekse o hücreleri yukarıdaki gibi yazın buraya.)[/COLOR]

sayfa = "Yaklaşık Maliyet"
[COLOR="Red"](Bu sayfanın hangi hücrelerine veri gelecekse o hücreleri yukarıdaki gibi yazın buraya.)[/COLOR]

Else
Exit Sub
End If
End Sub

 

[sirkülasyon]

eyvallah üstad
teşekkür ettim