Sheets sayfasına yazdığım kod hatalı çalışıyor

[KONYA42]

Merhaba arkadaşlar,excel çalışma kitabımda "geçici gör.yolluğu bildirimi" sayfasına yadığım kod hatalı çalışıyor.Yani q12 hücresi yazılı ise t sütunu öyle çalışıyor.Halbuki ben q12 ye göre t12, q13 e göre t13 , q14 e göre t14 ....... çalışsın istiyorum.Ama q12 doluysa diğerleri( "t") o zaman çalışıyor.Yardımcı olurmusunuz?? Teşekür ederim arkadaşlar.Dosyamı ekte gönderiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [Q12:Q36]) Is Nothing Then Exit Sub
    If Range("Q" & Target.Row) <> "" And Range("Q" & Target.Row) < "19:40" Then
    Target.Offset(0, 1) = "1/3"
    ElseIf Range("Q" & Target.Row) <> "" And Range("Q" & Target.Row) > "19:40" Then
    Target.Offset(0, 1) = "1/2"
    End If
End Sub

 

[KONYA42]

Teşekürler hocam ama Q satırındaki hücreyi seçersem t satırındaki hücre değişiyor.Oysa ben Q seçmeden değişmesini istiyorum.Yani Q12 hücresine saat yazıyorum ama t12 hücresi değişmiyor.Fakat Q12 hücresini tekrar seçersem ozaman t12 değişiyor.

 

[Korhan Ayhan]

Selamlar,

Ben sadece sizin yazmış olduğunuz kodu düzenlemiştim. Siz eğer hücreye veri girdikten sonra sonucu görmek istiyorsanız aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [Q12:Q36]) Is Nothing Then Exit Sub
    If Range("Q" & Target.Row) <> "" And Range("Q" & Target.Row) < "19:40" Then
    Target.Offset(0, 1) = "1/3"
    ElseIf Range("Q" & Target.Row) <> "" And Range("Q" & Target.Row) > "19:40" Then
    Target.Offset(0, 1) = "1/2"
    End If
End Sub

 

[KONYA42]

Teşekürler