Çözüldü Gelen Giden Evrak Kayıt Sistemi Hakkında

B

bychilavert

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba

Daha önceden bu konu hakkında bir kayıt açmıştım üzerinde değişiklik yaparak yeni bir evrak takip sistemi yapmaya çalıştım ama başaramadım. Yapmak istediğim Gelen / Giden evraklarını Veri sayfasında giriş yapıyorken (Gelen - Giden) Seçimi yaptıktan sonra IL - İLÇE MÜDÜRLÜKLERİ alanından seçim yaptıktan sonra (Gelen - Giden) Sayfasına sıra numarası alarak aktarmasını istiyorum. Bunu nasıl yapabilirim yardımcı olabilirmisiniz? (Bilgisayarlarda Office 2016 Yüklü)

Önceki Konu...
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
ByChilavert' Alıntı:
Merhaba

Daha önceden bu konu hakkında bir kayıt açmıştım üzerinde değişiklik yaparak yeni bir evrak takip sistemi yapmaya çalıştım ama başaramadım. Yapmak istediğim Gelen / Giden evraklarını Veri sayfasında giriş yapıyorken (Gelen - Giden) Seçimi yaptıktan sonra IL - İLÇE MÜDÜRLÜKLERİ alanından seçim yaptıktan sonra (Gelen - Giden) Sayfasına sıra numarası alarak aktarmasını istiyorum. Bunu nasıl yapabilirim yardımcı olabilirmisiniz? (Bilgisayarlarda Office 2016 Yüklü)

Önceki Konu...
Genişletmek için tıklayın ...
Sayfaların kod bölümüne aşağıdaki kodları yazarsan sıkıntın çözülür.
Dim s As Long
If Intersect(Target, Range("b3:b65536")) Is Nothing Then Exit Sub
For i = 3 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
 
Oyla 0 Olumsuz oyla
yusuf43' Alıntı:
Sayfaların kod bölümüne aşağıdaki kodları yazarsan sıkıntın çözülür.
Dim s As Long
If Intersect(Target, Range("b3:b65536")) Is Nothing Then Exit Sub
For i = 3 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
Genişletmek için tıklayın ...
Belirttiğiniz şekilde yaptım ama herhangi bir işlem olmadı.
 

Ekli dosyalar

  • 1.webp
    1.webp
    11.2 KB · Görüntüleme: 1
  • 2.webp
    2.webp
    38.8 KB · Görüntüleme: 1
Oyla 0 Olumsuz oyla
ByChilavert' Alıntı:
Belirttiğiniz şekilde yaptım ama herhangi bir işlem olmadı.
Genişletmek için tıklayın ...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("b3:b65536")) Is Nothing Then Exit Sub
For i = 3 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub Bu şekilde bir daha deneyin. Ben başlıkları yazmayı unutmuşum.
 
Oyla 0 Olumsuz oyla
Zaman ayırıp baktığınız için teşekkür ederim. Benim istediğim IL - İLÇE MÜDÜRLÜKLERİ alanında seçtiğime göre verdiği sıra numarasını GELEN GİDEN sayfasına aktarması bunu yapamadım.
 
Oyla 0 Olumsuz oyla
ByChilavert' Alıntı:
Zaman ayırıp baktığınız için teşekkür ederim. Benim istediğim IL - İLÇE MÜDÜRLÜKLERİ alanında seçtiğime göre verdiği sıra numarasını GELEN GİDEN sayfasına aktarması bunu yapamadım.
Genişletmek için tıklayın ...
Farklı bir çalışma yaptım 2 tane buton koydum gelen giden diye evraka göre kayıt yapıyor incele kolay gelsin.
 

Ekli dosyalar

Oyla 1 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer Konular Popüler Daha Fazlası

Üst