Sıra Numarası Sorunu

[noxious]

Sayın Hocalarım

Ekli dosyada forum tarafından sunulan bir çalışmayı telefon firmasındaki bir arkadaşım için değiştirerek arıza takip işinde kullanmasını amaçladım.

kayıt esnasında sıra numarası veren uygulama numaralamayı düzenli yapmıyor. Sil dediğimizde de seçili satırı silerken sıra numaraları eksileceğine sadece silinen satırın numarası siliniyor. Bunun yerine;

=EĞER(B2="";"";ALTTOPLAM(3;$B$2:B2))

formülleri ile sıra numarasını verdirmek istiyorum.

Tabii bu işlemi yaparken seçili satırı sil dediğimizde silme işlemini B sütunundan itibaren yapmalıki A sütununa girdiğimiz formül bozulmasın.

Bir diğer husus uygulamayı kapattığımızda çoğu zaman arka planda çalışmaya devam ediyor. Bu sorun belki benim makinamdan olabilir veya kodlardaki bir sorundan kaynaklanıyor olabilir.

Bu konuda yardımlarınızı bekliyorum.

 

[noxious]

Bu konuda yardım edecek veya yol gösterecek bir arkadaş yokmu

 

[noxious]

Bir diğer husus uygulamayı kapattığımızda çoğu zaman arka planda çalışmaya devam ediyor. Bu sorun belki benim makinamdan olabilir veya kodlardaki bir sorundan kaynaklanıyor olabilir.
.

Bu sorunu çözdüm ancak sıra numarası ile ilgili olan sorunlarla ilgili birşey bulamadım. yardımlarınızı bekliyorum

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Application.Quit
End Sub

 

[Orion1]

Çalışma sayfanız formülleri hesaplamıyor.
Bu konu ile ilgili benim yapmış olduğum bir çalışmam var .Size onu yollayım akadaşınıza veriniz bir denesin bakalım.İşine yararsa kullanabilir.Veri tabanı olarak txt dosyasını kullanıyor.

 

[noxious]

Sayın Orion2 Hocam İlgi ve Alaka için Teşekkürler gönderdiğiniz dosyada sorun var sanırım. Bende açılışta

Run-time Error '75'
Path/File access error

diye hata kodu veriyor

VBA şifreli olarak geldi eğer izniniz varsa kodları açarak inceleyeceğim.

Ben İlk Örneğimdeki çalışmada
A2 hücresine

=EĞER(B2="";"";ALTTOPLAM(3;$B$2:B2))

formülünü
Kaydet Butonuna ise

Selection.AutoFill Destination:=Range("A1:A500"), Type:=xlFillDefault

kodları ekliyerek sorunumu çözdüm tekrar teşekkürler. Ufak tefek sorunlar var onlarıda kendim halletmeye çalışacağım. Saygılarımla

 

[1Al2Ver]

Sayın noxious, kodları nasıl açtınız, (Shift + ile denedim VBA'ya ulaştım)yardımcı olurmusunuz ? VBA'da şifre istedi ? Saygılar.

 

[Orion1]

Yolladığım program bende sorunsuz çalışıyor.
Şifre = devrim

 

[1Al2Ver]

Yolladığım program bende sorunsuz çalışıyor.
Şifre = devrim

Sayın Orion2, teşekkür ederim.

 

[Orion1]

Sayın Orion2, teşekkür ederim.

Bişey değil.
Sayın 1Al2Ver ,program sizde hata verdimi ?Yoksa sorunsuz çalıştımı?

 

[Galus]

Sayın Orion2,

Harika bir çalışma olmuş. Küçük bir program Tebrikler..

 

[Orion1]

Sayın Orion2,

Harika bir çalışma olmuş. Küçük bir program Tebrikler..

Rica ederim.
İyi çalışmalar.

 

[noxious]

Hocam iki ayrı makinada denedim
Benim makinamda

Run-time Error '75'
Path/File access error

hatası
diğer makinada

Run-time Error '76'
path not fount

hatası verdi

sayın Galus sorun yaşamadığına göre sorun bizim makinalardan kaynaklanıyor olabilir. Zaten makinaların format zamanı gelmişti. Makinayı formatladıktan sonra umarım çalışmanızı kullanmaya başlarız. Bu arada VBA kodlarını başka projelerde kullanarak deneyeceğim.
Elleriniz ve beyniniz dert görmesin. Sağlıcakla kalın.