SORU ve CEVAPLAR (Yazılabilir) > Microsoft Excel, Vba, Makro, Formül vb. Soruları

Hücreye Veri Ekleme

(1/1)

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: ---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

--- Kod sonu ---

. . .

Navigasyon

[0] Mesajlar