kod editörüne aşağıdaki kodları yazdım ama olmuyor. Yapmak istediğim b sütundaki belli aralıklardaki veriyi L sütunun belli aralığına yazdırmak. tek şatta oluyor çok şat olması gerekir yapamadım yardımcı olabilecek arkadaş var mı.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If Target.Column = 2 Then
Sheets("AnaSayfa").Range("L2").Offset = Target.Offset
End If
End Sub
na calişiyor ama ben "b1:b5" L2 ye "b6:b10" L3 ve "b10:b10" L4 yazsın yapamadım
Çift Tıklama Sorunu
Örneğiniz nerede?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Column = 2 Then
Dim StartRow As Long
Dim EndRow As Long
Dim TargetRow As Long
Dim CopyRange As Range
TargetRow = Sheets("AnaSayfa").Range("L" & Rows.Count).End(xlUp).Row + 1 ' Hedef satırı belirleyin
StartRow = (TargetRow - 2) * 5 + 1 ' Kopyalayacağınız aralığı belirleyin
EndRow = StartRow + 4
Set CopyRange = Target.Worksheet.Range("B" & StartRow & ":B" & EndRow) ' Hedef hücrelere veriyi kopyalayın
CopyRange.Copy Destination:=Sheets("AnaSayfa").Range("L" & TargetRow)
End If
End Sub
kodu ile dener misiniz?
şefim olmadı ya benim yapmak istediğim; belli aralıktaki saylardan birini L sütunundaki belli bir hücreye yazdırmak. B sütunundaki ilk beş hücredeki herhangi bir bilgiyi L2 atamak daha sonra B sütunluda bulanan beş ile on asındaki bir bil giyide L3 atamak
Konuyu Okuyanlar: 1 Ziyaretçi