Hücre formatını text olarak yazdırma

[zizifos]

Merhaba arkadaşlar. aşağıdaki ekran görüntüsünde yer alan hücre formatındaki para değerini text olarak başka sütuna kopyalamam gerekli. Yardımcı olursanız çok sevinirim.

 

[Seyit Tiken]

 

[pys60]

Eğer değerler sabit ise bu formül işinizi görür

=PARÇAAL(A1;2;7)

 

[zizifos]

Eğer değerler sabit ise bu formül işinizi görür

=PARÇAAL(A1;2;7)

alınacak değer hücre içerisinde yazmıyor. Custom kısmında hücre formatı olarak atanmış Benim istediğim bu atanan para birimlerini karşısına yazdırmak.

 

[zizifos]

Tam olarak bu. Ancak 10.000'den fazla satır olunca tek tek yapmak imkansız.

 

[pys60]

Tam olarak bu. Ancak 10.000'den fazla satır olunca tek tek yapmak imkansız.

tüm hücreleri seçip yaptığınızda hepsine uygulanır

 

[Emir Hüseyin Çoban]

. . .

A sütunu formatını B sütununa yazar;

Sub kod()
    For i = 1 To 1000
        Cells(i, "B") = Cells(i, "A").NumberFormat
    Next i
End Sub

. . .

 

[zizifos]

. . .

A sütunu formatını B sütununa yazar;

Sub kod()
    For i = 1 To 1000
        Cells(i, "B") = Cells(i, "A").NumberFormat
    Next i
End Sub

. . .

Tam olarak aradığım bu idi. Teşekkür ederim yardımlarınız için.