Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: turkanet - 25 Eylül 2012, 11:14:57

Başlık: Hücreye Veri Ekleme
Gönderen: turkanet - 25 Eylül 2012, 11:14:57

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.

Başlık: Ynt: Hücreye Veri Ekleme
Gönderen: Hüseyin Çoban - 25 Eylül 2012, 17:35:00

. . .

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

. . .