veri değiştirme

[sekand]

selamlar
öncelikle yeni farkettim sistem ve internet saatim bozukmuş bu yüzden bende nie form güncellenmiyor diye merak ediyodum bu yüzden sorularıma cevap veren levent arkadaşa çok teşekkürler ederim
SORU : form üzerinde bulunan listbox1 e tıkladığımda form üzerinde bulunan text ve comboboxlara ilgili veriler aktartılıyor.

Worksheets("sayfa1").Select
Range("A2").Select
Set ad = Range("a2:a15000").Find(TextBox40.Value, searchdirection:=xlNext, MatchCase:=False)
ilksatir = ad.Row
Set ad = Range("a2:a15000").FindPrevious(Range("a15000"))
sonsatir = ad.Row
Set ad = Range("a2:a15000").Find(TextBox40.Value, searchdirection:=xlNext, MatchCase:=False)
Cells(ilksatir, 1).Select

ActiveCell.Offset(0, 1).Value = ComboBox11
'buraya kadar gayet güzel veriyi buluyor ve bulduğu veri aktif oluyor combobox ta ki veriyide sayfa üzerinde değiştiriyor
Ancak alttaki satırlara geçtiğinde hiç bir işlem yapmıyor.
ActiveCell.Offset(0, 2).Value = ComboBox12
ActiveCell.Offset(0, 3).Value = ComboBox13

neden (0,1) de değişiyoda diğerlerine geçince işlemi yapmıyor,
saygılar

 

[Levent Menteşoğlu]

öncelikle Combobox11-12-13 yerine combobox11.value şeklinde kullanımı deneyin. Olmazsa aşağıdaki gibide deneyebilirsiniz.

[vb:1:883eeaddf5]ActiveCell.Offset(0, 1).Value = ComboBox11
ActiveCell.Offset(0, 2).Value = ComboBox12
ActiveCell.Offset(0, 3).Value = ComboBox13
[/vb:1:883eeaddf5]
yerine aşağıdaki gibi deneyin.
[vb:1:883eeaddf5]
Cells(ilksatir, 1)= ComboBox11.value
Cells(ilksatir, 2)= ComboBox12.value
Cells(ilksatir, 3)= ComboBox13.value
[/vb:1:883eeaddf5]

 

[sekand]

selamlar sayın levent bey
dediğiniz yöntemleri denemiştim ama yinede olmadı sorun acaba şundan kaynaklanıyor olabilirmi
ben önce listbox1 den ilgili veriyi seçiyorum Listboxun column sayısı 40 adet ben buna tıkladığımda form üzerinde bulunan yerlere ilgili değerler atanıyor tekrar buton ile o değerlerde değişiklik yapıyorum yani bu bir sorun olabilirmi
saygılar

 

[Levent Menteşoğlu]

Net bir şey söylemek için dosyanızı incelemek gerekir. Bu sebeple dosyanızı eklemenizi öneriyorum.

 

[sekand]

selamlar ne yaptıysam olmadı verdiğiniz önerilerde hepsini denedim ancak olmadı bu değiştir olayı ile ilgili olarak bana başka bir yol gösterseniz ?
saygılar

 

[danersin]

Sn. sekand sizin yaptığınız şekliylede , Levent bey'in söylediği hali ilede burada yazılan kodlar çalışır. Muhtemelen başka bir şey var gözünüzden kaçan ve hataya sebep olan. Ama bunu bizim buradan tahmin etmemiz çok zor.

 

[selections]

Dim ilksatir As Integer
Worksheets("sayfa1").Select
Range("A2").Select
Set ad = Range("a2:a65000").Find(what:=textbox40.Value, searchdirection:=xlNext, MatchCase:=False)
ilksatir = ad.Row
Set ad = Range("a2:a65000").FindPrevious(after:=Range("a65000"))
sonsatir = ad.Row
Set ad = Range(Cells(ilksatir, 1), Cells(sonsatir, 1)).Find(what:=textbox40.Value, searchdirection:=xlNext, MatchCase:=False)
Cells(ilksatir, 1).Value = combobox11
Cells(ilksatir, 2).Value = combobox12
Cells(ilksatir, 3).Value = combobox13

Kodlarınızı yukarıdaki şekilde düzeltip tekrar denermisiniz.?

Eğer kodlarınız hala düzgün çalışmıyorsa aşağıdaki notu dikkate alın.

Ã?nemli Not : Bu tip durumlarda verilerinizi textbox veya comboboxlarınıza çağırırken çift tıklama veya başka bir butona basarak çağırın çünkü ilk kodlar bir textbox veya combobox ın değişmesi ile tetiklendiğinden ilgili textbox veya combobox değiştiğinde ilk kodlar yeniden çalışacak ve ikinci kodun sağlıklı çalışmasını önleyecektir.

 

[selections]

Bu konu ile ilgili bir çalışma görmek istiyorsanız. Link'i inceleyin.
http://www.excel.web.tr/viewtopic.php?t=3859

 

[sekand]

yardımlarınız icin hepinize teşekkürler