Formatlı yazı

[k0081]

Merhaba arkadaşlar;
a= 110 (D24)
b= 50 (D25)
c= 20 (D26)
t= 2 (D27)

gibi değerler mevcut.. bunları bir buton yardımı ile başka bir sayfaya ; C110x50x20x2 şeklinde nasıl yazdırabilirim..?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    With Sheets("Sayfa2").Range("A1")
        .Formula = "=CONCATENATE(""C"",""X"",Sayfa1!D24,""X"",Sayfa1!D25,""X"",Sayfa1!D26,""X"",Sayfa1!D27)"
        .Value = .Value
    End With
End Sub

 

[k0081]

Merhaba,

olmadı hocam.. bu aynı sayfada A1 hücresine CXXXX ifadesini yazdı ve sonlandı.. ; Değerleri aynı dosya içerisinde farklı bir sheet e yazacak...

***********

ayrı bir excel sayfası yaptım orada çalıştı hocam..

 

[numan şamil]

Merhaba,

olmadı hocam.. bu aynı sayfada A1 hücresine CXXXX ifadesini yazdı ve sonlandı.. ; Değerleri aynı dosya içerisinde farklı bir sheet e yazacak...

***********

ayrı bir excel sayfası yaptım orada çalıştı hocam..

Korhan Hocam müsadenizle
Korhan hocamın kodları çalışıyor sadece örn:sayfa2 'ye yazdırmak için
With Sheets("sayfa2").Range("A1")
Kodlara kırmızı yeri ekleyeiniz

 

[k0081]

Korhan Ayhan

Hocam kodlar çalışıyor.. sayfa1 de isim değişikliği yaparken bir hata yapmışım.. o yüzden CXXXX yazmış.. özür..

Tamamdır.. çok teşekkürler.. hocam..
*******************************
Numan şamil; sizede teşekkürler.. ekleme için..