(VBA) Replace ve Offset Kullanımı Hakkında

[genesis_vision]

Merhabalar. VBA'ya yeni başladım. Aşağıdaki kodları daha kısa bir şekilde yazmanın yolu var mıdır acaba?

Sub ReplaceCellValues()

For i = 2 To Cells(Rows.Count, 1).End(3).Row

eski = Cells(i, 1).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 1).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 2).End(3).Row

eski = Cells(i, 2).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 2).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 3).End(3).Row

eski = Cells(i, 3).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 3).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 4).End(3).Row

eski = Cells(i, 4).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 4).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 5).End(3).Row

eski = Cells(i, 5).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 5).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 6).End(3).Row

eski = Cells(i, 6).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 6).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 7).End(3).Row

eski = Cells(i, 7).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 7).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 8).End(3).Row

eski = Cells(i, 8).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 8).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 9).End(3).Row

eski = Cells(i, 9).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 9).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 10).End(3).Row

eski = Cells(i, 10).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 10).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 11).End(3).Row

eski = Cells(i, 11).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 11).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 12).End(3).Row

eski = Cells(i, 12).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 12).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 13).End(3).Row

eski = Cells(i, 13).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 13).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 14).End(3).Row

eski = Cells(i, 14).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 14).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 15).End(3).Row

eski = Cells(i, 15).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 15).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 16).End(3).Row

eski = Cells(i, 16).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 16).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 17).End(3).Row

eski = Cells(i, 17).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 17).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 18).End(3).Row

eski = Cells(i, 18).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 18).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 19).End(3).Row

eski = Cells(i, 19).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 19).Offset(, 20).Value = yeni

Next i

For i = 2 To Cells(Rows.Count, 20).End(3).Row

eski = Cells(i, 20).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, 20).Offset(, 20).Value = yeni

Next i

End Sub

 

[halit3]

Belki böyle olabilir

Sub ReplaceCellValues()


For j = 1 To 20
For i = 2 To Cells(Rows.Count, j).End(3).Row
eski = Cells(i, j).Value
yeni = Replace(eski, "B", "Boş")
Cells(i, j).Offset(, 20).Value = yeni
Next i
Next j


End Sub

 

[genesis_vision]

For j = 1 To 20 For i = 2 To Cells(Rows.Count, j).End(3).Row eski = Cells(i, j).Value yeni = Replace(eski, "B", "Boş") Cells(i, j).Offset(, 20).Value = yeni Next i Next j End Sub

Halit bey çok teşekkür ederim. Sayenizde çok pratik bir bilgi edinmiş oldum.

 

[halit3]

Halit bey çok teşekkür ederim. Sayenizde çok pratik bir bilgi edinmiş oldum.

Teşekkürler iyi akşamlar