Değer Yapıştırma Komutunun Makrosu

[izcik]

Merhaba

En sade haliyle, şeritte bulunan, bildiğimiz değer yapıştırma düğmesinin makro kodunu lütfen alabilir miyim?



(Not: İstediğim kod;
değer olarak kaydetme, formülü değere dönüştür vb kodlar değildir. Sadece bildiğimiz en basit haliyle değer yapıştırma makro kodudur)

Teşekkürler

 

[Orion1]

Makro kaydet ile bulabilirsiniz.

 

[izcik]

Makro kaydet ile bulabilirsiniz.

Sayın uzmanım çok güzel bir fikir verdiniz. Fakat benim istediğim bir hücre için değil de, hücreyle ilgili bir veri içermeyen standart kod.

İstememin sebebi de değer yapıştır düğmesini şeritten kaldırıp, eklenti haline getirip klavye ile kullanmak ve fare kullanımını azaltmak.

 

[Korhan Ayhan]

Makro kaydet ile elde edilen kodların düzenlenmiş hali...

Option Explicit

Sub Value_Paste()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

[izcik]

Makro kaydet ile elde edilen kodların düzenlenmiş hali...

Option Explicit

Sub Value_Paste()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Sayın uzmanım çok teşekkür ederim, bu kodlar daha iyi oldu, zira düğmeleri eklenti haline getiriyorum, kısayol atıyorum, ve klavye ile kullanıyorum.




Müsait olduğunuzda
herhangi bir dosyaya sayfaya ve hücreye ait olmayan, butondaki düğmenin görevini yapan


küçükten büyüğe (A’dan Z’ye) sırala
ve
Biçimleri Temizle düğmelerinin düzenlenmiş (sadeleştirilmiş) kodlarını yazar mısınız

(Makro kaydet ile yapınca olmuyor. Bir uzmanımın elinin değmesi gerekiyor)

 

[Korhan Ayhan]

Biçimleri Temizleme;

Sub Clear_Formats()
    Selection.ClearFormats
End Sub

A-Z Sıralama;

Sub A_Z_Sort()
    Selection.Sort Selection.Cells(1, 1), xlAscending
End Sub

 

[izcik]

Biçimleri Temizleme;

Sub Clear_Formats()
    Selection.ClearFormats
End Sub

A-Z Sıralama;

Sub A_Z_Sort()
    Selection.Sort Selection.Cells(1, 1), xlAscending
End Sub

Korhan Ayhan uzmanım merhabalar

neden sıralamıyor olabilir?

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Korhan Ayhan]

Eklediğiniz dosyaya göre beklediğiniz sonuç nedir?

 

[izcik]

Eklediğiniz dosyaya göre beklediğiniz sonuç nedir?

Sayın uzmanım, (şu an bilgisayar başında değilim)
yazarak izah etmeye çalışayım

5
4
3
2
1

şeklinde dizili olan rakamların hücrelerini; E sütunuydu sanıyorum

solundaki
1
2
3
4
5
rakamlarının yazılı olduğu hücrelerle beraber seçtim ve makroyu çalıştırdım. Fakat sıralamadı.

Oysa solundakiyle beraber artan sıralama yapması gerekiyordu.

(Hatta o son haliyle kayıt edip upload etmiştim dosyayı)


Yani düğmeye basıldığında, o haliyle sıralama yapmadı.

 

[Korhan Ayhan]

Excelde tablolar soldan sağa doğru ilerler. Bu sebeple işlemlerde aynı şekilde gerçekleşir.

Siz D1:E5 aralığını seçtiğiniz için sıralama E sütununa göre değil D sütununa göre olacaktır.

Verileriniz boşluk içermediği için sadece E1 hücresini seçip butona basarsanız işlem gerçekleşecektir.

 

[izcik]

Excelde tablolar soldan sağa doğru ilerler. Bu sebeple işlemlerde aynı şekilde gerçekleşir.

Siz D1:E5 aralığını seçtiğiniz için sıralama E sütununa göre değil D sütununa göre olacaktır.

Verileriniz boşluk içermediği için sadece E1 hücresini seçip butona basarsanız işlem gerçekleşecektir.

Uzmanım, ben menü üzerindeki A’dan Z’ye Sırala butonuna bastığımızda olan sıralama gibi olacağını düşünmüştüm.

Sanıyorum olmuyor

Zira sıralamayı E hücresine göre yapsam bile menüdeki buton ile oluyordu sıralama.

 

[netzone]

Merhaba @izcik,

Sıralamak için sütunları seçtikten sonra sıralamanın baz alınacağı sütunun herhangi bir hücresine tab tuşuna basarak geçip sıralamayı uyarlarsanız; aktif olan hücrenin bulunduğu sütuna göre A-Z sıralaması yapacaktır.

İyi çalışmalar.

 

[izcik]

Merhaba @izcik,

Sıralamak için sütunları seçtikten sonra sıralamanın baz alınacağı sütunun herhangi bir hücresine tab tuşuna basarak geçip sıralamayı uyarlarsanız; aktif olan hücrenin bulunduğu sütuna göre A-Z sıralaması yapacaktır.

İyi çalışmalar.

Sayın netzone merhaba

Upload ettiğim dosya o şekilde kayıtlıydı. Deneyebildiniz mi?

 

[Korhan Ayhan]

Şu şekilde deneyiniz.

Sub Sirala()
    Selection.Sort ActiveCell, xlAscending
End Sub

 

[netzone]

... Upload ettiğim dosya... Deneyebildiniz mi?

Merhaba,
Kusura bakmayın dosyanızda deneme yapmamıştım, Sadece sıralama yaparken aktif hücreyi dikkate aldığının altını çizmek istemiştim.
@Korhan Ayhan Bey'in Revize ettiği kodu kontrol ettiğimde yukarıda belirttiğim gibi uyarladığımda istediğiniz sonuca ulaşıldığını gözlemledim.
İyi çalışmalar.

 

[izcik]

Şu şekilde deneyiniz.

Sub Sirala()
    Selection.Sort ActiveCell, xlAscending
End Sub

Sağolunuz uzmanım