if kullanımı ile ilgili bir soru

[demgüzar]

B2:B41 aralığındaki hücrelerin değerleri 1 ise 1 olanları temizle vb'de nasıl ifade edilir

 

[Orion1]

Buyurun.

for i = 2 to 41
if cells(i,"B").value = 1 then cells(i,"B").clear
next i

 

[adsoft]

B2:B41 aralığındaki hücrelerin değerleri 1 ise 1 olanları temizle vb'de nasıl ifade edilir

For i = 2 To 41
If Range("b" & i).Text = 1 Then Range("b" & i).Value = ""
Next i

 

[Mahir64]

Merhaba,

Altarnatif olarak kullanabilirsiniz

Sub temizle()
  For Each t In Range("B2:B241").Cells
    If t.Value = 1 Then
    t.ClearContents
  End If
  Next t

 

[Milady Meriç]

Merhaba,

Altarnatif olarak kullanabilirsiniz

Sub temizle()
  For Each t In Range("B2:B241").Cells
    If t.Value = 1 Then
    t.ClearContents
  End If
  Next t
[COLOR="Red"]End Sub[/COLOR]

Mahir Bey,
affınıza sığınarak, kod'a end sub ifadesini ekledim

saygılar.

 

[Mahir64]

Mahir Bey,
affınıza sığınarak, kod'a end sub ifadesini ekledim

saygılar.

Haklısınız, koplayarken seçmemişim. Teşekkürler.