Macro İle Köprü

[fealdown]

iyi günler benim sorunum şudur; D sütunundaki her hücreye zamanla değerler girilicek, girilen değer alt sekmede varsa o sekmeye gidicek yoksa yada hücre boşsa İŞ PROGRAMI sekmesine gidecek.

 

[Ömer]

Merhaba,

İşlem yapacağınız sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    
    On Error GoTo atla
    With Target
        If .Row < 2 Then Exit Sub
        If .Value = "" Then Exit Sub
        Sheets("" & .Value & "").Select
    End With
    Exit Sub
atla:
    Sheets("[COLOR="Blue"]İŞ PROGRAMI[/COLOR]").Select
    
End Sub

Eğer hücreye girdikten hemen sonra ilgili sayfaya gitmek yerine girilen değer seçilince gitmek isterseniz başlık satırını aşağıdakiyle değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

.

 

[fealdown]

istediğimde buydu teşekkür ederim. Peki hücreye çift tıkladığımızda çalışsın gibi birşey yapabilir miyiz?

 

[Ömer]

Başlık satırını aşağıdakiyle değiştirin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

.

 

[fealdown]

çok sağolun kolay gelsin.