Değer aktarırken biçimlendirme sorunu

[scuba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [ActiveCell]) Is Nothing Then Exit Sub
Range("A1").Value = ActiveCell.Value
End Sub

seçtiğim hücrenin değeri =001000017001 ama böyle aktarınca baştaki sıfırları almıyor biçimlendirmeyi kendi bildiiğim kodla yapamadım.

 

[Ferhat Pazarçevirdi]

Şu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [ActiveCell]) Is Nothing Then Exit Sub
[COLOR=red][B]Range("A1") = "'" & ActiveCell[/B][/COLOR]
End Sub

 

[scuba]

Saygılar...