Hücre Değerlerine Göre isimlendirme

[netkit]

Merhaba;
yapmak istediğim düşününce basit ama malesef birtürlü tahminen tırnaklardan kurtulup yapamadım.
Ekteki gibi 500 satıra 40 sütünluk bir dosyam mevcut. her satırı kendi isim ve kolon adını ile isimlendirerek diğer sayfa kullanmak istiyorum.

fakat cells ile hücre değerini verince hata veriyor. Ama aynı değeri el ile "xxxxx" şeklinde verince sorun yok. Değerler " " arasında geliyor onsan kaynaklı diye düşündüm ama tranclıyamadım bir kolay yolu var mıdır?



Option Explicit
Private Sub NameCell()
Dim a As Integer
Dim i As Integer
a = Range("A6536").End(3).Row
For i = 2 To a
Cells(i, 2).Name = Cells(i, 1) & Cells(i, 2)
Next
End Sub

 

[yanginci34]

Böyle denermisiniz.
Option Explicit
Private Sub NameCell()
Dim a As Integer
Dim i As Integer
a=cells(Rows.Count,1).End(3).Row
For i = 2 To a
Cells(i, 2).Name = Cells(i, 1) & Cells(i, 2)
Next
End Sub

 

[netkit]

 

[netkit]

Sayın Yanginci34;
mantık hatası yapıyormuşum kodları şu şekilde değiştirince sıkıntı çözüldü

Option Explicit
Private Sub NameCell()
Dim a As Integer
Dim i As Integer
a = Cells(Rows.Count, 1).End(3).Row
For i = 2 To a
Cells(i, 2).Name = Cells(i, 1) & Cells(1, 2)
Next
End Sub

not: string ingter olunca kızıyordu herhalde. bir dahakine onuda çözmek lazım.