Textboxa girilen veriyi istediğim sütunda bulup satırı s

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki kodları forumdan aldım kendime uyarladım. Fakat ufak bir değişiklik yapmak istiyorum.

For a = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(a, 5) = TextBox6.Text Then Rows(a).Delete
Next a

Yapmak istediğim işleme gelince bu kodlar textboxa girilen değeri bulup komple satırı siliyor. Bense örneğin girdiğim değer beşinci satırda ise "B5:G5" aralığını silmesini istiyorum. Bunun için kodda nasıl bir değişiklik yapmak gerekir.

İyi çalışmalar dilerim. :hey:

 

[red_lion_72]

selam,
Komple a dan h ye kadar silip hücreleri yukarı ötelemek isterseniz....

For a = Cells(65536, 1).End(xlUp).Row To 1 Step -1
For f = 1 To 5
If Cells(a, 5) = TextBox1.Text Then Cells(a, f).Delete
Next f
Next a

Ama sadece içeriği siliyim hücreler ötelenmesin derseniz....

For a = Cells(65536, 1).End(xlUp).Row To 1 Step -1
For f = 1 To 5
If Cells(a, 5) = TextBox1.Text Then Cells(a, f).clear
Next f
Next a

Kolay gelsin.