Merhaba,
DATA sayfasında bulunan 6600 sayısal veriyi formatlı bir şekilde başka bir sayfaya kopyalamak istiyorum. Daha öncesinde yapmıştım ama bir türlü yapamadım.
Sheets("ANA").Range("A1")=Format(Sheets("DATA").Range("G1"),"#,##0.00") Bu şekilde kopyaladığında Metin olarak kopyalıyor.
Sheets("ANA").Range("A1")=Cdbl(Format(Sheets("DATA").Range("G1"),"#,##0.00")) Bu şekilde de Metin olarak kopyalıyor.
Sheets("ANA").Range("A1")=Format(Cdbl(Sheets("DATA").Range("G1")),"#,##0.00") Bu şekilde de formatı uygulamıyor.
Herşeyden geçtim tamam metin olarak alsın diyorum ama hücreye yazarken sola dayalı yazıyor. Ne yaptıysam sağa dayalı yapamadım. Hücre formatını değiştirdim, vbs ile özelliklerden sağa dayalı yaptım ama nafile. Konu hakkında yardımlarınızı bekliyorum.
DATA sayfasında bulunan 6600 sayısal veriyi formatlı bir şekilde başka bir sayfaya kopyalamak istiyorum. Daha öncesinde yapmıştım ama bir türlü yapamadım.
Sheets("ANA").Range("A1")=Format(Sheets("DATA").Range("G1"),"#,##0.00") Bu şekilde kopyaladığında Metin olarak kopyalıyor.
Sheets("ANA").Range("A1")=Cdbl(Format(Sheets("DATA").Range("G1"),"#,##0.00")) Bu şekilde de Metin olarak kopyalıyor.
Sheets("ANA").Range("A1")=Format(Cdbl(Sheets("DATA").Range("G1")),"#,##0.00") Bu şekilde de formatı uygulamıyor.
Herşeyden geçtim tamam metin olarak alsın diyorum ama hücreye yazarken sola dayalı yazıyor. Ne yaptıysam sağa dayalı yapamadım. Hücre formatını değiştirdim, vbs ile özelliklerden sağa dayalı yaptım ama nafile. Konu hakkında yardımlarınızı bekliyorum.
