hücre içine birden fazla değer girebilme

[senselcuksen]

arkadaşlar,

bir hücreye makro ile nasıl araya virgül koyarak birden fazla değer girebilirim.

örnek;

cells(1,5).value = "ali"
cells(1,4).value = "hh"

istenen cells(2,5) in değerinin "ali,hh" olması.

tşk

 

[Ali]

Cells(2, 5)=Cells(1, 5) & "," & Cells(1, 4)

 

[senselcuksen]

örneği tam istediğim şekilde veremedim.

aşağıdaki kod açıklayıcı olabilir

For aa = 4 To 300
For bb = 4 To 300
If Sheets(kk).Cells(aa, 4).Value = Sheets("hedef2007").Cells(bb, 5).Value Then

For ss = 24 To 44

If Sheets("hedef2007").Cells(bb, ss).Value = "S" Then
Sheets(kk).Cells(aa, 5)= işte burada s olanları arada virgül ile bu hücereye atamak istiyorum
End If

End If

Next bb
Next aa

 

[senselcuksen]

yardım tıkandım

 

[Korhan Ayhan]

Selamlar,

Belirttiğiniz satırı aşağıdaki şekilde değiştirerek denermisiniz.

Sheets(kk).Cells(aa, 5) = IIf(Sheets(kk).Cells(aa, 5) = "", Sheets("hedef2007").Cells(bb, ss).Value, Sheets(kk).Cells(aa, 5) & "," & Sheets("hedef2007").Cells(bb, ss).Value)

 

[senselcuksen]

çok teşekkür ederim...