userform hakkında yardım

[mhmt17]

Ã?ncelikle tüm forum üyelerine merhabalar aranıza yeni katıldım resimde gözüken gibi bir userform a ihtiyacım var

stok no kısmına yazdığım numara bul butonuna tıkladığımda excel formunda aransın bilgileride stok ismi ve adet bölümlerinde görüntülensin ama adet penceresindeki rakamı değiştirdiğimde örneğin 3'ü 5 yapıp değiştir butonuna tıkladığımda ürün bilgilerinden sadece o kısmı değiştirsin.bunları yapabilmem için ne gibi kodlara ihtiyacım var.şimdiden herkese teşekkürler...

 

[gdemir]

biraz farklı bir cozum
umarım işinize yarar

 

[mhmt17]

gdemir teşekkürler işime yarar tabi en azından bi fikir daha olur teşekkürler...

 

[mhmt17]

ilk belirttiğim şekilde yardıma ihtiyacım var halen... gdemir beyin çözümüde güzel fakat tam anlamıyla kullanbilmem için stok no ile arama yapabilmesi lazım en başta

 

[Levent Menteşoğlu]

Ã?rnek dosyanızı eklemeden sorunuzu cevaplamak pek mümkün değil.

 

[mhmt17]

5 dakika lütfen daha geniş açıklamaya çalışayım

 

[mhmt17]

istediğim buna benzemeli muhtemelen yani en azından öyle sanıyorum.stok kodu kısmına no yu yazıp bul dediğimde userformda görülmesi lazım fakat sadece isim ve adet le ilgili bilgileri vermeli,adet hanesine yeni bir adet girip örneğin 5 aşağıda sadece adet kısmını değitirmeli işte böyle bişey ilgi ve yardımınıza teşekkürler...

 

[gdemir]

umarım bu işine yarar

 

[mhmt17]

gdemir valla ellerine sağlık çok teşekkürler emeginize sağlık... k::

 

[mhmt17]

gdemir bey pardon artık başınızı ağrıtıyorum ama düzenlemeyi nasıl yaparım birde yani kendime göre olan değişiklikleri.son soru kullandığınız kodlar için faydalanabileceğim bir kaynak belirtirmisiniz.tekrar teşekkürler... :dua:

 

[gdemir]

Stokları Bulmanıza yarıyacak kodlar

Private Sub bul_Click()
Dim bak As Range
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
bak.Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
MsgBox "Aradıgınız Stok Bulundu "
Exit Sub
End If
Next bak
MsgBox "Aradıgınız Stok Bulunamadı "
End Sub


Buldugunuz Stogun bilgilerini değiştireceginiz kodlar

Private Sub degistir_Click()
Dim bos As Range
For Each bos In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
If TextBox1.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Ã?nce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
ActiveCell = TextBox1
ActiveCell.Offset(0, 1) = TextBox2
ActiveCell.Offset(0, 2) = TextBox3

Workbooks("stok1.xls").Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
End Sub


herkes gıbı benımde kaynagım excel.web.tr
emın olun buradan cok sey ogreneceksınız
saygılarımla

 

[mhmt17]

çok çok sağolun valla bu kadar çabuk ve özenli cevaplarınız için tekrar tekrar teşekkürler ve saygılar...