UserFormdaki ListBox'dan Hücreyi Değiştirme

C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Merhaba Üstatlar, Ekli örnek dosyada " YeniMusteriKart" adında sayfam var, buraya yeni müşteri eklemek için UserForm5 'i kullanıyorum. Buradaki sorunum şu UserForm'da MultiPage bölümünde Sil ve Düzenle bölümü var burada 2 adet ListBox1 ve ListBox2 var sayfadaki veriler oraya geliyor, ListBox1 de çift tıklama yaptığımda satır hem formdan hem hücreden siliniyor , ListBox2 'yi ise formdan hücrede değişiklik yapmak için kullanıyorum ancak makro tam olarak çalışmıyor, makroyu forumda buldum normalde çalışıyor ancak ben tam uyarlayamadım sanırım bu konuda yardım lütfen
 

Ekli dosyalar

C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
cocoa35' Alıntı:
Merhaba Üstatlar, Ekli örnek dosyada " YeniMusteriKart" adında sayfam var, buraya yeni müşteri eklemek için UserForm5 'i kullanıyorum. Buradaki sorunum şu UserForm'da MultiPage bölümünde Sil ve Düzenle bölümü var burada 2 adet ListBox1 ve ListBox2 var sayfadaki veriler oraya geliyor, ListBox1 de çift tıklama yaptığımda satır hem formdan hem hücreden siliniyor , ListBox2 'yi ise formdan hücrede değişiklik yapmak için kullanıyorum ancak makro tam olarak çalışmıyor, makroyu forumda buldum normalde çalışıyor ancak ben tam uyarlayamadım sanırım bu konuda yardım lütfen
Genişletmek için tıkla ...
Bu Konuda Yardım lütfen ! kodlar sadece adı ve soyadı bölümünde değişiklik yapıyor, sanırım Listbox satır başlangıcında bir hata yapıyorum ama çözemedim
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
cocoa35' Alıntı:
Merhaba Üstatlar, Ekli örnek dosyada " YeniMusteriKart" adında sayfam var, buraya yeni müşteri eklemek için UserForm5 'i kullanıyorum. Buradaki sorunum şu UserForm'da MultiPage bölümünde Sil ve Düzenle bölümü var burada 2 adet ListBox1 ve ListBox2 var sayfadaki veriler oraya geliyor, ListBox1 de çift tıklama yaptığımda satır hem formdan hem hücreden siliniyor , ListBox2 'yi ise formdan hücrede değişiklik yapmak için kullanıyorum ancak makro tam olarak çalışmıyor, makroyu forumda buldum normalde çalışıyor ancak ben tam uyarlayamadım sanırım bu konuda yardım lütfen
Genişletmek için tıkla ...
Üstatlar sizin için çok basit bir konu olduğunu düşünüyorum, bu konuya bir el atın lütfen...
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,159
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu tarz çoklu nesne işlemlerinde kodu kısa tutabilmek için nesne dizilimini düzenli yaparsanız 3 satırlık kod ile işi bitirebilirsiniz.

Sizdeki TextBox dizilimi sıralı olmadığı için kodu kısaltamadım. (Örnek TextBox40 nesnesinden sonra TextBox7 geliyor.)

Deneyiniz.

C++: 
Private Sub CommandButton3_Click()
    sor = MsgBox("Değiştirmek istediğinizden emin misiniz?", vbYesNo)
    If sor = vbNo Then Exit Sub
    a = ListBox2.ListIndex
    ListBox2.RowSource = ""
    Sheets("YeniMusteriKart").Cells(a + 4, 2).Value = TextBox35.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 3).Value = TextBox36.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 4).Value = TextBox37.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 5).Value = TextBox38.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 6).Value = TextBox39.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 7).Value = TextBox40.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 8).Value = TextBox7.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 9).Value = TextBox41.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 10).Value = TextBox48.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 11).Value = TextBox47.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 12).Value = TextBox46.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 13).Value = TextBox45.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 14).Value = TextBox44.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 15).Value = TextBox43.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 16).Value = TextBox42.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 17).Value = TextBox55.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 18).Value = TextBox54.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 19).Value = TextBox53.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 20).Value = TextBox52.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 21).Value = TextBox51.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 22).Value = TextBox50.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 23).Value = TextBox49.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 24).Value = TextBox62.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 25).Value = TextBox61.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 26).Value = TextBox60.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 27).Value = TextBox59.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 28).Value = TextBox58.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 29).Value = TextBox57.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 30).Value = TextBox56.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 31).Value = TextBox69.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 32).Value = TextBox68.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 33).Value = TextBox67.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 34).Value = TextBox66.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 35).Value = TextBox65.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 36).Value = TextBox64.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 37).Value = TextBox63.Text
    Call UserForm_Initialize
    UserForm5.MultiPage1.Value = 5
    MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Korhan Ayhan' Alıntı:
Bu tarz çoklu nesne işlemlerinde kodu kısa tutabilmek için nesne dizilimini düzenli yaparsanız 3 satırlık kod ile işi bitirebilirsiniz.

Sizdeki TextBox dizilimi sıralı olmadığı için kodu kısaltamadım. (Örnek TextBox40 nesnesinden sonra TextBox7 geliyor.)

Deneyiniz.

C++: 
Private Sub CommandButton3_Click()
    sor = MsgBox("Değiştirmek istediğinizden emin misiniz?", vbYesNo)
    If sor = vbNo Then Exit Sub
    a = ListBox2.ListIndex
    ListBox2.RowSource = ""
    Sheets("YeniMusteriKart").Cells(a + 4, 2).Value = TextBox35.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 3).Value = TextBox36.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 4).Value = TextBox37.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 5).Value = TextBox38.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 6).Value = TextBox39.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 7).Value = TextBox40.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 8).Value = TextBox7.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 9).Value = TextBox41.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 10).Value = TextBox48.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 11).Value = TextBox47.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 12).Value = TextBox46.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 13).Value = TextBox45.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 14).Value = TextBox44.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 15).Value = TextBox43.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 16).Value = TextBox42.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 17).Value = TextBox55.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 18).Value = TextBox54.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 19).Value = TextBox53.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 20).Value = TextBox52.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 21).Value = TextBox51.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 22).Value = TextBox50.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 23).Value = TextBox49.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 24).Value = TextBox62.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 25).Value = TextBox61.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 26).Value = TextBox60.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 27).Value = TextBox59.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 28).Value = TextBox58.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 29).Value = TextBox57.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 30).Value = TextBox56.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 31).Value = TextBox69.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 32).Value = TextBox68.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 33).Value = TextBox67.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 34).Value = TextBox66.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 35).Value = TextBox65.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 36).Value = TextBox64.Text
    Sheets("YeniMusteriKart").Cells(a + 4, 37).Value = TextBox63.Text
    Call UserForm_Initialize
    UserForm5.MultiPage1.Value = 5
    MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
Genişletmek için tıkla ...
Teşekkürler Korhan Hocam :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst