Hücreye Veri Ekleme

[turkanet]

merhaba
ekteki gibi bir tablom var. I sütununda boş yada dolu veriler var.

eğer N sütunu doluysa ve karşılığı I sütunu boşsa; o halde I sütununa "Danimarka" yazsın
eğer N sütunu doluysa ve karşılığı I sütunu doluysa; o halde I sütununun sonuna virgül koyup "Danimarka" yazsın

bu makronun yazımı hakkında değerli yardımınızı rica ederim.

[Hüseyin Çoban]

. . .

Kod: [Seç]

Sub kod()
son = [I65536].End(3).Row

For i = 1 To son

If Cells(i, "N") = "" And Cells(i, "I") = "" Then
Cells(i, "I") = "Danimarka"
Else
End If

If Cells(i, "N") <> "" And Cells(i, "I") <> "" Then
Cells(i, "I") = Cells(i, "I") & ", Danimarka"
Else
End If

Next i

End Sub

. . .