Numaraya göre bulsun

[arslan]

slm arkadaşlar
c1:c20 stundadaki sıra numaralarına göre satırı textbox'larda göstermek istiyorum
yani c,d,e,f,g stunlarındaki o numaraya göre ait verileri
Ã?rneğin comboboxta 2 yi isaretlediğimde 2. satırdaki bilgiler texboxlara gelsin

metine göre aratabiliyorum ama sayıya göre olunca aramıyor

 

[Levent Menteşoğlu]

Userforma ve içindeki nesnelere yazılan kodların en üstüne

dim a as integer satırını yazın.

Daha sonra aşağıdaki kodları combobaxa yazın. (combobox1_click olayına)

a=sheets("sayfa1").columns(3).find(combobox1.value).row
textbox1=sheets("sayfa1").cells(a,3).value
textbox2=sheets("sayfa1").cells(a,4).value
textbox3=sheets("sayfa1").cells(a,5).value
textbox4=sheets("sayfa1").cells(a,6).value
textbox5=sheets("sayfa1").cells(a,7).value

veya

a=sheets("sayfa1").columns(3).find(combobox1.value).row
for b=3 to 7
controls("textbox" & b-2)=sheets("sayfa1").cells(a,b).value
next

 

[arslan]

her zamanki gibi
hedef 12 den
Teşekkürler

 

[arslan]

Siz olmasanız yanmışız

Sizden aldığım bilgilerle bir şeyler hazıırladım
Ama bazen takılıyorum
Ã?rneği incelermisiniz

 

[Levent Menteşoğlu]

Sorun bulunacak rakamların formüllerde olmasından kaynaklanıyor. Bunun için combobox1 deki kodu aşağıdaki gibi değiştirin. Ayrıca textbox5 tede tarihlerin doğru görünmesi içinde bir aşağıdaki koduda ona yazın.
[vb:1:76d152419a]a1 = ComboBox1.Value * 1 + 11
TextBox4 = Cells(a1, 3).Value
TextBox5 = Cells(a1, 4).Value
TextBox6 = Cells(a1, 5).Value
TextBox7 = Cells(a1, 6).Value
TextBox8 = Cells(a1, 7).Value
TextBox9 = Cells(a1, 8).Value
TextBox10 = Cells(a1, 9).Value
End Sub
[/vb:1:76d152419a]
[vb:1:76d152419a]Private Sub TextBox5_Change()
TextBox5 = Format(TextBox5, "dd.mmmm.yy")
End Sub
[/vb:1:76d152419a]

 

[arslan]

sizide yoruyorum ama

sil ve güncelleme çalışmıyor
lütfen örnekte düzelt
teşekkürler

 

[arslan]

Olumlu yada olumsuz Bir cevap verebilirseniz sevinirim
tekrar iyi çalışmalar diliyorum

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin. Silme işleminde satır tamamen siliniyor fakat bu durumda formüller bozuluyor,bu sebeple formüllerin yerine hesaplarıda kodların içinde yapıp tabloya aktarmanızı öneririm. Düzeltme işleminde ise düzeltilecek veriyi comboboxtan seçince hata veriyor. Bu sebeple bu değişikliği listboxa aldım. Değiştireceğiniz veriyi listbox üzerinde çift tıklayın. Bu durumda veriler textboxlara aktarılacaktır. Daha sonra textboxlarda veriyi değiştirerek düzenle butonuna basabilirsiniz.