userformda firma ekleme yerine üstüne kayıt

[cihangirkara]

arkadaşlar userformda kayıt yapıyorum eğer firma adı var ise mükerrrer kayıt uyarısı veriyor onylarsam bu firmayı en son satıra ekliyor
benim istediğim şu evet diye onayladığımda son satıra değilde o firmanın üzerinde değişiklik yapsın

teşekkürler

 

[cihangirkara]

Yardim Edebİlİrsİnİz

 

[programer]

Sayın cihangirkara dosyanızı açmaya çalıştığım zaman antivirüs programı virüs uyarısı veriyor.

Söylediğinize göre aşağıdaki kodlar işinize yaraya bilir. Evet dedikten Sonra aşağıdaki kodları yazın. Kodlar TextBox1'deki veriyi Sayfa1'in B sütünunda arıyor eğer bulursa b, c ve d sütünundaki verileri değiştiriyor.

Set s1 = Sheets("Sayfa1")
say = WorksheetFunction.CountIf(s1.[B:B], TextBox1)
If say > 0 Then
sat = s1.[B1:B65536].Find(TextBox1).Row
s1.Cells(sat, 2) = TextBox1.Value
s1.Cells(sat, 3) = TextBox2.Value
s1.Cells(sat, 4) = TextBox3.Value