İlk beş hücredeki herhangi bir bilgiyi diye açıklarsanız amacınızı bizde herhangi bir kaydı alır atarız yine olmadı dersiniz. Ne yapmak istediğinizi mantığını, işleyişini, ne olunca ne olacak ve olmaması durumunda ne olacak izah edin ki ona göre bakalım. konuyu siz biliyorsunuz biz sizin yazdıklarınızla anlamaya çalışıp yardımcı olmaya çalışıyoruz sizin kafanızın içindekileri bilme şansımız yok.
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
Merhaba.Dosyayı incelemedim ama koda bakınca zaten yukardaki gereksiz birincisi.
İkinci olarak mantıken alttaki gibi yazılıp devam edilir if yada elseif yada select case ile.Alttaki kodu mobilden yazdığım için denemedim hatada verebilir ama sanmıyorum.Eğer kod anasayfa kodu içindeyse
Sheets("AnaSayfa").Range("L3"). Bunu yazmayada gerek yok.
If target.row>=6 and target.row<=10 then Sheets("AnaSayfa").range("L3").value= target.value
If Target.Column = 2 Then
Yukardaki kodun altına eklemwniz gerek tabii dedğim kodu.
Ayrıca başlık çift tıklama ama kod tek tıklama içinde.
Çift için yanılmıyorsam double_click koduna yazılacak.
PHP Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Select Case Target.Row
Case 1 To 5: [L2] = Target.Value
Case 6 To 9: [L3] = Target.Value
Case 10 To 14: [L4] = Target.Value
End Select
End If
End Sub
feraz abim çok teşekkürler konu çözülmüştür elinize sağlık
Rica ederim,kolay gelsin.