If döngüsü hk

[chakistes]

MERHABA ARKADAŞLAR AŞAĞIDAKİ İŞLEMİ DÖNGÜ İLE A9 İLE A27 ARASINDA HANGİ HÜCRE DOLU İSE D9 İLE D27 ARASINDAKİ SÜTÜNÜN KARŞINI İHTİYAÇ OLARAK YAZSIN İSTİYORUM DÖNGÜ İŞLEMİNDE YAPAMADIM.


Sheets("sayfa1").Activate
If ["A9:A27"] > "" Then ["D927"] = "İHTİYAÇ"
If Range("A9") = "" Then ["D927"] = ""

 

[alicimri]

herhalde aşağıdaki kod işinizi görür

Sub a()
For i = 9 To 27
If Cells(i, 1) <> "" Then
Cells(i, 4).Value = "İHTİYAÇ"
Else
Cells(i, 4).Value = ""
End If
Next
End Sub

 

[chakistes]

teşekkür ederim işe yaradı