Girilen değeri bul satırlara 0 ata

[samsam462]

Arkadaşlar merhaba.Ben makroda şöle birşey yapmak istedim fakat işin içinden bir türlü çıkamadım.Userform ile girilen no yu A sütununda arayıp bulduktan sonra bulunan satırdaki C,D,F ve G hücrelerindeki değerlere 0 atansın.Yapmak istediğm bu belki basit birşey ama makro kodları ile beceremedim.Bilen arkadaşlar acil yardım edebilirseniz çok sevinirim.Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

commandbuttona aşağıdaki kodu kopyalayın.

[vb:1:12c0cafd84]Private Sub CommandButton1_Click()
On Error Resume Next
sat = [a1:a65536].Find(TextBox1).Row
Cells(sat, "c") = 0
Cells(sat, "d") = 0
Cells(sat, "f") = 0
Cells(sat, "g") = 0
End Sub[/vb:1:12c0cafd84]

 

[Kemal Demir]

Sn.samsam462


Örneğinizi küçük bir değişiklik yaparak başka bir çözümle sonuclandırdım.
Umarım buda işinizi görür.

L2 değerine "No" giriniz.Sonra butona basınız.

 

[samsam462]

Her iki arkadaşta bukadar çabuk çözüm buldugunuz için teşşekkür ederim gercekten.Ellinize sağlık.Sorunum çözüldü.

 

[Kemal Demir]

Üstad 1 dakka fark mukemmelsin :yazici: