Servis _Guzergah Tablosu Destek

[mancubus]

Üstad
ne ısmarlasam ?
A.R.Olsun

hepimizden razı olsun.

neticede ben sitedeki üstadlardan ve çeşitli kaynaklardan öğrendiklerimi / bulduklarımı uyguladım.

siz de mevcut bilginizi geliştirerek bir arkadaşımıza yardımcı olduğunuzda teşekkür etmiş olacaksınız.

 

[ayhan3477]

kelimelere yansıyan bakıs acısı kitap gibi

tesekkur ederim dostum.

yalnız benim tabloda adı soyadını sildiğimde solda yer alan saat bilgileri otomatik siliniyordu.. şimdi silinmiyor.. bir fikiriniz var mı ?

 

[mancubus]

17 no.lu mesajınızdaki dosyada bir event makrosu vardı.

onu son dosyada, VBE pencerinde Ana Giriş Tablosu'nun kod kısmına kopyalarsanız olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    'Eğer veri girilen hücre,
    'C7:C76 arasındaysa
    If Not Intersect(Target, Range("C7:D149")) Is Nothing Then
        
        'Eğer veri girilen hücrenin
        'solundaki hücre boşsa
        If Target.Offset(0, -1) = Empty Then
            MsgBox "İsim veya Başlangıç Saatini Kontrol Ediniz", vbCritical, "GUNSAN IK"
                        
            'Girilen veri geçerli değildir
            've silinir.
            With Application
                .EnableEvents = False
                 Target = Empty
                .EnableEvents = True
            End With
            
            'Veri girilen hücrenin
            'solundaki hücre seçilir
            Target.Offset(0, -1).Select
        End If
    
    'Eğer veri girilen hücre,
    'B7:B158 arasındaysa
    ElseIf Not Intersect(Target, Range("B7:B149")) Is Nothing Then
        
        'Eğer veri girilen hücre boşsa
        'yani, veri girmek değilde silme yapılmışsa
        If Target = Empty Then
            
            'Veri girilen hücrenin
            'sağındaki hücreyi de sil
            With Application
                .EnableEvents = False
                 Target.Offset(0, 1) = Empty
                 Target.Offset(0, 2) = Empty
                .EnableEvents = True
            End With
        End If
    End If
End Sub

 

[ayhan3477]

tesekkurler

saol ustadım... emeğine sağlık ...

 

[mancubus]

rica ederim.

 

[ersin4009]

servis güzergahı

Arkadaşlar merhaba;

Servis Güzergahı ile ilgili bende çalışma yapıyorum.Serv dosyasını inceledim kendime uyarladığımda bölüm dağılımında kendi bölümünü seçtiğinde aşağıda isim listesini alamıyorum.Konuyla ilgili yardımcı olursanız sevinirim...