• DİKKAT

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

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

  • Konbuyu başlatan Konbuyu başlatan cocoa35
  • Başlangıç tarihi Başlangıç tarihi
C

cocoa35

Katılım
6 Eylül 2007
Mesajlar
657
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
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

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
 
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...
 
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
 
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.
Geri
Üst