personele ait belgelerin taranması ve gösterilmesi

[yanginci34]

Üstadım sil butonunu bir türlü yapamadım yardımcı olurmusun lütfen.
vba şifresi:21101979
Ekli dosyayı görüntüle PER.xlsm

 

[Emir Hüseyin Çoban]

. . .

Sil botunuyla tablodan satırı mı silmek istiyorsunuz.

. . .

 

[yanginci34]

Evet teşekkürler

 

[yanginci34]

userform da listbox içinden veriyi seçip tüm satırı silmek ve yeniden sıralama yapmak istiyorum Üstadım.

 

[Emir Hüseyin Çoban]

. . .

Tablo olarak farklı alan isimleriyle kullandığınız için row komutu işe yaparamıyor.
Tablolardan tek tek silmek gerekecek.
Akşama doğru uygun olduğumda bakacağım.

. . .

 

[yanginci34]

Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton7_Click()
[COLOR="Green"]'SİL Butonu[/COLOR]
    If ListBox1.ListIndex >= 0 Then
        cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
        If cevap = vbYes Then
            sat = ListBox1.ListIndex + 2
            'Sheets("VERİ").Rows(Silinecek_Satir).Delete
            With Sheets("VERİ")
                Range("A" & sat & ":X" & sat).ListObject.ListRows(sat - 2).Delete
                Range("Y" & sat).Delete Shift:=xlUp
                Range("Z" & sat & ":AE" & sat).ListObject.ListRows(sat - 2).Delete
                Range("AF" & sat & ":AI" & sat).ListObject.ListRows(sat - 2).Delete
                Range("AJ" & sat & ":AM" & sat).ListObject.ListRows(sat - 2).Delete
                Range("AN" & sat & ":AQ" & sat).ListObject.ListRows(sat - 2).Delete
                Range("AR" & sat & ":AU" & sat).ListObject.ListRows(sat - 2).Delete
                Range("AV" & sat & ":AY" & sat).ListObject.ListRows(sat - 2).Delete
                
            End With
        End If
        Call sırano_yeniden
    End If
    'MsgBox ListBox1.ListIndex + 2
End Sub

. . .

 

[yanginci34]

Çok teşekkür ederim şu an telefondan kontrol ediyorum kodları ancak pazartesi deneyecem ve programın en son halini sizlerin ve diğer değerli ustaların sayesinde ihtiyacı olan arkadaşlara paylaşacağım tekrar teşekkürler.

 

[yanginci34]

Üstadım elinize sağlık sayenizde ve diğer üstatların sayesinde çok güzel bir form oldu (tabi bu bizlere göre) ihtiyacı olan arkadaşlar buradan yararlana bilir. VBA şifresini nasıl kaldıracağımı bilemediğim için kaldıramadım şifreyi tekrarlıyorum :21101979
Ekli dosyayı görüntüle PERS.DENEME_02.rar

 

[yanginci34]

Sizi fazla rahatsız ettim fakat bir sorum daha olacaktı eğer mümkünse iki adet combobox parametreden 69 adet plaka tanımlanacak ama bunlar resmi veya kiralık olarak ayrılması gerekmekte yani combobox1 de resmi veya kiralık parametre sayfasında a sütununda yazıyor b sütununda da plakalar yazıyor combobox2 ise combobox1 de kiralık dersek combobox2 de kiralık olanların plakaları sadece görünsün. Şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

Sizi fazla rahatsız ettim fakat bir sorum daha olacaktı eğer mümkünse iki adet combobox parametreden 69 adet plaka tanımlanacak ama bunlar resmi veya kiralık olarak ayrılması gerekmekte yani combobox1 de resmi veya kiralık parametre sayfasında a sütununda yazıyor b sütununda da plakalar yazıyor combobox2 ise combobox1 de kiralık dersek combobox2 de kiralık olanların plakaları sadece görünsün. Şimdiden teşekkürler

. . .

Merhaba.

Bu soru mesajların öncesinde işlenen konu ile ilgili değil.
Yukarıda tamamlanmış işlemi bozmayalım.

Yeni konu açarak örnek dosya ile sorunuzu ekleyin.

. . .

 

[yanginci34]

http://www.excel.web.tr/f48/ko-ullu-combobox-t155635.html#post847113
yeni konumun linki yukarıdadır.