AccessTr.neT

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

Örneğiniz nerede?

(13/10/2023, 10:44)atoykan yazdı: [ -> ]Örneğiniz nerede?

dosyayı ekledim teşekkürler

(13/10/2023, 11:58)agunes42 yazdı: [ -> ]

(13/10/2023, 10:44)atoykan yazdı: [ -> ]Örneğiniz nerede?

dosyayı ekledim teşekkürler

yardım edeniniz yokmu benim için önemli bi sorun

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