sayfalar arası veri aktarma

[mhfth]

2 tane excel sayfası düşünelim, birinci excel sayfasında bir hücreyi çift tıklayıp ikinci eksel sayfasına geçelim ve bu geçtiğimiz ikinci excel sayfasındaki tabloda bulunan veriyi çift tıkladığımızad bu veri birinci excel tablosunda tıkladığı
mız hücrenin içine gelsin. bunu nasıl yapabilirim ??

 

[Necdet]

Merhaba,
Öncelikle konu başlığını sorunuzu özetleyecek şekilde değiştiiniz..


Sayfa isimleri vermediğiniz için Sayfa1 ve Sayfa2 olarak varsayılmıştır.

Sayfa1' kod bölümüne aşağıdaki kodu koplayayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Sheets("Sayfa2").Select
   
End Sub

Sayfa2'nin kod bölümüne de aşaığıdaki kodları kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Target.Copy
    Sheets("Sayfa1").Select
    ActiveCell.PasteSpecial xlPasteValues
   
End Sub

Sayfa1'de bir hücreye çift tıklandığında Sayfa2'ye geçer
Sayfa2'de bir hücreye çift tıklandığında o değeri Sayfa1'deki tıklanan hücreye kopyalar.

Kodları kendinize uyarlayınız.

 

[mhfth]

evet oldu teşekür ederim.357504500 ben bu sayıyı excelde 35.750.4500 olarak yazmak istyorum ama yazamıyorum buna benzer yaklaşık yedi bin tane sayı var bunla ilgili yardımcı olabilirmisiniz ??

 

[Orion1]

A sütunu için,Buyurun.

Range("A:A").NumberFormat = "#,##0"

 

[mhfth]

hocam eror veriyor ??

 

[mhfth]

ben önce iki basamaklı sayıdan sonra nokta koysun sonra üç basamaklıdan sonra nokta koysun sonra 4 basamaklıdan sonra nokta koymasını istiyorum ??

 

[Necdet]

Merhaba,

Sayın Orion1'in kodu işinize yarar, fakat siz kopyalamadan sonra mı biçimlendirsin istiyorsunuz.
Ayrıca bunun için biçime de gerek yok, excelde yapın olsun bitsin

 

[Korhan Ayhan]

A1 hücresindeki sayısal değeri B1 hücresinde aşağıdaki formülle istediğiniz biçime dönüştürebilirsiniz.

=YERİNEKOY(METNEÇEVİR(A1;"## ### ####");" ";".")