Dolu olan satırlarda döngü ile işlem

[kelkitli]

Selamlar,
B15:F35 aralığında, B sütunundaki en son dolu satıra kadar karşılık gelen F sütunundaki değer 1 ile çarpılıp aynı hücreya yazılacak. Son dolu satırdan sonraki boş satırda döngü sonlanacak.
Saygılarımı arz ederim.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Dim U As Long, Son_Satır As Long
Son_Satır = Range("B65536").End(3).Row
For U = 19 To Son_Satır
Cells(U, "F") = Cells(U, "F") * 1
Next
End Sub

 

[kelkitli]

Teşekkür ederim Sayın usubaykan.

 

[usubaykan]

Teşekkür ederim Sayın usubaykan.

Rica ederim