Döngü için kod yazmak istiyorum

[kan-nas]

Merhaba,
Ekteki dosyada x değerinin dolu olan E sütunun en alt satıra kadar döngü sağlamasını istiyorum.
B sayfasındaki D sütünü ile BB sayfasındaki D sütunu değerleri aynı ise E sutununa Risk girilmiş yazsın.
Aşağıda kod yazım ama döngüyü bir türlü sağlayamadım. ))


Sub bb_Button1_Click()
x = 1
If Sheets("b").Cells(x, 4).Value = Sheets("bb").Cells(x, 4) Then
Sheets("b").Cells(2, 5).Value = " risk girilmiş"

End If
End Sub

 

[halit3]

Merhaba,
Ekteki dosyada x değerinin dolu olan E sütunun en alt satıra kadar döngü sağlamasını istiyorum.
B sayfasındaki D sütünü ile BB sayfasındaki D sütunu değerleri aynı ise E sutununa Risk girilmiş yazsın.
Aşağıda kod yazım ama döngüyü bir türlü sağlayamadım. ))


Sub bb_Button1_Click()
x = 1
If Sheets("b").Cells(x, 4).Value = Sheets("bb").Cells(x, 4) Then
Sheets("b").Cells(2, 5).Value = " risk girilmiş"

End If
End Sub

bunu denermisiniz.

Sub aktar()
Worksheets("b").Columns(5).ClearContents
For r = 2 To Worksheets("b").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("b").Cells(r, 1).Value
aranan2 = Sheets("b").Cells(r, 2).Value
aranan3 = Sheets("b").Cells(r, 3).Value
aranan4 = Sheets("b").Cells(r, 4).Value
aranan5 = aranan1 & aranan2 & aranan3 & aranan4
For i = 2 To Worksheets("bb").Cells(Rows.Count, "B").End(3).Row
bulunan1 = Sheets("bb").Cells(i, 1).Value
bulunan2 = Sheets("bb").Cells(i, 2).Value
bulunan3 = Sheets("bb").Cells(i, 3).Value
bulunan4 = Sheets("bb").Cells(i, 4).Value
bulunan5 = bulunan1 & bulunan2 & bulunan3 & bulunan4
If bulunan5 = aranan5 Then
Sheets("b").Cells(r, 5).Value = " risk girilmiş"
End If
Next i
Next r
End Sub

 

[kan-nas]

teşekkürler

 

[halit3]

teşekkürler

iyi çalışmalar