Değiştir butonu hk.

[ocamsul]

arkadaşlar ekli sayfada değiştir butonu ile ekrana geleb bilgilerden; değişiklik yapılması istenem verilerin o kişiye iat bilgileri içerisinde değiştirilmesini nasıl yapabiliriz? yardım edermisiniz.

 

[class37]

Merhaba
http://www.excel.web.tr/viewtopic.php?t=16106
Örnek dosya ekledim.İyiçalışmalar.

 

[ocamsul]

class37 çok teşekkür ederim kodları kendime uyarladım. elinize sağlık( ayrıca kod içerisindeki açıklama yönteminizde anlamak açısından çok iyi) tekrar teşekkürler.

 

[ocamsul]

Arkadaşlar merhaba. ekli yapım aşamasındaki çalışmamda, userform2(Değiştir) sayfasında form boş iken listenin kayıt bölümündeki ad soyad, unvan vb. başlıkların bulunduğu satıra kayıt yapıyo yardım edermisiniz? ben sorunu çözemedim.

 

[ocamsul]

arkadaşlar meşgulüz anlaşılan. istediğim sıra no adı soyadı ünvanı vb. adların olduğu hücrelerde değişiklik olmasın yani yanlışlıkla değişiklik formu boş iken basıldığında anlattığım satırların değerleri sıra no ve adı soyadı satırı hariç bu hücrelerin iiçi siliniyo arkadaşlar. kodda bir hata yapıyorum ama nedir bende anlamadım.

 

[ocamsul]

Arkadaşlar ilgilenme imkanı olan olmadımı? sorun çözümü için.

 

[Kemal Demir]

Sn.Ocamsul

Tam olarak anlayamadım.(Kendi Adıma)
Burada Calısmayan Bir Kısım Yok.

Biraz daha acarmısınız.

 

[class37]

Merhabalar
Dosyada bikaç değişiklik yaptım.Dosya ekte.İyiçalışmalar.

 

[zafer]

Merhaba

Değiştirilecek kayıt olmadığında değiştir butonunu niçin kullanıyorsunuz.
Değiştir butonu kayıtlı olanların bilgilerini değiştirmek için kullanıyor olmanız lazım değilmi.

Kayıt olmayınca Girdi1 combobox'ın topindex -1 olduğundan listindex' -1 gösteriyor onun için
sizde kodlarınızda hücre seçerken girdi1.listindex + 4 kullandığınız için 3 satırı seçiyor.

 

[ocamsul]

Zafer kardeş çok teşekkür ederim. ilgine ve açıklamalarına teşekkür ederim.

 

[ocamsul]

arkadaşlar gönderilen düzeltmeleri ve kodları kendi çalışmama uyarladım ancak kayıt düzenle butonuna tıkladığımızda userform2 ye geçmiyo bi bakıp yardım edermisiniz?

 

[ocamsul]

Arkadaşlar kayıt düzelt butonuna bastığımda "Run-time error '380': Could not set the RowSource property, Invalid property value. uyarısı veriyor.

 

[zafer]

Merhaba

 

[ocamsul]

Arkadaşlar merhabalar. herkese iyi haftalar demek istiyorum. benim bildiğiniz gibi bir çalışmam var. ancak hala mesafe kaydedebilmiş değilim. benim özetle istediğim. ekli dosyada SİYAH ile işaretlemiş olduğum 3. satırın seçili personel yokken değiştir butonuna bastığımızda değiştirmeyi geçtim. bu satırın içeriğini tamamen siliyo. bu satıra kesinlikle dokunulmaması lazım arkadaşlar. ne sıralamaya dahil edilmesi nede silinmesi nede değişiklik yapılması bu satır için istemiyorum. yardım ederseniz sevinirim dostlar.

değiştir butonundaki gayem de olası yanlış kullanımları engellemek için olabilir ya adamın biri form temizle der ardından da yanlışlıkla düzelt butonuna basar. bu durumda 3 satırın içeriğinin silinmemesi gerekir.

 

[ocamsul]

sorunu çözen varmı arkadaşlar. yada şöyle olsa daha iyi olur gibi alternatif görüşleri olan arkadaşlar.

 

[zafer]

Merhaba

Girdi1 ve Listbox1'in başına aşağıdaki kodu ilave ediniz

If XXXXXX..ListIndex = -1 Then Exit Sub

 

[ocamsul]

zafer kardeş yapıştırdım ama comple eror verdi. bu kodu acaba arkadaşlar benım gönderdıiım örnekde sizler denermisiniz. ben beceremedim eror verdi dostlar.

 

[zafer]

Merhaba

girdi1 combox'ı için
If girdi1.ListIndex = -1 Then Exit Sub

listbox1 için
If listbox1.ListIndex = -1 Then Exit Sub


şeklinde olacak

Daha önceki sırala isimli sorununuzdada aynısını cevaplamışlardı.

 

[ocamsul]

Arkadaşlar kodlarım bunlar dediğiniz yerleri yaptım ama yanlışmı oldu acaba değişiklik olmadı.


Private Sub CommandButton2_Click()
girdi1.Value = ""
kutu1.Value = ""
girdi2.Value = ""
girdi3.Value = ""
girdi4.Value = ""
kutu2.Value = ""
kutu3.Value = ""
kutu4.Value = ""
girdi5.Value = ""
girdi6.Value = ""
End Sub
Private Sub girdi1_Change()
If girdi1.ListIndex = -1 Then Exit Sub
'########################################
'Seçilen Personelin bilgileri UserForm'a aktarılıyor
'########################################
With Sheets("VERİ1")
kutu1.Value = .Cells(girdi1.ListIndex + 4, 3)
girdi2.Value = .Cells(girdi1.ListIndex + 4, 4)
girdi3.Value = .Cells(girdi1.ListIndex + 4, 5)
girdi4.Value = .Cells(girdi1.ListIndex + 4, 6)
kutu2.Value = .Cells(girdi1.ListIndex + 4, 7)
kutu3.Value = .Cells(girdi1.ListIndex + 4, 8)
kutu4.Value = .Cells(girdi1.ListIndex + 4, 9)
girdi5.Value = .Cells(girdi1.ListIndex + 4, 10)
girdi6.Value = .Cells(girdi1.ListIndex + 4, 11)
End With
'############## BİTTİ ###################
End Sub

Private Sub UserForm_Initialize()
'########################################
'UserForm açılışında Personel listesi hazırlanıyor.
'########################################
girdi1.RowSource = "VERİ1!B4:B" & WorksheetFunction.CountA(Sheets("VERİ1").Range("B1:B65000"))
'############## BİTTİ ###################
ListBox1.RowSource = "VERİ1!B4:b5000"
ListBox1.ColumnHeads = True
If ListBox1.ListIndex = -1 Then Exit Sub
End Sub

Private Sub CommandButton1_Click()
'########################################
'Düzeltme işlemi için onay alınıyor.
'########################################
If girdi1.Value = "Personeli Seçiniz" Then
MsgBox "Önce bilgilerini değiştirmek istediğiniz personelin adını seçiniz!", vbExclamation, "HATA"
Exit Sub
End If
secim = MsgBox(girdi1.Value & " isimli Personelin bilgilerini değiştirmek istediğinizden emin misiniz?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "UYARI!!!")
If secim = vbNo Then 'Değişiklkler onaylanmazsa...
girdi1_Change 'Bilgileri eski haline getir.
Exit Sub 'Kodun çalışmasını bitir.
End If
'############## BİTTİ ###################
'########################################
'Onay verilmişse kayıt güncelleniyor
'########################################
With Sheets("VERİ1")
.Cells(girdi1.ListIndex + 4, 3) = kutu1.Value
.Cells(girdi1.ListIndex + 4, 4) = girdi2.Value
.Cells(girdi1.ListIndex + 4, 5) = girdi3.Value
.Cells(girdi1.ListIndex + 4, 6) = girdi4.Value
.Cells(girdi1.ListIndex + 4, 7) = kutu2.Value
.Cells(girdi1.ListIndex + 4, 8) = kutu3.Value
.Cells(girdi1.ListIndex + 4, 9) = kutu4.Value
.Cells(girdi1.ListIndex + 4, 10) = girdi5.Value
.Cells(girdi1.ListIndex + 4, 11) = girdi6.Value
End With
'############## BİTTİ ###################
'########################################
'Kayıt Güncelleştirmesi bitti.
'########################################
a = MsgBox(girdi1.Value & " isimli personelin bilgileri değiştirildi.", vbInformation, "KAYIT")
'############## BİTTİ ###################
End Sub

 

[zafer]

Merhaba

Değişiklik yapmasını istediğiniz butonlara , listbox, comboboxların ismini yazarak başına

if listbox veya combobox'ın ismi.ListIndex = -1 Then Exit Sub yazınız

Yani Eğer listbox veya combobox'ın listindex değeri -1 ise kodlardan çık
listindex değeri listdeden hiçbir şey seçilmemişse -1 dir.
ilk kayıt için listindex değeri 0 dır

Sizin kodlarınıza göre
alttaki kodu ekleyin

Değiştir düğmesine
Private Sub CommandButton1_Click()

If listbox1.ListIndex = -1 Then Exit Sub