• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yapı Denetim Teklif Verme ve Takip Programı

B

burcqq

Katılım
22 Haziran 2013
Mesajlar
8
Excel Vers. ve Dili
2010
Merhabalar sitenizde daha yeniyim çalıştığım bir yapı denetim firması için için teklif verme ve teklif takipi için bir program yapmayı düşünüyorum formdaki örnek programlar yardımı ile biraz bişeyler yaptım ama eksikleri var yardımcı olmak isteyen olursa sevinirim geliştirip güzel ve kullanışlı bir program yapmak istiyorum.

Program ektedir şu andaki hali ile kayıt yapabilir silebiliyor fakat silmede bir sıkıntım var bazen hata veriyor ve listbox da boş satır bırakıyor ilk etapda kayıt ve silme kısmını kararlı çalışacak hale getirmek istiyorum yardımcı olan olursa sevinirim :)
 

Ekli dosyalar

Kayıt sil butonunda bulunan şu satırı siliniz

Kod: 
ListBox1.ListIndex = Empty
 
yerine herhangi bir komut yazmıcam değilmi .. o kumut sildim listdeki bütün kayıtları silip yeni bir kayıt eklediğim zaman ilk satır boş kalıyor
 
hayır yazmayacaksınız. Belirttiğim satır olduğu için hatalı silme yapılıyo.
 
belirttiğiniz kod satırını sildim ama bu sefet list deki ilk satır boş kaldı oraya kayıt yapmıyor
 
Üstadım silme işlemi için kullandığın komut

Range("A" & ActiveCell.Row, "J" & ActiveCell.Row).Delete

bu mudur ?
 
Kod: 
'6 - Kayıt silme işleminde sıra numarası düzeni bozulacağı için verileri sıralayarak yeniden sıra numarası veriyoruz.

If Range("B65536").End(3).Row > 1 Then
.
.
.
End If
Yukarıdaki kod satırları eklendi. Öncekinde kayıtlar siliner3ek bitse bile çalışıyodu ve bahsettiğiniz hata meydana geliyodu.
 
dalgalikur' Alıntı:
Kod: 
'6 - Kayıt silme işleminde sıra numarası düzeni bozulacağı için verileri sıralayarak yeniden sıra numarası veriyoruz.

If Range("B65536").End(3).Row > 1 Then
.
.
.
End If
Yukarıdaki kod satırları eklendi. Öncekinde kayıtlar siliner3ek bitse bile çalışıyodu ve bahsettiğiniz hata meydana geliyodu.
Genişletmek için tıkla ...

anladım üstadım ve çoğu işimi hallettim ekte dosyayı koyuyorum bi ricam daha olacak list de kayıtlı bilgiler haricinde boş satırlarda var ve texte farenin scrol u kaymıyo acaba neden ? çok oldum biliyorum yardımlarınız için çok teşekkürler..
 

Ekli dosyalar

formun initialize olayında bulunan

Kod: 
.RowSource = "TEKLİF!B2:O[COLOR="DarkOrange"]2[/COLOR]" & [TEKLİF!A65536].End(3).Row
2 rakamını siliniz

scroll listbox da iş görmez maalesef.
 
pefff çok basit hatalar :s neyse en azından şimdilik bitti . üstadım eline sağlık yardımların için çok teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst