Değiştir butonu hk.

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar ilgilenme imkanı olan olmadımı? sorun çözümü için.
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.Ocamsul

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

Biraz daha acarmısınız.
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Merhabalar
Dosyada bikaç değişiklik yaptım.Dosya ekte.İyiçalışmalar.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Zafer kardeş çok teşekkür ederim. ilgine ve açıklamalarına teşekkür ederim.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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?
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
sorunu çözen varmı arkadaşlar. yada şöyle olsa daha iyi olur gibi alternatif görüşleri olan arkadaşlar.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

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

If XXXXXX..ListIndex = -1 Then Exit Sub
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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ı.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Üst