Kısa Açıklama
Kod çalışma hatası isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
İyi günler üstadlarım.
Aşağıdaki kodu kendimizce uyarladık.
Kodun ilk kısmı çalışıyor,
Diğerleri çalışmıyor.
Yardımcı olabilir misiniz?
Şimdiden teşekkür ederiz.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 7))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 11))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("P:P")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 15))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("T:T")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 19))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
End Sub
Aşağıdaki kodu kendimizce uyarladık.
Kodun ilk kısmı çalışıyor,
Diğerleri çalışmıyor.
Yardımcı olabilir misiniz?
Şimdiden teşekkür ederiz.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 7))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 11))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("P:P")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 15))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
If Intersect(Target, Range("T:T")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 19))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")
End Sub
