Çift Tıklama Sorunu - Baskı Önizleme

Çift Tıklama Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çift Tıklama Sorunu (/konu-cift-tiklama-sorunu--90721.html)

Sayfalar: 1 2

Çift Tıklama Sorunu - agunes42 - 13/10/2023

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

RE: Çift Tıklama Sorunu - atoykan - 13/10/2023

Örneğiniz nerede?

RE: Çift Tıklama Sorunu - agunes42 - 13/10/2023

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

dosyayı ekledim teşekkürler

RE: Çift Tıklama Sorunu - agunes42 - 15/10/2023

(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

RE: Çift Tıklama Sorunu - atoykan - 16/10/2023

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?

RE: Çift Tıklama Sorunu - agunes42 - 17/10/2023

ş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