Skip to main content

AccessTr.neT


Çift Tıklama Sorunu

Çift Tıklama Sorunu

Çözüldü #1
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
Cevapla
#2
Örneğiniz nerede?
Cevapla
#3
(13/10/2023, 10:44)atoykan yazdı: Örneğiniz nerede?

dosyayı ekledim teşekkürler
.rar cift tıklama.rar (Dosya Boyutu: 6,87 KB | İndirme Sayısı: 4)
Cevapla
#4
(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
Cevapla
#5
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?
Cevapla
#6
ş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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task