Daha açıklayıcı bir bilgi verebilirmisiniz
Aşaşıdaki makro 1 sütuna 1. satırdan 100 satıra kadar i ye atanmış değerleri yazar
sub say()
for i=1 to 100
cells(i,1)=i
next
Slm, burda işlem maddesi buttonuna tıklayınız.Gelen formdaki grup şeç'ten herhangi bir grup şeçiniz.Listbox1e seçtiğiniz grupla ilgili işlem maddeleri gelecektir.Bu işlem maddelerinin 1.tıkladığınızda onunla ilgili tarihler vs. veriler diğer textlere geliyo.Ancak ben burdaki kodlarda döngü oluşturarak bunu sağlamak istiyorum.Kod bölümünü incelerseniz Listbox1'in kodundaki satırları kendim belirledim.Ben bunların döngü ile olmasını istiyorum.Ayrıca bi sorunum daha var Burda grubu şeçtikten sonra listbox1 den hangi maddeyi seçersem seçiyim hep 1.maddenin verileri geliyo.Yani ben 2. 3. 4. ... maddelere tıkladığımda o maddelerle ilgili verilerin textlere gelmesini istiyorum.Yardımcı olursanız sevirim.Üstelik acil lazım!!!
Size örnek bir dosya gönderiyorum.
Döngü ile textbox seçimi .
sizin dosyanızın hücre yapısını bozmadan kaydet, değiştir.sil ,bul butonları ilave edilmiştir.
Çoook teşekkür ederim çok sağolun ancak bi sorun daha var.Burda ben hangi grubu seçersem seçiyim hep aynı işlem maddeleri falan geliyysa burda her grubun kendine ait işlem maddesi, tarihi, kararı, durumu falan var.Eğer buna da bi açıklık getirebilirseniz size minnettar kalacağım...
Slm, Controls("textbox" & i + 41) = Cells(konum, i + 2) bu kod satırında bana
Run-Time error '-2147024809(80070057)':
Could not find the specified object. hatası veriyo ne yapmam gerekiyo. :?
Benim gönderdiğim dosyada textboxları döngü oluşturmak için 40 tan başlattım
sizin asıl dosyanız hata veriyorsa bundandır. uyarlama yapmak istiyorsanız.
Gönderdiğim dosyadaki textbox numaralarına bakın kendinize uyarlayın.
Döngü oluşturmak için textboxlar düzgün bir sırada olursa sonuca daha iyi ulaşılır.
1.sütunundaki hücrelere yazacağınız textbox1
2. " "" "" textbox2
son = Sheets("Data").Cells(65536, 2).End(xlUp).Row + 1
For i = 1 To 10
Cells(son, i + 2) = Controls("textbox" & i + 50)
Next
ComboBox2.Value = Cells(son, 2)
ComboBox1.Value = Cells(son, 12)
Yalnız burda Cells(son, i + 2) = Controls("textbox" & i + 50) satırda hata veriyor.Biraz önceki hatanın aynısını veriyo.Yardım ederseniz sevinirim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.