Değerleri Ters Çevirme Butonu

[Özgür DALDABAN]

Selamun Aleyküm
Değerli Hocalarım
Herhangi bir excel doyasından yada sayfasından Hücreleri seçip kopyala dedikten sonra ÖZEL YAPIŞTIR/DEĞERLERİ/İŞLEMİ TERSİNE ÇEVİR işlevini görecek bir buton yapılabilir mi?

Teşekkürler...

 

[hamitcan]

Makro Kaydet yöntemi ile siz de yapabilirsiniz.

 

[Özgür DALDABAN]

Hocam
Hücreyi kopyalıyorum sonra yapıştıracağım sayfaya geliyorum ve MAKRO kaydına başlıyorum. Sonra işlemleri yapıp (Özel yapıştır/Değerleri/İşlemi Tersine Çevir) kaydı durduruyorum.
Muhtemelen başaramadım
Hata şu;
"Range sınıfının PasteSpecial yöntemi başarısız"

 

[Emir Hüseyin Çoban]

. . .

Hücre aralığını seçip Kopyalayın >
Yapıştırmak istediğiniz hücreyi seçip, kodları çalıştırın.

Daha kullanışlı olması için, kopyalanacak alanda kodlar ile değişken olarak belirlenebilir.

Sub Kod()
    If Application.CutCopyMode Then
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Else
        MsgBox "Kopyalanan Hücre Yok", vbCritical
    End If
End Sub

. . .

 

[YUSUF44]

Makro kaydet yoluyla elde ettiğim (ve biraz değiştirdiğim) kodlar aşağıdaki şekilde:

Sub Makro1()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

Bu kod o an seçili hücreye değerleri işlemi tersine çevirerek yapıştırır.

 

[Özgür DALDABAN]

Hocam
hücreleri kopyaladım. Sonra yapıştıcağım hücreye gelip kodu çalıştırdım ama "kopyalanacak hücre yok diye hata verdi"

 

[YUSUF44]

Bahsettiğiniz hatayı, herhangi bir şeyi kopyalamadan makroyu çalıştırdığımda aldım bu arada.

 

[Özgür DALDABAN]

Hocam kopyaladığıma eminim defalarca denedim
1. kod "kopyalanacak hücre yok"
2. kod ise "400" diye bi hata veriyor.

 

[YUSUF44]

Acaba dosyada/hücrelerde koruma/kilit mi var? ya da kopyalanan hücrelerin alanıyla yapıştırılacak hücrelerin alanı birbirine eşit değil mi?

 

[Özgür DALDABAN]

Hocam
Aynen şöyle yapıyorum
Boş bir sayfa açtım A1 A5 arasına numara yazdım sonra bu arayı kopyaladım D1 hücresini seçtim ve makroyu çalıştırdım ama sonuç aynı
Şaşırdım Valla hocam sizide uğraştırdım
Özür dilerim..

 

[YUSUF44]

Son belirttiğiniz işlemi şimdi ben de aynı şekilde denedim ve sorunsuz çalıştı. O dosyanızı herhangi bir dosya yükleme sitesine yükleyip buraya linkini verirseniz sorun nerden kaynaklanıyor bulmaya çalışırız.

 

[Emir Hüseyin Çoban]

Hocam
Aynen şöyle yapıyorum
Boş bir sayfa açtım A1 A5 arasına numara yazdım sonra bu arayı kopyaladım D1 hücresini seçtim ve makroyu çalıştırdım ama sonuç aynı
Şaşırdım Valla hocam sizide uğraştırdım
Özür dilerim..

. . .

Birleştirilmiş hücre var mı ?

Ekran Görüntüsü:

. . .

 

[Özgür DALDABAN]

Hayır yok hocam
Hiç bi şekilde oynanmamış boş bir sayfada yapıyorum işlemi ama faydasız acaba benim Excel ayarlarında mı bir şey var anlayamadım?

 

[YUSUF44]

Dediğim gibi bir örnek dosya yükleyin bakalım.

 

[Özgür DALDABAN]

Hocam dosyayı yükledim..
http://dosya.co/twnhv1ui7ckl/Kitap1.xlsm.html

 

[Erdem Akdemir]

Özgür bey merhaba,

Hüseyin bey'in verdiği kod çalışıyor, kopyalama işlemini başlatın. Sonra yapıştırmak istediğiniz ilk hücreyi seçin ve kodu çalıştırın, sorun olmaması lazım.

Sayfanızda kodu çalıştıracak nesne yok, manuel olarak çalıştırmanız lazım.

 

[Özgür DALDABAN]

Merhaba
Nesne eklemedim
Kopyalıyorum sonra hücreyi seçip makrolardan direk çalıştırıyorum.
AMA

 

[Özgür DALDABAN]

Hocalarım çok çok özür dilerim
Şimdi kod çalıştı

Ben kodu nesne ile çalıştırmak yerine ,
Aynı şey olduğunu düşündüğüm için makrolardan manuel olarak çalıştırmıştım o zaman çalışmıyor.
Düğme eklediğim zaman çalışıyor.
Neden manuel çalıştırdığımda hata veriyor anlayamadım.

Hakkınızı helal edin uğraştırdım sizi...

 

[Emir Hüseyin Çoban]

Hocalarım çok çok özür dilerim
Şimdi kod çalıştı
Ben kodu nesne ile çalıştırmak yerine ,
Aynı şey olduğunu düşündüğüm için makrolardan manuel olarak çalıştırmıştım o zaman çalışmıyor.
Düğme eklediğim zaman çalışıyor.
Neden manuel çalıştırdığımda hata veriyor anlayamadım.
Hakkınızı helal edin uğraştırdım sizi...

. . .

Hücreyi kopyaladıktan sonra (Ctrl+C)

Esc , F2 tuşuna basarsanız veya başka bir hücreye veri girerseniz
Yine klavyeden başka bir komut çalıştıran tuşa basarsanız ( Ör. F12)
Üst menüden bir özelliği tıklarsanız vs.
Kopyalama işlemi iptal olur.

Denerseniz göreceksiniz ki kopyalama yapıldığında hücrelerin ekrafında dönen hareketli çerçeve kaybolacaktır. Bu da kopyalamanın iptal olduğu gösterir.

. . .